Составить блок-схему и программу, вычисляющую сумму элементов заданного ряда - Turbo Pascal
Формулировка задачи:
Составить блок-схему и программу, вычисляющую сумму (произведений) элементов заданного ряда, используя, оператор цикла с параметром:
Решение задачи: «Составить блок-схему и программу, вычисляющую сумму элементов заданного ряда»
textual
Листинг программы
uses crt; var n,i:integer; s:real; begin clrscr; write('n='); readln(n); for i:=2 to n do begin s:=s+(((3*i-1)*(3*i-1))/(i-1)); end; writeln('S=',s:0:2); readkey; end.
Объяснение кода листинга программы
В данном коде используется язык программирования Turbo Pascal.
- Строка
uses crt;
подключает стандартную библиотеку ввода-вывода. - Переменные
n
,i
иs
инициализируются значениями, заданными пользователем в командной строке. - Строка
clrscr;
очищает экран. - Строка
write('n=');
выводит сообщениеn=
и ожидает ввода значения переменнойn
. - Строка
readln(n);
считывает значение переменнойn
из введенной пользователем строки. - В цикле
for i:=2 to n do
происходит итерация от 2 доn
(значениеn
было считано на предыдущем шаге). - Внутри цикла переменная
s
инициализируется значением(3*i-1)*(3*i-1)/(i-1)
. Это формула для вычисления суммы элементов ряда. - Строка
writeln('S=',s:0:2);
выводит значение переменнойs
в форматеS=x.x
. - Строка
readkey;
считывает нажатую клавишу и ожидает ввода.