Исходник программы, который вычисляет сумму кубов от 25 до 125

Исходник программы, который вычисляет сумму кубов от 25 до 125

Приветствую Вас, дорогих читатели блога ZedPost.Ru, а также тех, кто хочет научиться языку программирования Паскаль. Сегодня, 29 июля, я выкладываю пример программы Паскаль, которая вычисляет сумму кубов чисел от 25 до 125. Программа по теме: "Циклы. Цикл с параметром - FOR".

Данная задача Паскаль относится к элементарным тематическим задачам, поэтому объяснять я не вижу смысла, тем более, что в программе есть подробные пояснительные комментарии.

Исходный код программы Pascal:

var sum:longint; //Описание переменных
i:integer;
Begin   //Начало программы
  sum:=0;  //Зануление суммы
  for i:=25 to 125 do    {Цикл с параметром (от 25 до 125, если нужны другие рамки чисел, то просто поменяйте значения в этой строке)}
    sum:=sum+(i*i*i); //Сумма куба данного числа с суммой предыдущих
  writeln ('Сумма кубов:', sum);  //Вывод суммы кубов
End.  //Конец программы


Скачать программу: pas4for.pas

P.S. У данной программы может быть и другая формулировка: Составить программу вычисления суммы кубов чисел от 25 до 55. В таком случае просто замените параметр цикла FOR/ Вместо 125 напишите 55. Возможны и другие значения.
Автор: Zed от 2013-07-29 19:36:56   Просмотров: 8066

Теги: Паскаль Pascal исходник исходники скачать FOR циклы