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