36570

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

Контрольная

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

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

Русский

2013-09-22

30 KB

4 чел.

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

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

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

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.


 

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

43730. БЕЗОПАСНОСТЬ В ЧРЕЗВЫЧАЙНЫХ СИТУАЦИЯХ 807.08 KB
  Список сокращений: ДП дипломный проект ХОО химически опасный объект ОХД объект хозяйственной деятельности ОХВ опасное химическое вещество РГР расчётнографическая работа КИП контрольноизмерительные приборы ППР плановопредупредительные работы Общие положения В соответствии с п. Необходимо дать определения что такое ОХВ где они используются.6; dплотность ОХВ т м 3 таблица 9[17] d= 0. Мероприятия по защите рабочих и служащих ОХД указать: Выводы: Объект оказался не оказался в зоне химического...
43731. Экономические отношения в рамках международных организаций 291 KB
  На современном этапе развития эта работа является первой по тематике международно-правовых аспектов экономических отношений России и Китая. Таким образом, научную разработанность данной темы нельзя признать достаточной – она требует глубокого анализа
43732. Экономический анализ проведенных проектных работ и их внедрение в условиях предприятия ООО «Агрохмель» 12.55 MB
  Климат хозяйства характеризуется умеренно-прохладным. Солнечных дней в году около 110. Среднегодовая температура воздуха положительная и равна +2,2 градуса Среднегодовое количество осадков 427 мм, а во время вегетационного периода 300-390мм. Почвы в среднем промерзают на 63 см.
43733. Оптимізація виробництва деталі маточина переднього колеса 399.47 KB
  Опис призначення й умов роботи деталі. Хімічний склад механічні властивості матеріалу деталі. Аналіз технологічності деталі. Проектування маршрутного технологічного процесу виготовлення деталі.
43735. Создании базы данных для построения крепёжных деталей 3.34 MB
  Исходное информационное обеспечение. Обеспечить пользователя необходимой информацией о крепёжных деталях. Решение: Использование формы в которых будет содержаться необходимая информация о крепежных элементах. Создать программу которая позволила бы обрабатывать сортировать и изменять информацию о крепёжных элементах.
43736. Реализация базы данных центра занятости 587.17 KB
  С чисто практической точки зрения базы данных позволяют избавиться от большого количества бумажных документов и значительно ускорить поиск и внесение информации. Цель данного курсового проекта реализация базы данных центра занятости. Для выполнения работ в базе данных необходима авторизация с помощью пары...
43737. Система управління складським обліком продовольчих товарів 24.23 MB
  Завдяки використанню топології складських приміщень, система наочно відображає завантаженість товаром осередків та стелажів Грамотна організація роботи підприємств складського комплексу веде до підвищення продуктивності праці, скорочує витрати робочого часу на виконання складських операцій і дозволяє ефективно використовувати складські приміщення. Все це сприяє підвищенню економічної ефективності підприємства.
43738. Обґрунтування роздільної технології збирання льону-довгунця з використанням льонопідбирача-молотарки ПМЛ-1 в Інституті луб’яних культур 1.64 MB
  Первинна очистка насіння здійснюеться на чотирьох машинах ОВС-25, великі партії насіння до посівних кондицій доробляються на двох лініях, одна з яких змонтована з послідовно підключених Петкусі-Гігантів, друга являе з себе комплекс КЗС-40, переобладнаний зерноочисними машинами фірми “Петкус”. Доробка машин малих парків насіння здійснюется на чотирьох Петкус-Суперах і одному Петкус-Гіганті.