Вычисление сумм и произведений с использованием операторов цикла - 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.
Объяснение кода листинга программы
- Объявляются переменные s, f, y, x типа real и переменные i, n, j, t типа byte.
- Пользователю предлагается ввести значение переменной n, x и y.
- Значения переменных n, x и y сохраняются в соответствующих переменных.
- Переменные s, f и t инициализируются нулем.
- Запускается цикл For для i от 1 до n.
- Внутри цикла запускается вложенный цикл For для j от t до 2*i-1.
- Вложенный цикл For используется для подсчета факториала числа j.
- Значение переменной f умножается на значение j и сохраняется в переменной f.
- Значение переменной t устанавливается равным значению j.
- Сумма sin(x+y/i)/f вычисляется и сохраняется в переменной s.
- Значение s добавляется к сумме s.
- После окончания вложенного цикла For для j выводится значение s.
- Программа завершается и ждет ввода пользователя.