Вычислить сумму, используя циклы WHILE и REPEAT - Pascal ABC

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

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

Помогите, плз, фото прикрепил WHILE и REPEAT

Решение задачи: «Вычислить сумму, используя циклы WHILE и REPEAT»

textual
Листинг программы
var n,i:integer;
    sm,zn:real;
begin
write('n=');
readln(n);
sm:=0;
zn:=0;
for i:=1 to n do
 begin
  zn:=zn+sin(i);
  sm:=sm+cos(i)/zn;
 end;
write('summa=',sm:0:3);
end.

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

  1. Создаются переменные n, i, sm и zn типа integer и real соответственно.
  2. Выводится запрос на ввод значения переменной n.
  3. Создается переменная sm типа real и инициализируется значением 0.
  4. Создается переменная zn типа real и инициализируется значением 0.
  5. Запускается цикл for, который выполняется от 1 до n.
  6. Внутри цикла переменная i и переменная zn обновляются согласно формуле sin(i) + cos(i)/zn.
  7. Переменная sm также обновляется согласно формуле sm = sm + cos(i)/zn.
  8. После завершения цикла выводится значение переменной sm.

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

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