Курсовая работа: Приложения технологии языка программирования Паскаль в прикладной механике

end;

begin

write(' Введите a: '); readln(a);

write(' Введите b: '); readln(b);

write(' Введите c: '); readln(c);

FindMax;

writeln(' Максимум = ',m);

readln ;

end.

Этот вариант можно улучшить. Пока наша процедура может искать минимум только среди значений конкретных переменных a, b и c . Заставим её искать минимум среди любых трёх целых чисел и помещать результат в нужную нам переменную, а не всегда в m . Чтобы была видна польза от такой процедуры, рассмотрим пример программы для поиска максимума среди чисел a+b, b+c и a+c :

Program Max3;

var a,b,c,m: integer;

procedure FindMax(n1,n2,n3: integer; var max: integer);

begin

if n1>n2 then max:=n1 else max:=n2;

if n3>max then max:=n3;

end;

begin

write (' Введите a: '); readln(a);

write (' Введите b: '); readln(b);

write (' Введите c: '); readln(c);

FindMax (a+b,b+c,a+c,m);

w riteln ('Максимум из сумм = ',m);

readln;

end.

В скобках после имени процедуры (в её описании) записаны так называемые параметры. Эта запись обозначает, что внутри процедуры можно использовать целые числа, обозначенные n1, n2 и n3 , а также заносить значения в переменную типа integer , которая внутри процедуры называется max (а реально во время работы программы все действия производятся над переменной m ). Параметры, в которых хранятся числа (n1,n2,n3 ) называются параметрами-значениями; а те, которые обозначают переменные (max ) (параметрами-переменными, перед ними в описании ставится слово var. Параметры, на которые имеются ссылки внутри процедуры (n1, n2, n3, max ), называются формальными, а те, которые реально используются при вызове (a+b, b+c, a+c, m ) — фактическими.

Процедуры последнего вида оказываются достаточно удобными. Можно один раз написать такую процедуру, убедиться в её работоспособности и использовать в других программах. Примерами таких процедур являются процедуры для работы со строками, встроенные в Турбо Паскаль.

В нашем примере можно переписать программу и по-другому. Максимум из трёх чисел определяется по ним однозначно, или, говоря математическим языком, является функцией этих трёх чисел. Понятие функции есть также и в Паскале. Рассмотрим такую программу:

Program Max4;