Var X : integer;
Begin
Write('Введите начало диапазона. a='); Readln(p1);
Write('Введите окончание диапазона. b='); Readln(p2);
if p1>p2
then Begin
Writeln('Нижняя граница выше верхней');
x:=p1;
p1:=p2;
p2:=x;
Writeln('Значение границ изменено: a=', p1,' b=', p2);
End;
End;
//-------------------------------------------------------
// Процедура вычисления суммы квадратов, использующая параметры.
// С проверкой вычислимости.
Procedure Calc(x,y : integer; var z : integer);
Var I : integer; // Счётчик цикла
Begin
z:=0;
for i:=x to y do
if (z > (2147483647 - i*i))
then begin z:=-1;
break; // Оператор досрочной остановки цикла.
End
else z:=z + i*i;
End;
//-------------------------------------------------------
// Процедура вывода результатов вычисления.
Procedure Print(R : integer);
Begin
if R<0
then Writeln('При вычислении произошло переполнение')
else Writeln('Сумма квадратов всех целых чисел в указанном
диапазоне равна - ', R);
End;
//-------------------------------------------------------
// Главная часть программы
Var a,b : integer; // Числа, вводимые пользователем
Rez : integer; // Результат вычислений
Begin
Hello; // Вызов процедуры приветствия.
Vvod(a, b); // Вызов процедуры ввода исходных данных.
Calc(a,b,Rez); // Вызов процедуры вычисления.
Print(Rez); // Вызов процедуры печати результата.
End.
Данная программа будет корректно обрабатывать любые, введённые пользователем данные, как корректные, так и не корректные:
4.6 Лабораторная работа №6 «Функции в языке Паскаль»
При выполнении данной работы требуется написать и отладить программу, содержащую функцию, предназначенную для выполнения некоторых вычислительных действий согласно варианту задания. Ввод данных также должен быть организован при помощи функции. Печать результатов может быть оформлена в виде процедуры.
Темы, которые необходимо знать для выполнения и защиты данной работы:
Понятие функций в языке Паскаль. Описание и использование функций.
Локальные и глобальные переменные и особенности их использования.
Формальные и фактические параметры функций.
Передача параметров функций по значению.
Передача параметров функций, как переменных.
Передача массивов, как параметров функций.
Возвращаемое значение функции
Выполнение данной работы должно проходить в 4 этапа:
Этап первый. Преобразование основной вычислительной процедуры из предыдущей работы в функцию, возвращающую значение вычисления.
Этап второй. Преобразование процедуры ввода исходных данных в функцию, возвращающую значение ввода без использования параметров-переменных.
Этап третий. Тестирование и доработка программы, если это необходимо.
Общие требования к работе (минимальный уровень, оценка «удовлетворительно»):
Выполнить первый этап работы.
Для защиты на оценку «хорошо»:
Выполнить второй этап работы.
Для защиты на оценку «отлично»:
Выполнить третий этап работы.