Пожалуйста, помогите. Нужно решить в Pascal ABC, тремя способами: с помощью операторов for, while и repeat.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
function y(x:integer):integer;
begin
if x>5 then Result:=18*x
else
if x<2 then Result:=-12*x
else Result:=9*x+10
end;
begin
Writeln(for);
for var i:=-3 to 8 do Writeln(i:2,y(i):5);
Writeln(while);
var i:=-3;
while i<=8 do begin Writeln(i:2,y(i):5); Inc(i) end;
Writeln(repeat);
i:=-3;
repeat Writeln(i:2,y(i):5); Inc(i) until i>8;
end.
Результат выполнения программы:
for
-3 36
-2 24
-1 12
0 0
1 -12
2 28
3 37
4 46
5 55
6 108
7 126
8 144
while
-3 36
-2 24
-1 12
0 0
1 -12
2 28
3 37
4 46
5 55
6 108
7 126
8 144
repeat
-3 36
-2 24
-1 12
0 0
1 -12
2 28
3 37
4 46
5 55
6 108
7 126
8 144
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
