Question

Написать программу в Pascal, которая вычисляет и выводит на экран в виде таблицы значения функции [-6; -1.5] с шагом 0.75 .

Answer 1

===== PascalABC.NET =====

begin

 for var i := 0 to Trunc((-1.5 - (-6)) / 0.75) do

 begin

   var x := -6 + 0.75 * i;

   Write(x:5:2);

   if x < -3 then

     Writeln((-5 - x) / x:15:10)

   else

     Writeln(x * x + Exp(x):15:10)

 end

end.