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.


 

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

38925. Основные алгоритмы телевизионных измерений 167 KB
  Алгоритмы предназначены для измерения геометрических энергетических и цветовых параметров протяженного объекта находящегося в поле зрения ТВД. Употребляемый по отношению к алгоритмам термин внутрикадровые означает чтo измерение параметра объекта выполняется на основе информации сосредоточенной в одном телевизионном кадре. Результат однократного измерения характеризует состояние объекта в момент съемки текущего кадра. Пересчет цифрового параметра объекта в его значение выраженное в соответствующих единицах измерения производится по...
38926. Межкадровая фильтрация и измерение динамических параметров 56 KB
  Кроме того изменения параметров динамического объекта за время Тк невелики опять же не всегда а в подавляющем большинстве случаев. применение к последним межкадрового усредения приведёт скорее всего к нежелательным последствиям например размазыванию изображения движущегося объекта. Но обычно перед ТВсистемами стоит задача измерения динамических параметров в частности непрерывный контроль за текущим состоянием объекта которые не могут быть определены однократным измерением. Так например скорость объекта где – положения...
38927. Представление и преобразование цифровых сигналов в телевизионных измерительных системах 31.5 KB
  Оцифровка представление объекта изображения или сигнала в дискретном наборе цифровых замеров. Для решения задач машинной графики обработки и распознавания изображений используются следующие этапы преобразования изображения: Предварительная обработка – операции восстановления фильтрации улучшения визуального восприятия изображения. Формирование графического препарата – обработка с целью вычленения характерных особенностей изображениясегментация выделение контуров скелетизация Анализ – выявление характерных особенностей...
38928. Простой пороговый метод нелинейной фильтрации импульсных помех 51.5 KB
  Сигнал от каждого из элементов массива анализируемого изображения сравнивается со средним значением сигнала для небольшой группы mxn в окрестностях данного элемента Здесь m и n – нечётные числа. Анизотропная фильтрация Анизотропная фильтрация относится к категории линейных процедур цифровой обработки массива [Eij ]. Он заключается выполнении операции свёртки исходного массива изображения формата M×N со скользящим сглаживающим массивом [W] меньшего формата m×n ядро свёртки. А поскольку в АТСН работающих в реальном масштабе времени...
38929. Цифровое представление изображения в виде матрицы отсчетов. Преимущество цифрового кодирования видеосигнала 66 KB
  Цифровое представление изображения в виде матрицы отсчетов. Это позволяет пронумеровать отсчеты цифрового видеосигнала в соответствии с позиционным положением элемента изображения в телевизионном растре и nti = ni j где i номер элемента в строке; j номер строки. Фактически номера i j являются цифровыми координатами элемента изображения которые в случае линейных разверток связаны с временными и геометрическими координатами соотношениями где j порядковый номер строки в которой находится элемент изображения; tx интервал...
38930. Линейные цифровые фильтры и их характеристики 47 KB
  Под термином цифровая фильтрация обычно понимают локальную цифровую обработку сигнала скользящим окном или аппертурой. Для каждого положения окна за исключением возможно небольшого числа крайних точек выборки выполняются однотипные действия которые определяют так называемый отклик или выход фильтра. Если действия определяющие отклик фильтра не изменяются в процессе перемещения по выборке сигнала то соответствующий фильтр называется стационарным. Различают линейную и нелинейную цифровую фильтрацию.
38931. Развитие видеозаписи на дисках. Видеопроигрыватели Laser Vision. Структурная схема и принцип работы 265 KB
  Диаметр 30 см; Длительность 30 мин. Диаметр 30 см; Длительность 5 мин; 156 об мин. Диаметр 21 см; Длительность 10 мин цвет; 1500 об мин; 280 канавок мм; четкость 250 линий. Диаметр 30 см; длительность 30 мин; четкость 250 линий.
38932. Цифровая запись видеосигнала. Достоинства по сравнению с аналоговой. Основные принципы цифровой видеозаписи 60 KB
  Цифровая запись видеосигнала пришла на смену аналоговым носителям как более гибкое и удобное средство формирования транспортировки и хранения видеоданных. аналоговый сигнал сглаживается менее подверженным искажениям менее зависимым от аппаратной реализации воспроизведения расширяются возможности обработки сигнала Требования к АЦП: Частота квантования – не менее 135 МГц Число разрядов – не менее 8 Число каналов: Для чернобелого – 1 Для цветного – 3 или 2 Дискретизация: Дискретизация дает некоторые искажения: Стоит...
38933. Компрессия с потерей информации. Свойства зрения, используемые для сжатия ВС. Основные методы компрессии с потерей информации 46 KB
  Наибольшее распространение для сжатия движущихся изображений получил стандарт MPEG. MPEG англ. MPEG стандартизовала следующие стандарты сжатия: MPEG1: Исходный стандарт видео и аудио компрессии. MPEG2: видео и аудиостандарты для широковещательного телевидения.