Вычислить сумму - Turbo Pascal (33690)

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

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

Дано натуральное число n, действительное число x. Вычислить: Использовать цикл с постусловием. Програмку и блок-схему алгоритма, будьте добры.

Решение задачи: «Вычислить сумму»

textual
Листинг программы
var
   S,n,x :real;
       i :integer;
begin
writeln('ââåäèòå Г·ГЁГ±Г«Г* x, n :');
readln(x,n);
i:=1;
S:=0;
repeat
  S:=S+exp(i*ln(x/2));
  i:=i+1;
until i>n;
  writeln('S= ',S:4:2);
end.

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

  1. В начале кода объявляются переменные S, n и x типа real.
  2. Затем объявляется переменная i типа integer.
  3. Выводится сообщение с помощью функции writeln, используя переменные x и n в качестве аргументов.
  4. Переменная i инициализируется значением 1.
  5. Переменная S инициализируется значением 0.
  6. Запускается цикл repeat, который будет выполняться до тех пор, пока значение переменной i больше значения переменной n.
  7. Внутри цикла переменная S увеличивается на сумму exp(i*ln(x/2)) где exp - функция экспоненты, а ln - функция натурального логарифма.
  8. Значение переменной i увеличивается на 1.
  9. После окончания цикла выводится сообщение с помощью функции writeln, используя переменную S в качестве аргумента.

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

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