Процедуры без параметров

1. Наберите программу вычисления наименьшего общего кратного двух натуральных чисел НОК (х, у ) с использованием процедуры без параметров. __

Program АВС13;

Constc: array [1.. 5 ] of integer = (36,54,72,18,15);

Varx,y,i,m: integer;

Procedure NOD; { заголовок процедуры }

Var a, b: integer; {локальные переменные}

Begin

A: = x;b:=y;

While a < > b do If a > b then a : =a - b Else b: =b - a;

M: = a; {глобальная переменная}

End; {конец процедуры}

Begin X: = с [ 1 ];

For I: = 2 to 5 do

Begin

Y: = c[i];

NOD; { вызов процедуры без параметров }

X: = x*ydivm;

End;

Write (‘НОК = ’,x);

Readln;

End.

Type R = array [1..n] of real;

Var Y: R; A, В, C: real; I: integer;

Procedure Start (X: R; var S, min, max: real);

Begin S: = 0;

min: = X [ 1 ]; max: = X [ 1 ];

For i: = 1 to n do Begin

S: = S + X[i];

If X [ i ] < min then min: = X[ i ];

If X [ i ] > max then max: = X[ i ];

End;

S: = S/n End;

Begin {главная программа}

For I : = 1 to n do Read(Y[i ]);

Stat (Y, A, В, С); {вызов процедуры с параметрами }

Writeln;

Wnite (‘ среднее = ‘, A, ’ наименьшее = ‘, В, ’ наибольшее =¹, С); Readln;

End.

Откопируйте программу, запустите ее на выполнение. Введите следующие данные: 2 12 22 222 3 13 33 333 15 55, нажимая после каждой цифры клавишу Enter. Просмотрите результат Сохраните программу на носителе, создайте .ехе - файл.

Практическое задание №11 Подпрограммы - функции

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

Function- имя функции (описание входных данных):

Тип - результата;

{описания локальных переменных} begin

{операторы}

имя функции : = результат; end;

После описания формальных параметров, которые являются аргументами функции, в заголовке указывается тип результата, т.е. тип самой функции. Это описание относится к имени функции, которому необходимо присвоить значение результата работы подпрограммы. Имя функции нельзя использовать для промежуточных вычислений. Функция вызывается с помощью указателя.

Указатель - это имя функции, после которого в круглых скобках перечислены фактические параметры-аргумекты функции.

Указатель имеет вид:

Имя_ функции (список фактических параметров)

Указатель может появиться в выражении соответствующего типа, в операторах условия IF, White и Repeat после слова Until, а также в операторе печати Write . Примерами являются встроенные арифметические функции, такие как sin (х); Write (sin (х));

1. Наберите программу вычисления наименьшего общего кратного.

Program АВС15;

const с: array [1.. 5] of integer = (36,54,72,18,15); varx,y,l: integer;

Function NOD (a, b: integer): integer; {заголовок функции }

begin

While a < > b do IF a > b then a: = a - b else b: = b-a;

NOD: = а {результат работы функции присваивается ее имени} end; {конец описания функции} begin {начало главной программы } х: = с [1 ];

For I: = 2 to 5 do

begin

y: = c[i];

x: = x * ydivNOD(x,y); {вызовфункции} end;

Write (‘HOK = ’,x);

Readln; end.

Откомпилируйте программу, запустите ее на выполнение. Просмотрите результат. Сохраните программу на носителе, создайте .ехе-файл.