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

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

Скачать файл кода готовой программы

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