АК
Андрей Кириченко
Можете пожайлуста, проверить правильно ли работает (считает) программа в Delphi???
Начальное условие на фото
Сама программа
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,Math;
var y,x:Real; k,b:Integer; fact:LongInt;
begin
Writeln('Vvedite X');
Readln(x);
y:=0;
for k:=1 to 8 do
begin
fact:=2*k;
for b:=1 to k do
fact:=fact*b;
y:=y+(Power((-1),k)*Power(x,2*k))/fact;
end;
writeln('y=',y:0:2);
Readln;
end.