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.


 

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

12363. Исследование характеристик продольного датчика Холла 266.5 KB
  Лабораторная работа № 14 Исследование характеристик продольного датчика Холла. 1. Цель работы: Изучение эффекта Холла. 2. Эффект Холла. Эффект Холла заключается в том что если пропустить через металлическую или полупроводниковую пластину рис.14.1. электрический то
12364. Вихревое электрическое поле 3.2 MB
  3 Лабораторная работа № 13 Вихревое электрическое поле 1. Цель работы. Изучение вихревого электрического поля при изменении магнитного поля в соленоиде. 2. Электромагнитная индукция. Вихревое электрическое поле. Явление электромагнитной индукции...
12365. Изучение явления магнитного гистерезиса 4.23 MB
  17 PAGE 16 Лабораторная работа № 12 Изучение явления магнитного гистерезиса 1. Цель работы. Проведение измерений цикла перемагничивания ферромагнетика. 2. Электронный осциллограф. Прибор предназначен для исследования быстропеременных периодичес
12366. Измерение магнитной проницаемости ферромагнетика индукционным методом 249 KB
  Лабораторная работа № 11 Измерение магнитной проницаемости ферромагнетика индукционным методом 1. Цель работы: Измерить магнитные проницаемости образцов стали и феррита индукционным методом. 2. Магнитные свойства вещества. Нейтральные молекулы и атомы веществ
12367. Измерение магнитного поля постоянного кольцевого магнита 226 KB
  Лабораторная работа № 10 Измерение магнитного поля постоянного кольцевого магнита 1. Цель работы. Измерить магнитное поле на оси постоянного кольцевого магнита и рассчитать его параметры. 2. Магнитные свойства вещества. Постоянные магниты. Нейтральные молекулы
12368. Магнитное поле Земли. Измерение горизонтальной составляющей магнитного поля Земли 141 KB
  Измерение горизонтальной составляющей магнитного поля Земли. Цель работы: измерение горизонтальной составляющей магнитного поля Земли. Магнитное поле Земли. Магнитное поле Земли подобно полю равномерно намагниченного шара. Полюса м
12369. Измерение магнитного поля на оси катушек Гельмгольца 247.5 KB
  Лабораторная работа № 8 Измерение магнитного поля на оси катушек Гельмгольца 1. Цель работы: измерение магнитного поля на оси катушек Гельмгольца индукционным методом. 2. Магнитные поля токовых систем. Магнитное поле постоянных токов изучалось Био и Саваром окон...
12370. Изучение магнитного поля на оси соленоида 280.5 KB
  Лабораторная работа № 7 Изучение магнитного поля на оси соленоида 1. Цель работы: экспериментальное исследование магнитного поля на оси соленоида. 2. Магнитные поля токовых систем. Магнитное поле постоянных токов изучалось Био и Саваром окончательная формулировк...
12371. Измерение магнитного поля прямолинейного проводника с током 228 KB
  Лабораторная работа № 6 Измерение магнитного поля прямолинейного проводника с током 1. Цель работы: экспериментальное исследование магнитного поля прямолинейного проводника с током индукционным методом. 2. Магнитные поля токовых систем. Магнитное поле постоян