Question

Вычислить и вывести на печать таблицу значений функции.Сделайте задание двумя способами с помощью цикла-пока и цикла-до. Нужны программы, а если можете и блок-схемы.(паскаль)

Answer 1

var

 x, y: real;

begin

 x := -1;

 while x <= 3 do

 begin

   y := x * x + 4 * x - 7;

   if x >= 2 then

     y := 1 / y;

   writeln(x:5:2, y:21:15);

   x := x + 0.25;

 end;

end.

-------------------------------------------------

var

 x, y: real;

begin

 x := -1;

 repeat

   y := x * x + 4 * x - 7;

   if x >= 2 then

     y := 1 / y;

   writeln(x:5:2, y:21:15);

   x := x + 0.25;

 until x > 3;

end.