Студопедия.Орг Главная | Случайная страница | Контакты | Мы поможем в написании вашей работы!  
 

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



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

Procedure sum(a,b:real;var c:real);

Begin

c:=a+b;

Writeln;

End;

А обращение к ней, например, для вычисления суммы чисел 2 и 3 и записи результата в переменную rez выглядело бы так:

Sum(2,3,rez);

Чтобы вычислить сумму чисел 356 и 752, а затем записать результат в переменную А, следовало бы вызвать процедуру таким образом:

Sum(356,752,A);

Здесь при описании процедуры

Sum – имя процедуры;

Переменные a, b, c – формальные параметры.

При вызове процедуры 2, 3, rez, 356, 752, А – фактические параметры.

Пример

Процедура вызова матрицы на экран

! Замечание. Если в качестве параметра подпрограмме необходимо передать массив, то необходимо заранее описать такой тип данных. Нельзя в заголовке процедуры описать тип Массива.

Type

matr: array[1..10,1..10] of real;

….

procedure Vivod_matr(A:matr);

var I,j: byte;

Begin

for i:=1 to 10 do

write(A[I,j]:5:2,’ ‘);

Writeln;

End;

End;

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

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

Vivod_matr(A);

Vivod_matr(B);

Вычислить∑матриц

Vivod_matr(C);

! Необходимо соблюдать соответствие фактических и формальных параметров. Количество и тип формальных параметров должно быть равно количеству и типу фактических параметров.

Пример

Разработаем процеуру, которая задает фон и цвет выводимых символов.

procedure FonColor (Fon, Color:byte);

Begin





Дата публикования: 2014-11-18; Прочитано: 521 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!



studopedia.org - Студопедия.Орг - 2014-2024 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.006 с)...