Сумма всех квадратов целых чисел в заданном диапазоне

Задание из серии задач, реализуемых с применением языка программирования Паскаль. Для работы желательно использовать новую версию программы на платформе PascalABC.NET.

Области применения

Данную задачу можно использовать при составлении самостоятельных, контрольных и домашних работ в средней общеобразовательной школе или при прохождении курса информатики в СПО.

Текст задания.

Составить программу на языке Паскаль, которая находит сумму всех квадратов целых чисел в заданном диапазоне [a; b].

Решение задачи на языке Паскаль

Решение задачи разбивается на несколько частей.
Первоначально, мы должны задать тот самый указанный диапазон. Учитывая, что числа у нас целые, поэтому начальная и конечная границы должны быть заданы целыми числами. Поэтому тип вводимых значений будет integer. Переменные a и b необходимы для задания верхней и нижней границ диапазона целых чисел.

С помощью оператора ввода значения readln() осуществляем ввод нижней и верхней границ диапазона.
Первоначально сумма должна быть принудительно обнулена. При помощи оператора присваивания :=

После этого, для вычисления необходимой суммы необходимо организовать цикл с шагом увеличения на единицу. Для этого, в Паскале используется оператор цикла for.

Код программы на языке Паскаль

Program summ_sqr;

var 

a, b, x, s: Integer;

begin

  write('Введите значение нижней границы диапазона a=');

  readln(a);

  write('Введите значение нижней границы диапазона b=');

  readln(b);

  s:=0;

  for x:=a to b do

    begin

      s:=s+x*x;

     end;

 writeln('Сумма квадратов чисел в диапазоне от ',a, ' до ', b, '. S=',s);    

end.

Пример ввода данных и результата в окне вывода

Введите значение нижней границы диапазона a=-12
Введите значение нижней границы диапазона b=10
Сумма квадратов чисел в диапазоне от -12 до 10. S=1035

Надеюсь, что данный материал поможет вам лучше понять язык Паскаль программирования и уяснить общие принципы работы при составлении программ.