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.


 

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

66314. Let’s become closely acquainted with Foggy Albion 74.5 KB
  Hello everybody! Glad to see you! Ladies and gentlemen! Welcome to Albion, where according to Bernard Shaw the mist is considered to be good weather, the rain is considered to be the fog, and the shower is said to be the rain. The Sun there looks like the Moon, and the Moon looks like cheese.
66315. Слова протилежні за значенням (антоніми) 1.25 MB
  Слова протилежні за значенням антоніми. Обладнання: картинки дня і ночі картки з тестами завдання для роботи в парах малюнок равлика та коня таблички зі словами девізу уроку. Багатозначними є слова: а сміливий золотий; б гребінець ключ лінійка; в шарф злий.
66316. Колективне виконання аплікації із тканини. Декоративна композиція із плодів та листя калини 41 KB
  Предмети декоративно ужиткового мистецтва; мультимедійна презентація Калина; калина на картинах художників; ілюстрації із зображенням калини; орнамент; тлумачний словник; алгоритм. Калина над плетеним тином Усе це моя Україна Повідомлення...
66317. ПРАЗДНИК УРОЖАЯ 123.5 KB
  О том что фрукты и в том числе яблоки полезны знает каждый. Ей не хотелось быть невежливой но яблоки были такие кислые Летели с юга осы попробовали яблочки разжужжались расплевались Яблонька горько заплакала. Очень ее яблоки кислые.
66318. Мій вибір – здорове життя 102 KB
  Проблема здоров’я людини – одна із найактуальніших проблем сьогодення. В Україні внаслідок несприятливих умов життя збільшується кількість захворювань серед підростаючого покоління, тому збереження здоров’я учнів виходить за межі медичної проблеми, стає соціальною.
66319. На балу у Осени 55 KB
  Ведущая Давайте ребята к нам на праздник приведем Осень Зима красавица суровая Ты подожди ты не спеши Деревья желтые багровые Так праздничны Так хороши И о тебе зиме сверкающей...
66320. Три мушкетёра. 10 лет спустя 155 KB
  Школа Равнение на выпускников школы 2009-2010 Звучит Муз 3; выпускники по одному выходят через арку на сцене спускаются в зал девочкам помогает спуститься со сцены юноша и рассаживаются на свои места.: Все стало так как вы хотели И вот настал...
66321. Сказка о попе и работнике его Балде 237.5 KB
  Пушкиным Сказки Пушкина мы читаем в детстве и с уверенностью считаем что до конца разобрались в этом вопросе что никаких загадок в нем больше нет. Практически все сказки в разное время были написаны Пушкиным в имении Болдино.
66322. БАСКЕТБОЛЬНОЕ ШОУ 31 KB
  В нашей программе вы увидите выступление баскетболистов профессионалов нашей школы конечно это не профессионалы НБА но тем не менее вы сможете увидеть виртуозное ведение мяча точные броски молниеносные передачи