36567

Параметры-процедуры и параметры-функции. Процедурный тип

Контрольная

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

Описание процедурных типов имеет форму заголовка процедуры или функции с опущенным её именем: type имя процедурытипа = procedure список формальных параметров ; type имя функциитипа = function список формальных параметров : тип ; Например: type fun =function x:rel:rel; При описании подпрограммы с процедурными параметрами такие параметры указываются формальным именем и соответствующим процедурным типом. Пример процедуры использующей описанный выше процедурный тип fun: procedure print_f n:byte; f:fun; const count = 20; vr X:rel;...

Русский

2013-09-22

30.5 KB

4 чел.

Параметры-процедуры и параметры-функции. Процедурный тип.

Параметры-процедуры и параметры-функции. Процедуры и функции также могут быть параметрами других процедур или функций, что часто используется, особенно в задачах вычислительной математики. В Турбо Паскале имеется весьма гибкий механизм передачи процедур и функций в качестве параметра. Он основан на введении процедурных типов.

Процедурный тип - тип, представляющий семейство процедур или функций для их использования в программе. Как и любой тип Турбо Паскаля, процедурный тип должен быть описан, а затем может быть использован для работы с переменными процедурного типа (или константами). Описание процедурных типов имеет форму заголовка процедуры (или функции) с опущенным её именем:

type < имя процедуры-типа> = procedure ( <список формальных параметров>);

type < имя функции-типа> = function( <список формальных параметров>):<тип>;

Например: type fun =function (x:real):real;

При описании подпрограммы с процедурными параметрами такие параметры указываются формальным именем и соответствующим процедурным типом.

Пример процедуры, использующей описанный выше процедурный тип fun:

procedure print_f (n:byte; f:fun);

const count = 20;

var X:real; j:integer;

begin window(n, 1, n+20, 25);

for j:=1 to count do begin X:=j*(2*pi/count);writeln(X:5:3, f(x):5:5) end

end {print_f};

В программе, где описаны процедурные типы, могут быть объявлены переменные этих типов, которым можно присваивать имена соответствующих подпрограмм, описанных в данной программе, либо эти имена можно использовать как константы при вызове подпрограмм с процедурными параметрами. Стандартные процедуры и функции нельзя непосредственно передавать таким способом, но их можно "подменить" подпрограммами с другими именами, как показано в следующем примере программы на Турбо Паскале:

program grid_functions; { Печать таблицы значений 2-х функций }

uses CRT;

type fun =function (x:real):real;

function sint(x:real):real; {функция sin(x) }

begin sint:=sin(x)

end {sint};

function expcos(x:real); {функция (cos(x)+1)*exp(-x)}

begin expcos:= (cos(x)+1)*exp(-x)

end {expcos};

procedure print_f (n:byte; f:fun); { печать значений функции f}

const count = 20;

var X:real; j:integer;

begin window(n, 1, n+20, 25);

for j:=1 to count do begin X:=j*(2*pi/count);writeln(X:5:3, f(x):5:5) end

end {print_f};

BEGIN { Основная программа } ClrScr;

print_f(1, sint); writeln;

print_f(30, expcos);writeln

END { grid_functions}.

Задача 4.2.6(5)

program alex5;

const n=4;

type mas=array[1..n,1..n]of integer;

var a:mas;

i,j,m:integer;

procedure proc(x:mas;k:integer;var l:integer);

var i:integer;

begin

l:=0;

for i:=1 to n do

if x[i,k]=0 then l:=l+1;

end;

begin

for i:=1 to n do

for j:=1 to n do

read(a[i,j]);

for j:=1 to n do

begin

proc(a,j,m);

if m>0 then for i:=1 to n do

writeln(a[i,j]);

end;

if m=0 then writeln('net stolbcov s nulami');

readln;

readln;

readln;

end.


 

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

36038. Строение и функции клеточного ядра. Деление клеток эукариот. Митоз и мейоз 33 KB
  ДНК спирализуется передделением клетки для более точного распределения генетического материала при делении. Хранение генетической информации и передача ее дочернимклеткам в процессе деления. Митоз тип клеточного деления в результате которого дочерние клетки получают генетический материал идентичный тому который содержался в материнской клетке. Хромосомы спирализуются центриоли у животных клеток расходятся к полюсам клетки распадается ядерная оболочка исчезают ядрышки и начинает формироваться веретено деления.
