Задание №4 по информатике
Протабулировать функцию y=99* (корень из cos (pi* x*x))+x*log (pi) на интервале 0 ? x ? 2,2 c шагом h = 0,4.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var x,y,p,koren:real;
i:integer;
begin
x:=0;
p:=3.141; // число пи
while x<=2.2 do
if (x>=0) AND (x<=2.2) then
begin
koren:=cos (p*(sqr (x)));
y:=99*koren+x*ln (p);
writeln (y:2:2,' ',x:2:2);
x:=x+0.4;
end;
readln;
end.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var x,y,p,koren:real;
i:integer;
begin
x:=0;
p:=3.141; // число пи
while x<=2.2 do
if (x>=0) AND (x<=2.2) then
begin
koren:=cos (p*(sqr (x)));
y:=99*koren+x*ln (p);
writeln (y:2:2,' ',x:2:2);
x:=x+0.4;
end;
readln;
end.