36570

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

Контрольная

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

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

Русский

2013-09-22

30 KB

3 чел.

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

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

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

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.


 

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

72653. Алфавит и имена переменных 13.42 KB
  Все другие ASCII символы могут применяться только в символьных константах. Пробелы используются для удобочитаемости программ. Они игнорируются компилятором, если не находятся внутри символьной константы.
72654. Алгоритм 16.96 KB
  Часто в качестве исполнителя выступает некоторый механизм компьютер токарный станок швейная машина но понятие алгоритма необязательно относится к компьютерным программам так например чётко описанный рецепт приготовления блюда также является алгоритмом в таком случае исполнителем является человек.
72655. Операционная система 22.05 KB
  Программы составляющие ПО можно разделить на три группы: системное ПО системы программирования прикладное ПО. Структуру ОС составляют следующие модули: базовый модуль ядро ОС управляет работой программы и файловой системой обеспечивает доступ к ней и обмен файлами между периферийными устройствами...
72656. Способы описания алгоритмов 14.12 KB
  Алгоритм может быть следующим: задать два числа; если числа равны то взять любое из них в качестве ответа и остановиться в противном случае продолжить выполнение алгоритма; определить большее из чисел; заменить большее из чисел разностью большего и меньшего из чисел...
72659. Разработка путей снижения затрат на производство и реализацию продукции предприятия РУП «Негорельский КХП» 2.06 MB
  Себестоимость широко применяется для экономического обоснования решений о производстве новой или прекращении выпуска устаревшей продукции, для определения эффективности мероприятий научно – технического прогресса, продажных цен, рентабельности изделий, резервов экономии затрат.
72660. Анализ финансового состояния предприятия ООО «Лента» и пути его улучшения 1.35 MB
  Финансовый анализ предприятия является научной базой принятия управленческих решений в бизнесе. Для их обоснования необходимо выявлять и прогнозировать существующие и потенциальные проблемы, производственные и финансовые риски, определять воздействие принимаемых решений на уровень рисков...
72661. Побудительное наклонение в японском, русском и английском языках: сходство и различия при переводе на русский и английский 208 KB
  Целью исследования является проведение анализа переводов произведения А.П. Чехова «Вишневый Сад» на английский и японский языки с точки зрения способов передачи в них побудительного наклонения, сопоставление особенностей этих переводов с языком оригинала, а также выявление сходств и различий побудительного...