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

TopText (позиция является верхним краем изображения);

Процедура (последовательность действий (записанных на Паскале), названная каким-либо именем. Для того чтобы выполнить эту последовательность, нужно в соответствующем месте программы указать её имя (так, например, для очистки экрана при работе с графикой мы указываем ClearDevice; ). Кроме того, что программа становится при использовании процедур короче и понятнее, процедуры можно вызывать из разных мест программы (в противном случае пришлось бы повторять в тексте программы одинаковые последовательности действий несколько раз).

Те действия, которые входят в процедуру, записываются до начала основной программы в следующем виде:

program ...

const ...

type ...

var ...

procedure MyProc;

begin {действия}

end;

begin {основная программа}

end.

Рассмотрим пример нахождения максимума из трёх чисел:

Program Max1;

var a,b,c,m: integer;

begin

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

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

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

if a>b then m:=a else m:=b;

if c>m then m:=c;

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

readln;

end . {Перепишем его с использованием процедуры:}

program Max2;

var a,b,c,m: integer;

procedure FindMax;

begin

if a>b then m:=a else m:=b;