Цикли і розгалуження 8 клас

a:=strtofloat(Edit1.text);

b:=strtofloat(Edit1.text);

x:=a-3*b;

if x=0

then label1.caption:=’Вираз значення не має: ділення на 0’

Else begin;

y:=a+2*b;

z:=y/x;

label1.caption:=floattostr(z);

end;

a:=strtofloat(Edit1.text);

s:=a;

n:=1;

while s<=100 do

begin

a:=a+3;

s:=s+a;

n:=n+1;

end:

label1.caption:=inttostr(n);

end;

k:=1;

a:=12;

while a<100 do

begin

a:=2*a-4;

k:=k+1;

end;

s:=0;

a:=1;

k:=1;

while a<50 do

begin

s:=s+a;

k:=k+1;

a:=k*k;

end;

a:=strtofloat(Edit1.text);

b:=strtofloat(Edit1.text);

x:=a-3*b;

if x=0

then label1.caption:=’Вираз значення не має: ділення на 0’

Else begin;

y:=a+2*b;

z:=y/x;

label1.caption:=floattostr(z);

end;

a:=strtofloat(Edit1.text);

s:=a;

n:=1;

while s<=100 do

begin

a:=a+3;

s:=s+a;

n:=n+1;

end:

label1.caption:=inttostr(n);

end;

k:=1;

a:=12;

while a<100 do

begin

a:=2*a-4;

k:=k+1;

end;

s:=0;

a:=1;

k:=1;

while a<50 do

begin

s:=s+a;

k:=k+1;

a:=k*k;

end;

Для того щоб у ході виконання проекту вибрати лише один з можливих варіантів.

Для того щоб в ході виконання проекту вибрати або один з можливих варіантів, або кілька, або не вибрати жодного.

Для того щоб перебирати данні.

Для того щоб у ході виконання проекту вибрати лише один з можливих варіантів.

Для того щоб в ході виконання проекту вибрати або один з можливих варіантів, або кілька, або не вибрати жодного.

Для того щоб перебирати данні.