Dastur kodini umumiy ko`rinishga keltiramiz:
program klm;
const E=0.1E-3;
var n: integer; an, summa: real;
begin
summa:=0; n:=1; an:= 1/3;
while an>E do
begin
summa:=summa+an; n:=n+1;
an:=an*(n+1)/(2*(2*n+1));
end;
writeln ('summa=', summa, 'qatorning oxirgi hadi =',an);
end.
2-misol. - jamlanuvchi qatorni yig’indisini Paskal dasturlash tilida yordamida aniqlikda hisoblang.
Dastur kodini umumiy ko`rinishga keltiramiz:
program klm;
var
n:integer;
s:real;
begin
n:=1;
while n<11 do begin
s:=1/exp(n*ln(2));
n:=n+1;
if s<0.001 then writeln('s=',s)
else writeln('bu qator ning n hadi 0,001 dan katta');
end;
end.
3-misol. - tarqaluvchi qatorni hadlarining yig’indisini Paskal dasturlash tilida yordamida 2013 sonida katta bo`lgunga qadar hisoblang.
11>
Do'stlaringiz bilan baham: |