while

Оператор цикла

while

while условие do
begin
…
end;

while
begin
…
end;

условие
begin
…
end;

begin
begin
…
…
end;
end;
begin
…
end;

Написать программу, которая выводит
квадраты целых чисел на промежутке от A до B

Program m1;
var a, b, kv : integer;
begin
readln (a, b);
while a<=b do
begin
kv:=sqr (a);
writeln (kv);
a:=a+1;
end;
readln;
end.

b a kv

while a<b do
begin
kv:=sqr(a);
writeln(kv);
a:=a+1;
end;

Условие

Тело цикла

b a kv

3

while a<b do
begin
kv:=sqr(a);
writeln(kv);
a:=a+1;
end;

Условие

Тело цикла

b a kv

5 3

while a<b do
begin
kv:=sqr(a);
writeln(kv);
a:=a+1;
end;

Условие

Тело цикла

b a kv

5 3 9

while a<b do
begin
kv:=sqr(a);
writeln(kv);
a:=a+1;
end;

Условие

Тело цикла

b a kv

5 3 9
4

while a<b do
begin
kv:=sqr(a);
writeln(kv);
a:=a+1;
end;

Условие

Тело цикла

b a kv

5 3 9
5 4

while a<b do
begin
kv:=sqr(a);
writeln(kv);
a:=a+1;
end;

Условие

Тело цикла

b a kv

5 3 9
5 4 16

while a<b do
begin
kv:=sqr(a);
writeln(kv);
a:=a+1;
end;

Условие

Тело цикла

b a kv

5 3 9
5 4 16
5

while a<b do
begin
kv:=sqr(a);
writeln(kv);
a:=a+1;
end;

Условие

Тело цикла

b a kv

5 3 9
5 4 16
5 5

while a<b do
begin
kv:=sqr(a);
writeln(kv);
a:=a+1;
end;

Условие

Тело цикла

b a kv

5 3 9
5 4 16
5 5 25

while a<b do
begin
kv:=sqr(a);
writeln(kv);
a:=a+1;
end;

Условие

Тело цикла

b a kv

5 3 9
5 4 16
5 5 25
6

while a<b do
begin
kv:=sqr(a);
writeln(kv);
a:=a+1;
end;

Условие

Тело цикла

b a kv

5
5
5
5

3 9
4 16
5 25
6

while a<b do
begin
kv:=sqr(a);
writeln(kv);
a:=a+1;
end;

Условие

Тело цикла

Program m1;
var a, b, kv : integer;
begin
readln (a, b);
while a<=b do
begin
kv:=sqr (a);
writeln (kv);
a:=a+1;
end;
readln;
end.

Данная программа
при вводе чисел 3 и 5
выводит результат:
9
16
25

while

More Related Content

Similar to while (20)

More from OlgaDask (10)

while