Задание: вычислить сумму ряда для всех n от минимального до заданного. Вывести на экран результаты вычислений в форме: n - [значение y для данного n].
Ряд:
Исходный код программы для Delphi 7:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var n,i,x:integer;
y:real;
function pow(a,x2:longint):longint;
var
t,i2:longint;
begin
t:=a;
for i2:=1 to x2-1 do
t:=t*a;
if x2=0 then t:=1;
pow:=t;
end;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Writeln('Vvedite N');
Readln(n);
Writeln('Vvedite X');
Readln(x);
y:=0;
// writeln(pow(-1,i));
for i:=1 to n do
begin
y:=y+pow(-1,i)*pow(x,i)/(i*pow(2,i));
Writeln('n=',i,' n-y=',y:5:2);
end;
Readln;
end.
Функция расчитывающая целую степень:
function pow(a,x2:longint):longint;
var
t,i2:longint;
begin
t:=a;
for i2:=1 to x2-1 do
t:=t*a;
if x2=0 then t:=1;
pow:=t;
end;
Блок схемы:
 |
Главная
Каталог файлов
