Логічні операції та цикли

одна і та ж послідовність дій виконується декілька разів, поки виконується деяка умова

послідовність дій виконується в залежності від виконання умови

дії виконуються одна за одною без пропусків та повторень

Фрагмент алгоритму, у якому одна або декілька команд можуть виконуватися більше, ніж один раз

з лічильником

з передумовою

з післяумовою

з повторенням

з розгалудженням

з умовою

коли в тілі циклу лише одна команда

коли в тілі циклу 2- і більше команди

будь коли, вони не мають значення

ніколи

цикл з умовою

цикл з післяумовою

цикл

цикл з передумовою

цикли з умовою

цикли з лічильником

цикли з передумовою

цикли з післяумовою

While <умова> do <оператор>;

Repeat  <тіло циклу> until <умова>;

For I : = N to K do <оператор>;

if <умова> then <оператор>;  

While <умова> do <оператор>;

Repeat  <тіло циклу> until <умова>;

For I : = N to K do <оператор>;

if <умова> then <оператор>;  

 For-to-do

 While-do

 Repeat-until

 If-Then-else

procedure TForm1.Button1Click(Sender: TObject);

  var a,b,c,e:real;

  function f(x:real):real; begin  f:=…………..; end;

begin

   a:=strtofloat(edit1.Text); b:=strtofloat(edit2.Text);

   e:=strtofloat(edit3.Text);

   while b-a>e do begin c:=(a+b)/2;

   if  f(a)*f(c)>0 then a:=c else b:=c;  end;

   label5.Caption:=label5.Caption+floattostrf(c,fffixed,7,3);

end;

procedure TForm1.Button1Click(Sender: TObject);

   var m,n:integer;

begin

   m:=strtoint(edit1.Text);

   n:=strtoint(edit3.Text);

   repeat if m>n then m:=m-n else n:=n-m;

   until m=n;

   label3.Caption:=label3.Caption+inttostr(m);

end;  

procedure TForm1.Button1Click(Sender: TObject);

   var x,y,a,b,h: real; n,i:integer; s:string;

begin

   n:=strtoint(edit1.Text);   a:=strtofloat(edit2.Text);

   b:=strtofloat(edit3.Text);     h:=(b-a)/n; x:=a;

   for i:=1 to n do begin   y:=……………;

     s:=floattostrf(x,fffixed,6,2)+'  '+ floattostrf(y,fffixed,6,2);

     label5.Caption:=label5.Caption+chr(13)+s;

     x:=x+h; end;

end;  

procedure TForm1.Button1Click(Sender: TObject);

   var s: real; n,k,i:integer; f:string;

begin

   n:=strtoint(edit1.Text);   k:=strtoint(edit2.Text);   s:=0;

   for i:=n to k do s:=s+sqrt(i);

   label3.Caption:=’Cума=’+floattostrf(s, fffixed,7,2);

 end;  

Твердження, яке може бути істинним чи хибним

Ознака алгоритму з повним розгалуженням

Сумісний цикл

Логічне висловлювання, з якого починають будувати алгоритмічну структуру повторення.

Форма організації команд, коли залежно від виконання або невиконання певної умови виконується одна з двох послідовностей команд

Алгоритмічна структура, що дає змогу виконавцеві алгоритму вибрати послідовність команд залежно від істинності певного висловлювання (умови), називається

х <= 10 and у <= 0

х >= 10 or у <= 0

х >= 10 and у <= 0

х <= 10 and у > 0

 RadioButton

  Label

 Entry

tkinter

 CheckButton

  Label

 Entry

tkinter

While <логічний вираз>

Then begin

<команди тіла циклу>

end;

for <ім'я змінної> := <вираз1> to

<вираз2> do

begin

<команди тіла циклу>

end;

Repeat <оператори тіла циклу>

Until <умова>;

вибраний тільки один

вибраний один або кілька

не вибраний жодний

не вибраний жодний, вибраний один або кілька

true кожний з двох логічних виразів

true хоча б один з двох логічних виразів

true тільки один з двох логічних виразів

false кожний з двох логічних виразів

true кожний з двох логічних виразів

true хоча б один з двох логічних виразів

true тільки один з двох логічних виразів

false кожний з двох логічних виразів

and X

or X

not X

xor X

X or Y

X and Y

X not Y

X xor Y

X or Y

X not Y

X and Y

X xor Y

if <логічний вираз> then <послідовність команд1> else <послідовність команд2>

if <логічний вираз> then <послідовність команд1>

StrToFloat

IntToStr

StrToInt

FloatToStr

x=10, y=10;

x=10, y=20;

x=10, y=100;

x=100, y=20;