Вычислить значение выражения - 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.

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

  1. Объявляются переменные:
    • s типа real
    • s1 типа real
    • i типа integer
    • n типа integer
  2. Начинается цикл:
    • Повторять:
      • Вывести на экран n > 0; n =
      • Считать введенное значение и сохранить в переменную n
    • Пока n не больше 0
  3. Задается начальное значение s и s1, равное 0
  4. Начинается цикл от 1 до n:
    • Увеличивать s1 на значение синуса от i
    • Увеличивать s на значение 1/s1
  5. Выводится результат вычислений s с точностью до 4 знаков после запятой.

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

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