Предмет: Информатика,
автор: daniilkisheya
Составьте программу выводящую на экран все числа от - 10 до 10
Приложения:
Ответы
Автор ответа:
1
// Выбирайте, тут три цикла, while, repeat и for
//------------------------
program LoopWhile;
begin
var (a, b) := (-10, 10);
while a <= b do
begin
Println(a, Abs(a));
a += 1
end;
end.
//------------------------
program LoopRepeat;
begin
var (a, b) := (-10, 10);
repeat
Println(a, Abs(a));
a += 1
until a > b;
end.
//------------------------
program LoopFor;
begin
var (a, b) := (-10, 10);
for var i := a to b do
Println(i, Abs(i));
end.
iolandavalerypad353:
Это будет работать в PascalABC.NET
Можно еще рекурсией
procedure Rec(a, b: integer);
procedure Rec_(a: integer);
begin
if a > b then exit
else
begin
Println(a, Abs(a));
Rec_(a + 1);
end
end;
begin
Rec_(a)
end;
begin
var (a, b) := (-10, 10);
Rec(a, b)
end.
procedure Rec_(a: integer);
begin
if a > b then exit
else
begin
Println(a, Abs(a));
Rec_(a + 1);
end
end;
begin
Rec_(a)
end;
begin
var (a, b) := (-10, 10);
Rec(a, b)
end.
можно еще циклом foreach
begin
foreach var x in Range(-10, 10) do
Println(x, Abs(x))
end.
foreach var x in Range(-10, 10) do
Println(x, Abs(x))
end.
foreach самый короткий, меньше всего писать =)
Похожие вопросы
Предмет: Английский язык,
автор: annamilk2619
Предмет: Математика,
автор: vputmakova
Предмет: Химия,
автор: Анькаymrf
Предмет: Математика,
автор: таблицу
Предмет: География,
автор: аурикафедор