36039. Формы изменчивости живых организмов. Рекомбинации и мутации 33 KB
  Хромосомные мутации возникают на основе хромосомных перестроек аберраций. Различают внутрихромосомные нехватки дупликации инверсии и межхромосомные транслокации обмен участками негомологичных хромосом иди фрагментов; геномные изменения чисел хромосомгаплоидия полиплоидия анеуплоидия; плазмовые изменения цитоплазматических наследственных структур. Комбинативная; причинами служат все виды скрещивания и гибридизации а также кроссинговер обмен генетическим материалом между гомологичными хромосомами родителей во время...
36040. Необходимость международного сотрудничества в области ООС 33 KB
  Поэтому в настоящее время государства под эгидой ООН или на двухсторонней основе организуют взаимодействие с целью охраны среды обитания человека растительного и животного мира. является специализированным учреждением ООН и занимается вопросами продовольственных ресурсов и раз вития сельского хозяйства в целях улучшения условий жизни народов мира. В соответствии с своей компетенцией она обращает внимание на охрану и рациональное использование земель водных ресурсов лесов и иной растительности животного мира суши биологических ресурсов...
36041. Иван Александрович Гончаров 33 KB
  Роман интересен тем что образ Ильи Ильича Обломова мы можем отождествлять с определенным типом людей живших в России в то время. Любовь их продолжается до тех пор пока Илье не приходится столкнуться с реальной жизнью пока от него не требуется решительных действий пока Ольга не понимает что она любит будущего Обломова. Ни дружба ни даже такая чистая искренняя любовь не смогли заставить Обломова отказаться от своих идеалов: мирной покойной беззаботной жизни плотной еды и безмятежного сна. Родители Обломова понимали важность и...
36042. Дадаи́зм, или дада 32.84 KB
  Считается что дадаизм явился предшественником сюрреализма во многом определившим его идеологию и методы. Основателем и идеологом сюрреализма считается писатель и поэт Андре Бретон. Одними из величайших представителей сюрреализма в живописи стали Сальвадор Дали Макс Эрнст и Рене Магритт. Наиболее яркими представителями сюрреализма в кинематографе считаются Луис Бунюэль Жан Кокто Ян Шванкмайер и Дэвид Линч.
36043. Гидравлические потери напора по длинне 32.53 KB
  ГА в зависимости от назначения характеризуется различными техническими характеристиками: Условный проход Dу Номинальный расход Qн Номинальное давление Рн Условный проход указывается в виде диаметра в мм выбирается из стандартного ряда и примерно соответствует диаметру внутренних каналов в ГА. Номинальный расход и давление расчет значения этих параметров при котором указываются другие технические характеристики и проводятся испытаний ГА. Давление на выходе задается при помощи регулировочного винта который создает нагрузку на...
36044. Экологические проблемы сельского хозяйства. Принципы безопасного применения пестицидов и агрохимикатов в сельском хозяйстве 32.5 KB
  Пестициды это химические или биологические препараты используемые для борьбы с вредителями и болезнями растений сорными растениями вредителями хранящиеся в сельскохозяйственной продукции бытовыми вредителями и внешними паразитами животных а также для регулирования роста предуборочного удаления листьев дефолианты предуборочного подсушивания растений десиканты. В зависимости от объекта воздействия сорная растительность вредные насекомые теплокровные животные и химической природы пестициды подразделяются на: акарициды для...
36045. Понятие о фонеме и звуке. Система гласных и согласных фонем в РЯ 32.5 KB
  В языке действует строгий закон: отождествляются звуки различия между которыми связаны с разными условиями их произнесения. Звуки это разные звуки но говорящий обычно этой разницы не замечают: для них и [з˙] одна языковая еденица. В словах бар бор бур звуки [а] [о] [у]. Все звуки находящиеся в пределах этой зоны отождествляются говорящими и воспринимаются как один и тот же звук.
36046. Консервативная политическая мысль России 19 века, ее черты 30.5 KB
  Основа К: идея традиции и преемственности как основа всякой творческой жизни сохранение традиции но что считать традицией Пол традиции Др Руси утрачены благодаря П1 петровские преобразования нельзя было считать традицией тк они еще не были укоренены в народе только в верхах инновации как традиции еще не закрепились прошло 100 лет. Чаадаев Философическое письмо славянофилы Хомяков Киреевский Аксаков Самарин поздние славянофилы Данилевский Россия и Европа теория лок цций Леонтьев Россию нужно подморозить задержать...