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

Узнай цену своей работы

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

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

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

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.

Объяснение кода листинга программы

  1. Объявляются переменные s, f, y, x типа real и переменные i, n, j, t типа byte.
  2. Пользователю предлагается ввести значение переменной n, x и y.
  3. Значения переменных n, x и y сохраняются в соответствующих переменных.
  4. Переменные s, f и t инициализируются нулем.
  5. Запускается цикл For для i от 1 до n.
  6. Внутри цикла запускается вложенный цикл For для j от t до 2*i-1.
  7. Вложенный цикл For используется для подсчета факториала числа j.
  8. Значение переменной f умножается на значение j и сохраняется в переменной f.
  9. Значение переменной t устанавливается равным значению j.
  10. Сумма sin(x+y/i)/f вычисляется и сохраняется в переменной s.
  11. Значение s добавляется к сумме s.
  12. После окончания вложенного цикла For для j выводится значение s.
  13. Программа завершается и ждет ввода пользователя.

Оцени полезность:

5   голосов , оценка 3.4 из 5
Похожие ответы