Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  dd
Language: PASCAL
Code:
program homework1;
uses crt;
var count:integer;
      a,d,e, sum, elem:real;
begin
clrscr;
writeln('Введите значение a');
readln(a);
writeln('Введите значение d');
readln(d);
writeln('Введите точность вычисления суммы');
readln(e);
count:=1;
sum:=0;
elem:=2*e;
if (d<=0)or(e<0) then writeln('Сумма не может быть посчитана')
else begin
  while elem>=e do
  begin
  if count mod 2=0 then
  sum:=sum+(a*(a+d)*(a+(count-1)*d))/(d*2*d*count*d*power(2,count));
  else
  sum:=sum-(a*(a+d)*(a+(count-1)*d))/(d*2*d*count*d*power(2,count));
  count:=count+1;
  sum:=sum+elem;
  end;
  end;
count:=count-1;
writeln('Количество просуммированных членов ряда: ',count);
writeln('Значение частичной суммы: ',sum);
readkey;
end.
Comments: