Главное меню

Вход на сайт

Кто на сайте?

Сейчас 146 гостей и ни одного зарегистрированного пользователя на сайте

Составить программу для вычисления S. Задачу решить тремя способами (с использованием трех типов оператора цикла).
 
Вычислить:
     
S:=xn/n!+xn-1/(n-1)!+...+x1/1!
     
Известные величины: n,x

Решение
     
var s:real;
    x,i,n,j,Fact,Stepen:integer;
begin
write('Input n=');
readln(n);
write('Input x=');
readln(x);
S:=0;
for i:=n downto 1 do begin
Fact:=1;
Stepen:=1;
for j:=1 to i do begin
Fact:=Fact*j;
stepen:=stepen*x;
end;
S:=S+stepen/Fact;
end;
writeln(s:4:2);
readln;
end.


var s:real;
    x,i,n,j,Fact,Stepen:integer;
begin
write('Input n=');
readln(n);
write('Input x=');
readln(x);
S:=0;
i:=n;
while i>0 do begin
j:=1;
Fact:=1;
Stepen:=1;
while j<=i do begin
Fact:=Fact*j;
Stepen:=Stepen*x;
j:=j+1;
end;
s:=s+stepen/fact;
i:=i-1;
end;
writeln(s:4:2);
readln;
end.


var s:real;
    i,n,j,x,stepen,fact:integer;
begin
write('Input n=');
readln(n);
write('Input x=');
readln(x);
S:=0;
i:=n;
repeat
j:=1;
stepen:=1;
fact:=1;
repeat
fact:=fact*j;
stepen:=stepen*x;
j:=j+1
until j>i;
s:=s+stepen/fact;
i:=i-1;
until i=0;
writeln(s:4:2);
readln;
end.

У Вас недостаточно прав для добавления комментариев.
Вам необходимо зарегистрироваться на сайте