Программа на Turbo Pascal

Question

Программа на Turbo Pascal

ChessMasterZ Знаток (459), на голосовании 13 лет назад

Надо написать 3 программы: Вывести на экран таблицу значений x и y функции y=x²+2. x меняется от 2 до 10 с шагом 0,5.

1)Используя цикл For
2)Используя While....Do
3)Используя Repeat....Until

Answer 1

var x:integer; begin for x:=4 to 20 do writeln(x/2:5:1,sqr(x/2)+2:10:5); readln end.

var x:real; begin x:=2; while x<=10 do begin writeln(x:5:1,sqr(x)+2:10:5); x:=x+0.5 end; readln end.

var x:real; begin x:=2; repeat writeln(x:5:1,sqr(x)+2:10:5); x:=x+0.5 until x>10; readln end.