1 / 7

Процедуры и функции

Примеры использования пользовательских процедур и функций в программах на языке Паскаль

guest65076
Download Presentation

Процедуры и функции

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript


  1. Процедуры и функции

  2. Процедуры Процедура - последовательность действий, названная каким-либо именем. Для того чтобы выполнить процедуру, нужно в соответствующем месте программы указать её имя. Примеры: Writeln, Delete. В программе можно использовать собственные процедуры.

  3. Процедуры Те действия, которые входят в процедуру, записываются до начала основной программы в следующем виде: program ... const ... var ... procedureMyProc; begin {действия} end; begin {основная программа} end.

  4. Пример 1. Нахождение максимума из трёх чисел. 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); end.

  5. Пример 2. Нахождение максимума из трёх чиселс использованием процедуры. program Max2; vara,b,c,m: integer; procedureFindMax; begin if a>b then m:=a else m:=b; if c>m then m:=c; end; begin write('Введите a: '); readln(a); write('Введите b: '); readln(b); write('Введите c: '); readln(c); FindMax; writeln('Максимум = ',m); end.

  6. Пример 3. Процедуру можно использовать для любых чисел, результат помещать в нужную переменную. program Max3; vara,b,c,m: integer; procedureFindMax(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,c,m); writeln('Максимум = ',m); FindMax(a+b,b+c,a+c,m); writeln('Максимумизсумм = ',m); end.

  7. Пример 4. Нахождение максимума из трех чисел с использованием функции program Max4; vara,b,c,m: integer; function Max(n1,n2,n3: integer) : integer; var m: integer; begin if n1>n2 then m:=n1 else m:=n2; if n3>m then m:=n3; Max:=m; end; begin write('Введите a: '); readln(a); write('Введите b: '); readln(b); write('Введите c: '); readln(c); m:=Max(a+b,b+c,a+c); writeln('Максимум = ‘,m); end.

More Related