Составить блок-схему и программу, вычисляющую сумму элементов заданного ряда - 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.

  1. Строка uses crt; подключает стандартную библиотеку ввода-вывода.
  2. Переменные n, i и s инициализируются значениями, заданными пользователем в командной строке.
  3. Строка clrscr; очищает экран.
  4. Строка write('n='); выводит сообщение n= и ожидает ввода значения переменной n.
  5. Строка readln(n); считывает значение переменной n из введенной пользователем строки.
  6. В цикле for i:=2 to n do происходит итерация от 2 до n (значение n было считано на предыдущем шаге).
  7. Внутри цикла переменная s инициализируется значением (3*i-1)*(3*i-1)/(i-1). Это формула для вычисления суммы элементов ряда.
  8. Строка writeln('S=',s:0:2); выводит значение переменной s в формате S=x.x.
  9. Строка readkey; считывает нажатую клавишу и ожидает ввода.

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

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