Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Если вычисление суммы двух чисел реализовать с помощью процедуры, то процедура выглядела бы так:
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 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!