Помогите пожалуйста написать программу на языке Turbo Pascal
Доброго времени суток дорогие друзья, помогите пожалуйста написать программый код на паскале для решения этого примера
В котором n=5 и альфа= 4
Заранее оооочень благодарен
Доброго времени суток дорогие друзья, помогите пожалуйста написать программый код на паскале для решения этого примера
В котором n=5 и альфа= 4
Заранее оооочень благодарен
program prj1;
function f(x: integer);
var t,i: integer;
begin
if x = 0 then f:=0
else begin
t:=1;
for i:=1 to x do
t:=t * i;
f:=t;
end;
end;
function pow(x: integer);
var i,t: integer;
begin
t:=1;
for i:=1 to x do
t:=t *x;
pow:=t;
end;
const N = 5, A = 4;
var real;
i: integer;
begin
D:=1;
for i:=0 to N - 1 do
D:=D + (pow(i) / f(i));
writeln(D);
readln;
end.
Наверное так.. .
Надо за вас код написать? Пишите в почту, сделаю.
а вот эта программа работает, только не вижу А
program prj1;
uses crt;
const N = 5; A = 4;
var real;
i: integer;
function f(x: integer):integer;
var t,i: integer;
begin
if x = 0 then f:=1
else begin
t:=1;
for i:=1 to x do
t:=t * i;
f:=t;
end;
end;
function pow(x: integer):integer;
var i,t: integer;
begin
t:=1;
for i:=1 to x do
t:=t *x;
pow:=t;
end;
begin
clrscr;
D:=1;
for i:=0 to N-1 do
D:=D + (pow(i) / f(i));
writeln(D);
readln;
end.