Question

Кто может, напишите пожалуйста программу в Delphi.

Answer 1

program TabulY;

var

 a, b, x, dx, y, sinus, root: real;

begin

 a := 1.23;

 b := 0.003;

 x := 0.17;

 dx := 0.1;

 Writeln('   a     b     x     y');

 while x <= 3 do

 begin

   sinus := sin((x * x + a) * (x * x + a));

   root := sqrt(x / b);

   y := sinus * sinus - root;

   Writeln(a:6:3, b:6:3, x:6:3, y:8:3);

   x += dx

 end;

 Readln;

end.