Ряды в паскале... желательно pascalABC

Question

Пояснение: Ряды в паскале... желательно pascalABC

Сама задача: Ряды в паскале... желательно pascalABC

людиии хелп ми)

Ярослав · Accepted Answer

70 рублей. писать на почту

Раяз · Answer

примени эту программу к своей 
program summa; 
uses crt; 
procedure sum(x:real; var s1:real); 
var n:integer; 
a:real; 
begin 
 s1:=1; n:=0; 
 a:=1; 
 while n<=30 do begin 
 a:=a*(2*x/(n+1)); 
 S1:=S1+a; 
 n:=n+1; 
 end; 
 end; //procedure 
 var 
 x,s,y,h:real; 
 i:integer; 
 BEGIN 
 clrscr; 
 x:=0.1; h:=0.9/30; 
 writeln('--------------------------------'); 
 writeln(' X S Y'); 
 writeln('--------------------------------'); 
 while x <=1 do begin 
 sum(x,s); 
 y:=exp(x*2); 
 writeln(x:6:3,s:10:5,y:10:5); 
 x:=x+h; 
 end; 
 writeln('konec zadachi'); 
readln; 
END.