Паскаль АВС

Program LoctarUgar;
uses crt;
const
eps=0.001;

function fact(n : integer) : longint;
begin
    if n <= 1
         then fact := 1
         else   fact := n * fact(n - 1);
end;

var
t,s:real;
i:integer;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('***          OK             ***');
writeln();
writeln('Программа вычисляет частичную сумму ряда с заданной точностью');
writeln(' Общий член ряда: an = ((3^n)*n! )/ (2n)!');
writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
writeln();
s:=0;   i:=1;   t:=1;
while t>eps do
    begin
      t:=(power(3,i)*fact(i))/(2*fact(2*i));
      s:=s+t;
      writeln('a(',i,')=',t:0:6,' S=',s:0:6);
      i:=i+1;
     end;
writeln();
writeln('Сумма ряда равна',s:0:6);
end.

0 0

4 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА СФОРМУЛИРОВАТЬ УСЛОВИЕ ЗАДАЧИ var x1, y1, x2, y2, r1, r2: real; begin write('Введите координаты первой и вто

edfghjkl [1]

Определите, какая из двух точек A и B находится ближе к началу координат.

Если точки находятся на одинаковом расстоянии, вывести 'Точки A и B находятся на одинаковом расстоянии от начала координат'.

0 0

4 года назад

Прочитать ещё 2 ответа