Циклы. Тексты программ: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) Нет описания правки |
Mikst (обсуждение | вклад) |
||
Строка 1: | Строка 1: | ||
__NOTOC__ | __NOTOC__ | ||
=== Вывод последовательностей 1 2 3 4 5 и 5 4 3 2 1 === | === Вывод последовательностей 1 2 3 4 5 и 5 4 3 2 1 === | ||
<source lang="Delphi">var i: integer; | |||
begin | |||
// С помощью for | |||
for i := 1 to 5 do | |||
write(i,' '); | |||
writeln; | |||
for i := 5 downto 1 do | |||
write(i,' '); | |||
writeln; | |||
writeln; | |||
// С помощью while | |||
i := 1; | |||
while i<=5 do | |||
begin | |||
write(i,' '); | |||
i := i + 1; | |||
end; | |||
writeln; | |||
i := 5; | |||
while i>=1 do | |||
begin | |||
write(i,' '); | |||
i := i - 1; | |||
end; | |||
writeln; | |||
writeln; | |||
// С помощью repeat | |||
i := 1; | |||
repeat | |||
write(i,' '); | |||
i := i + 1; | |||
until i>5; | |||
writeln; | |||
i := 5; | |||
repeat | |||
write(i,' '); | |||
i := i - 1; | |||
until i<1; | |||
writeln; | |||
end.</source> | |||
=== Вывод последовательностей 1 3 5 7 9 и 10 8 6 4 2 === | === Вывод последовательностей 1 3 5 7 9 и 10 8 6 4 2 === | ||
=== Сумма двузначных чисел === | === Сумма двузначных чисел === |
Версия от 21:50, 15 ноября 2009
Вывод последовательностей 1 2 3 4 5 и 5 4 3 2 1
var i: integer;
begin
// С помощью for
for i := 1 to 5 do
write(i,' ');
writeln;
for i := 5 downto 1 do
write(i,' ');
writeln;
writeln;
// С помощью while
i := 1;
while i<=5 do
begin
write(i,' ');
i := i + 1;
end;
writeln;
i := 5;
while i>=1 do
begin
write(i,' ');
i := i - 1;
end;
writeln;
writeln;
// С помощью repeat
i := 1;
repeat
write(i,' ');
i := i + 1;
until i>5;
writeln;
i := 5;
repeat
write(i,' ');
i := i - 1;
until i<1;
writeln;
end.