Вычисление сумм и произведений с использованием операторов цикла - Turbo Pascal

Формулировка задачи:

Доброго дня! В связи с тем, что я запуталась с прошлой темой (не могу найти правку сообщения), пишу снова, только теперь грамотней) Помогите пожалуйста с Паскалем))) Вычисление сумм и произведений с использованием операторов цикла. Составить алгоритм(блок-схему) и текст программы для вычисления при Si=1cos(y^2i)1/(4i!+1) . Сделать распределение памяти (таблицу идентификаторов) и комментарии. Преобразовать формулы к виду удобному для программирования. Возведение в положительную степень выполнять с помощью сотношения ab=ln(b*exp(a)). Спасибо тем, кто откликнется!)

Код к задаче: «Вычисление сумм и произведений с использованием операторов цикла - Turbo Pascal»

textual
Var s,f,y,x:real;
    i,n,j,t:byte;
Begin
    write('Введите n: ');readln(n);
    write('Введите x: ');readln(x);
    write('Введите y: ');readln(y);
    s:=0;f:=1;t:=1;
    For i:=1 to n do
    Begin
      For j:=t to 2*i-1 do //подсчёт факториала
       f:=f*j;
      t:=j;
      s:=s+sin(x+y/i)/f;
    End;
    writeln('F = ',s:0:2);
    readln;
End.

5   голосов, оценка 3.400 из 5


СОХРАНИТЬ ССЫЛКУ