36570

Процедура: описание и вызов процедуры

Контрольная

Информатика, кибернетика и программирование

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

Русский

2013-09-22

30 KB

5 чел.

Процедура: описание и вызов процедуры.

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

Синтаксическая форма описания процедуры имеет вид:

procedure <имя процедуры> (< список формальных параметров >);

< описание локальных имен процедуры >

begin

< тело процедуры - последовательность операторов процедуры >

end;

Раздел описаний процедуры содержит описание всех локальных имён, используемых в разделе операторов процедуры. Локальными называются имена, которые объявлены в данной процедуре (эти имена теряют свои значения при выходе из процедуры). Часто локальными именами являются вспомогательные переменные, необходимые для выполнения вычислений в процедуре, ими могут быть и другие процедуры или функции.

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

собой еще один механизм передачи параметров между процедурой и внешней средой.

Выполнение процедуры заканчивается либо при достижении слова end, завершающего раздел операторов, либо при выполнении оператора exit.

Вызов процедуры имеет следующую синтаксическую форму:

<имя процедуры>(<список фактических параметров>);

где фактические параметры перечисляются в списке через запятую.

Пример программы на Турбо Паскале, использующей процедуру:

program triangle1;{Программа, вычисляющая длины сторон треугольника АВС}

 uses CRT;

 type point = array [1..2] of real; {тип- точка на плоскости}

 var A,B,C:point; {вводимые точки}

AB,BC,AC:real; {стороны треугольника}

ch:char;

procedure d(X,Y:point; var r:real);{ расстояние между точками X и Y }

 begin r:= sqrt(sqr(X[1]-Y[1])+sqr(X[2]-Y[2])) end { d};

 BEGIN TextBackground(cyan);TextColor(white);ClrScr;

window(10,5,60,10);TextBackground(green); ClrScr;

 repeat

writeln(' Введите координаты вершин A,B,C:');

writeln('A[1] A[2] B[1] B[2] C[1] C[2] '); readln(A[1],A[2],B[1],B[2],C[1],C[2]);

writeln(' Длины сторон треугольника АВС:');d(A,B,AB);d(B,C,BC);d(A,C,AC);

writeln(' AB=', AB:2:2,' AC=', AC:2:2,' BC =', BC:2:2); readln(ch)

 until ch=' ';

END {triangle1}.

Задача 4.2.6(8)

program alex8;

type mas=array[1..4,1..5]of integer;

var a:mas;

i,j,x,y:integer;

procedure raz(b:mas;n,m:Integer;var d:integer);

var i,j:integer;

begin

d:=0;

for i:=n to m do

for j:=1 to 5 do

if b[i,j]=0 then d:=d+1;

end;

begin

for i:=1 to 4 do

for j:=1 to 5 do

read(a[i,j]);

raz(a,1,2,x);

raz(a,3,4,y);

if x>y then Writeln('v verhnei bolshe')

else if x<y then Writeln('v niznei bolshe');

if x=y then Writeln('odinakovo');

readln;

end.


 

А также другие работы, которые могут Вас заинтересовать

41872. Зерновая характеристика угольной пыли и её представление 57.67 KB
  Зерновая характеристика угольной пыли и её представление. Тонкость помола или дисперсность угольной пыли определяют рассевом её пробы на рассевочной машине оснащённой набором сит с размерами отверстий от 50 до 1000 мкм. Коэффициент полидисперсностиnхарактеризует структуру пыли с точки зрения равномерности помола топлива. Чем выше n тем менее отличаются своим размером частицы пыли друг от друга.
41873. MS Access 2007: Создание запросов 351.77 KB
  Для вывода на экран БЛАНКА ЗАПРОСА необходимо: вкладка Создание группа команд Другие Конструктор запросов; в появившемся диалоговом окне Добавление таблицы выделите удерживая нажатой левую кнопку мыши все таблицы; щелкните по кнопкам Добавить и Закрыть; на экран будет выведено окно Конструктора запросов. В нижней панели пустой бланк запроса. Назначение строк бланка запроса: Поле Указываются имена полей участвующих в запросе Имя таблицы Автоматически выводятся имена таблиц соответствующих выбранным полям Групповая операция...
41874. Ознакомиться с основными положениями теории погрешности, измерить высоту, диаметр и объем цилиндра. Правильно обработать результаты измерений 54.31 KB
  В результате проделанной работы ознакомились с основными положениями теории погрешности, рассчитали относительную погрешность измерений.
41876. Исследования трения в резьбовых соединениях 64.49 KB
  Экспериментально определить значения коэффициентов трения в резьбе и на торце гайки; проверить теоретическую зависимость между осевым усилием на болте Fα и моментом завинчивания Тзав. № показаний К2 ед Fα по 17 Н K2ед Тзав по 18 Нмм 1 2 3 4 5 График зависимости Тзав= f Fα Определение коэффициентов трения. Сила затяжки FаН Тзав Нмм f1 по 8 f по 4 025...
41877. ТОТАЛИТАРИЗМ КАК ПОЛИТОЛОГИЧЕСКИЙ КОНЦЕПТ: ТРАНСФОРМАЦИЯ ПОНЯТИЯ 346 KB
  В результате своеобразной дефрагментации понятия тоталитаризм в последние десятилетия научное познание этого явления оказалось в серой зоне неопределенности: старые теории объективно отмирают но новые концепции не успевают их замещать
41878. Создание сложных комплексных объектов в 3D MAX 1.88 MB
  Выберите в Меню создание формы линии на панели инструментов Object Type сплайны. Для этого задайтесь замкнутыми сплайнлиниями выберите Strt New Shpes сплайны и Линия Нарисуйте несколько замкнутых линий. Вернитесь в раздел геометрия выберите раздел Compound Objects на закладку ландшафт Terrin В пункте Pick Opernd выберите Pick Opernd и Reference. Выберите 2 объемные фигуры сферу и цилиндр или другие.
41879. Сброс и подбор пароля Windows7 1.49 MB
  Сброс пароля Windows7 На многих компьютерах ноутбуках и других устройствах под управлением Windows 7 пользователи устанавливают пароли на вход.Сброс пароля Windows 7 при помощи командной строки Для реализации этого способа необходим доступ к командной строке с правами Администратора.Сначала нам необходимо создать установочный диск или флешку с Windows 7.Загружаемся с диска и запускаем установку:Нажимаем Далее:Щелкаем по ссылке Восстановление системы:Немного ждем пока происходит поиск установленных Windows выбираете вашу Windows 7 и...
41880. Создание документов с помощью функции слияния 202.6 KB
  Принцип слияния: при подготовке серийного документа используются файл с основным документом и файл источника данных. В основной документ вставляются поля подстановки или поля слияния в которые затем и помещаются переменные данные в результате чего образуется готовый документ. Во время слияния MS Word строит на основе этих файлов множество необходимых документов.