Вычислить значение выражения - Pascal (80370)
Формулировка задачи:
Приветствую, не могу решить очень простое задание:
Дано натуральное число n. Создать программу вычисления значение выражения:
Сделал вот такой код, но он решает совсем другое выражение...
var s: real; i, n: integer; begin repeat write('n > 0; n = '); readln(n) until n > 0; s := 0; for i := 1 to n do s := s + 1/sin(n); write('s = ', s:0:15); readln end.
Решение задачи: «Вычислить значение выражения»
textual
Листинг программы
var s,s1: real; i, n: integer; begin repeat write('n > 0; n = '); readln(n) until n > 0; s := 0; s1:=0; for i := 1 to n do begin s1:=s1+sin(i); s:=s+1/s1; end; write('s = ', s:0:4); end.
Объяснение кода листинга программы
- Объявляются переменные:
s
типа reals1
типа reali
типа integern
типа integer
- Начинается цикл:
- Повторять:
- Вывести на экран
n > 0; n =
- Считать введенное значение и сохранить в переменную
n
- Вывести на экран
- Пока
n
не больше 0
- Повторять:
- Задается начальное значение
s
иs1
, равное 0 - Начинается цикл от 1 до
n
:- Увеличивать
s1
на значение синуса отi
- Увеличивать
s
на значение1/s1
- Увеличивать
- Выводится результат вычислений
s
с точностью до 4 знаков после запятой.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д