Задание №4 по информатике



style="display:block"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="5792664354"
data-ad-format="link">

Протабулировать функцию 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.

Популярность: 1% [?]

Метки:на delphi

Связанные записи

Рубрика: ЮУПИ · Метки:

Выразите свои мысли

Скажите нам, что вы думаете...
и если вы хотите сопроводить комментарий своей аватаркой, воспользуйтесь сервисом gravatar!