begin. fori:=pk topn do

⇐ ПредыдущаяСтр 5 из 6Следующая ⇒

begin

writeln ('Введите два числа: ');

readln (k, l);

exchange (k, l);

writeln ('k = ', k, '; l = ', l);

readln

end.

Обучающиеся самостоятельно пишут программу.

Закрепление изученного материала. Изучение нового материала.

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

Пример №5 (сумма чисел из заданного диапазона значений):

program proc;

uses crt;

var k, n, r: integer;

//начало описания процедуры

procedure sum(pk, pn: integer; var rez: integer);

var i: integer;

begin

rez: =0;

fori: =pk topn do

rez: =rez+i;

write('Сумма диапазона = ', rez: 3);

end;

//конец описания процедуры

begin

clrscr;

write('Начальное значение = '); readln(k);

write('Конечное значение = '); readln(n);

sum(k, n, r); //вызов процедуры

end.

Программа выводит сумму целых чисел заданного диапазона. Имя процедуры прописано после служебного слова, определяющего, что создана именно процедура. Далее идет заголовок, где первые две переменные – это формальные параметры, в которые передается значение от фактических k и n. Переменная rez возвращает результат и называется параметром-переменной (определяются после слова Var), а k и n – параметрами-значений. Локальная переменная – i, она описана сразу после заголовка процедуры. Вызывая, в основной части программы процедуру sum, в качестве передаваемых параметров мы указали три целочисленных переменных. Заметьте, что их количество соответствует числу формальных параметров. Порядок также важен, т. е. в переменную pk передается значение переменной k, в pn значение n и т. д.

В вышеизложенном примере было бы вполне уместным не использовать параметр-переменную rez, а определить ее локально. В этом состоит различие между процедурами и функциями в Pascal.

Пример №6 ( вычислить наибольший общий делитель двух целых чисел) :

program func;

uses crt;

⇐ Предыдущая 1 2 3 456 Следующая ⇒