Как найти сумму кубов в паскале

var i,S,a,b :integer;
    allok :boolean;
begin
      write('vvedite a: ');
      readLn(a);
      repeat
      write('vvedite b(b>a): ');
      readLn(b);
      if b<a then writeLn('b doljno bit menshe 4em a!')
         else allok:=true;
      until allok;
 
      S:=0;
      For i:=a to b do
          S:=i*i*i+S;
writeLn('summa kubov ravna: ',S);
readLn;
end.

program zz1;

var n, i, m, s:integer; / / задаем переменные целого типа

begin

write (‘ введите заданное число n ‘); / / вводим с клавиатуры последнее число ряда

read (n);

for i:=1 to n do / / организуем цикл, в котором переберем числа от единицы до n

begin

s:=s + i * i * i; / / возводим очередное число в куб, умножив на себя два раза, и добавляем его в сумму

end;

write (‘ сумма кубов всех целых чисел от 1 до n = ‘, s); / / выводим ответ

end.

Приветствую Вас, дорогих читатели блога 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. Возможны и другие значения.

Дата: 2013-07-29 19:36:56   Просмотров: 17627

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

Если вам необходимо получить ответ на вопрос Pascal Нахождение суммы кубов всех целых чисел от 1 до N?, относящийся
к уровню подготовки учащихся 10 — 11 классов, вы открыли нужную страницу.
В категории Информатика вы также найдете ответы на похожие вопросы по
интересующей теме, с помощью автоматического «умного» поиска. Если после
ознакомления со всеми вариантами ответа у вас остались сомнения, или
полученная информация не полностью освещает тематику, создайте свой вопрос с
помощью кнопки, которая находится вверху страницы, или обсудите вопрос с
посетителями этой страницы.