Тема 7. Управлінська діагностика

Repeat

<оператор1>;... <оператор N>;

until <умова завершення циклу>;

Тут repeat, until - зарезервовані слова,

<оператор1>;...<операторN>; — тіло циклу;

<умова завершення циклу> — деякий вираз логічного типу.

Тіло циклу складають оператори, розміщені між ключовими словами repeat та until. Операторні дужки begin … end в описі циклу не використовуються.

Оператор циклу з післяумовою працює за таким алгоритмом. Спочатку вико­нуються оператори, що входять до складу тіла циклу. Потім обчислюється умова завершення циклу. Якщо вона хибна, тіло циклу виконується ще раз, якщо результат «істинна» завершує свою роботу, і виходить із циклу.

Зауважимо, що параметри циклу з післяумовою, як і циклу з передумовою, повинні змінюватись під час його виконання так, щоб не трапилось «зациклення».

Для того щоб зрозуміти різницю між операторами циклу While і Repeat, переглянемо фрагмент програми, яка вираховує степінь числа 3 в діапазоні між 1 і 300

Цикл While a:=3; while a<300 do begin writeln (a); a:=a*3 end;

Цикл Repeat a:=3; repeat writeln (a); a:=a*3 until a>=300

П р и к л а д: Розробити програму табулювання функції.

Значення аргументу х змінюється в діапазоні від а до b з постійним кроком h.

Program cycl;

Var a,b,c,h,x,y:real;

Begin

Writeln (“Введіть мінімальне і максимальне значення аргументу A і B”);

Readln (A, B);

Writeln (“Введіть значення параметра С”);

Readln (“Введіть значення кроку”);

Readln (h);

X:=A;

Repeat

If x>=c then y:=((1+x)/(1-x)+Exp(-x)

else y:=((1+x)/(1-x)+Cos(x/2);

Writeln (“x=”, x:4:2, “,”y=”, y:4:2);

X:=x+h; {збільшуємо х на h }

Until x>b; {перевіряємо умову виходу з циклу}

End.

___________________________________________________________________3. ІТЕРАЦІЙНІ ЦИКЛИ.

В деяких задачах необхідно знайти послідовність значень x_0, x_1,…x_n. Кожне наступне значення послідовності обчислюється через попереднє. Цикли, що реалізують таку послідовність наближень називаються ітераційними. Ітераційний цикл закінчується коли не виконується деяка умова.

П р и к л а д. Обчислення суми ряду , y_n= !. Y_n= y_n-1*p_n,

P_n=-x²/((2n-1)*2n); виконувати поки y_n<=;

Program ryad;

Var

X,yn,pn,s,eps:real;

n:integer;

begin

read(x,eps);

s:=0;yn:=1;n:=0;

while abs(yn)>=eps do

begin

s:=s+yn;n:=n+1;

pn:=-sqr(x)/(2*n*(2*n-1));

yn:=yn*pn;

end;

writeln(s);

end.

______________________________________________________________4. ВКЛАДЕНІ ЦИКЛИ.

Тілом циклу може бути знову циклічна структура. Такі цикли називають вкладеними. Цикл, що містить у собі інший цикл, називається зовнішним, а цикл, що міститься у тілі іншого циклу- внутрішнім. Внутріші та зовнішні цикли можуть бути циклами з параметром, постумовою та передумовою. Вкладені цикли характеризуються рівнями вкладення, зовнішній цикл має рівень –0, внутрішній –1. Параметри циклів у випадку вкладених циклів змінюються так: спочатку змінюється параметр внутрішнього циклу, набуаючи всіх своїх значень. Потім зовнішній цикл змінить значення на один крок і знову параметр внутрішнього циклу набуде всіх значень. Так триває доти, поки параметр зовнішнього циклу не набуде всіх своїх значень.

П р и к л а д. Відомо, що сума квадратів a та b катетів прямокутного трикутника дорівнює квадратові гіпотенузи c:

а² + b² = c².

Трійка чисел, котра задовольняє таку рівність, називається "піфагоровими" числами. Скласти програму визначення "піфагорових" чисел в діапазоні від 1 до 100.

PROGRAM Pifagorovi_chysla;

USES crt;

CONST n=100;

VAR a,b,c,count,cx:LONGINT;

wait:CHAR;

BEGIN

CLRSCR;

WRITELN(' Пiфагоровi числа');

count:=0;

FOR a:=1 TO n DO

FOR b:=a TO n DO

BEGIN

cx:=a*a+b*b;

c:=1;

WHILE (c*c<=cx) DO

BEGIN

IF c*c=cx THEN BEGIN

count:=count+1;

WRITELN('a=',a:5,' b=',b:5,' c=',c:5);

END; {if}

c:=c+1;

END; {while}

END; {for b}

WRITELN;

WRITE('В діапазоні від 1 до ',n:5,' знаходиться ');

WRITELN(count:4,' трiйки піфагорових чисел');

END. {program}

Використання операторів циклу дозволяє складати різноманітні і достатньо складні програми.

7.1. Поняття управлінської діагностики.

7.2. Методологічні основи функціонально-вартісної діагностики систем управління.

Дата добавления: 2014-01-07