Информатика 2 сем / Учебник по языку Паскаль

Рисунок 8.19 Тестовый пример к задаче

Блок-схема основной программы и всех процедур представлены на рис. 7.20 – 7.23.

По блок-схеме составим программу. program Files_3;

type Tfl = file of real;

T2mx = array[1..10, 1..10] of real; T1mas = array[1..100] of real;

var F: Tfl;

A:T2mx;

B:T1mas; Na,Ma,K: byte;

{******Процедура ввода файла*******}

procedure InputFile(var X:Tfl; const Name:char); var i,N,M: byte;

buf: real; begin

rewrite(X);

writeLn('N, M равны :'); readLn(N,M);

while (N<1) or (M<1) do begin

writeLn('N и M должны быть положительными'); writeLn('N, M равны :');

readLn(N,M);

end;

write(X,N,M);

procedure FormVector(var X: Tfl;

мar Vect: T1mas; var I:byte)

Рисунок 8.23 а) – формирование вектора; б) – вывод вектора

{****** Процедура формирования матрицы ******}

procedure FormMatrix(var X: Tfl; var Matr: T2mx; var N,M: byte);

var i,j: byte;

buf1, buf2, buf: real; begin

reset(X);

read(X,buf1,buf2); N:= round(buf1); M:= round(buf2);

for i:= 1 to N do for j:= 1 to M do

begin read(X,buf); Matr[i,j]:=buf;

end;

close(X);

end;

{****** Процедура вывода матрицы ******}

procedure OutputMatrix(const Matr:T2mx; const N,M: byte);

var i,j : byte; begin

writeLn('Матрица:'); for i:= 1 to N do

begin

for j:= 1 to M do write(Matr[i,j]:7:2);

writeLn;

end;

end;

{****** Процедура нормировки матрицы ******}

procedure NormMatrix(var Matr:T2mx; const N,M: byte); var i,j : byte;

Max: real; begin

max:= Matr[1,1]; for i:= 1 to N do

for j:= 1 to M do

if Matr[i,j] > Max then Max:= Matr[i,j];

for i:= 1 to N do for j:= 1 to M do

Matr[i,j]:= Matr[i,j]/Max;

end;

{**** Процедура записи матрицы обратно в файл ****}

procedure FormFile(var X:Tfl; const Matr:T2mx; const N,M:byte);

var i,j : byte; buf: real; begin

rewrite(X); write(X,N,M); for i:= 1 to N do

for j:= 1 to M do begin

buf:=Matr[i,j];

write(X,buf);

end;

close(X);

end;

{****** Процедура формирования вектора ******}

Procedure FormVector(var X: Tfl; var Vect:T1mas; var I:byte);

var buf:real; begin

reset(X); I:= 0;

while not EOF(X) do begin

read(X, buf); if buf > 0 then

begin

I:= I + 1; B[I] := buf;

end;

end;

close(X);

end;

{**** Процедура вывода полученного вектора ****}

procedure OutputVector(const Vect:T1mas; const N:byte); var i: byte;

begin

writeLn('Полученный вектор:'); for i:= 1 to N do

write (B[i]:7:2); end;

{****** Основная программа ******}

begin assign(F,'fileF.xxx'); InputFile(F,'F'); OutputFile(F,'F'); FormMatrix(F,A,Na,Ma); OutputMatrix(A,Na,Ma); NormMatrix(A,Na,Ma); OutputMatrix(A,Na,Ma); FormFile(F,A,Na,Ma); OutputFile(F,'F'); FormVector(F,B,K); OutputVector(B,K);

end.

9. ЗАПИСНОЙ ТИП ДАННЫХ. СУБД

9.1 Понятие записи

Часто возникает потребность в обработке информации, которая имеет сложную структуру. Если эта структура устойчива по отношению к различным объектам, которые подвергаются информационной обработке, то принято говорить о формализации свойств объектов. Если удается для нескольких описываемых предметов выделить постоянный набор свойств, то принято говорить о так называемых классах.

Рассмотрим, к примеру, класс «деревья». Очевидно, что в классе деревья экземпляры его представляющие будут обладать определенной общей структурой, несмотря на тот факт, что конкретные свойства у каждого дерева будут индивидуальные. Выделим, скажем, такие свойства, как «продолжительность жизни» и «строение листа».

Возьмем пару экземпляров. Пусть это будут дуб и сосна. У дуба строение листа опишем как «обыкновенное», а у сосны это будет «иголки». Продолжительность жизни дуба 400 лет, продолжительность жизни сосны 300 лет. Можно воспользоваться формальным языком описания сказанного таким образом:

Сосна.ПродолжительностьЖизни = 150; Дуб.ПродолжительностьЖизни = 300; Сосна.СтроениеЛиста = «иголки»; Дуб.СтроениеЛиста = «обыкновенное».

Проблема обработки данных, подобных описанным выше, возникает достаточно часто. Для решения таких задач в современных языках программирования существуют специальные средства. В языке Pascal наиболее простым примером этих средств являются записи.

Записи – это сложный (структурированный) тип данных языка Pascal, особенностью которого является наличие в собственной структуре так называемых полей. Поле у записи можно представить в виде переменной, которая содержит сведения о собственном типе.

Концепция записи наряду с подпрограммами в Pascal являются основаниями для, так называемого объектно-ориентированного программирования (ООП). Следует сказать, что ООП сегодня является наиболее часто встречаемой технологией серьезного программирования.

При обработке доступна как вся запись целиком, так и ее отдельные поля. Поле у записи может быть не только простого типа, но и сложного, в том числе и другая запись (подобные конструкции именуют вложенными записями).

Объявление переменной-записи может происходить как напрямую, так и при помощи вспомогательного типа (через раздел type). Ключевым словом при объявлении записи является слово record, после которого идет список

названий полей и их типов. В конце ставится закрывающая операторная скобка end, причем, следует отметить, отсутствие открывающей скобки begin.

Пример объявления записи: var SSS: record;

aaa, bbb: byte; xxx: string[20]; ddd: real;

iii, jjj: integer; ttt: boolean;

end;

Нетрудно подсчитать объем занимаемый переменной SSS: 1 (aaa:byte) + 1 (bbb:byte) + 21 (xxx:string[20]) + 6 (ddd:real) + 2 (iii:byte)+ 2 (jjj:byte) + 1 (ttt: Boolean) = 34 байта.

Если бы мы использовали простой массив с элементами длиной равной максимальной из возможных полей данной записи (xxx : string[20]), то мы бы получили что один компонент массива занимает 7*21 = 147 байт, что в несколько раз больше чем мы насчитали ранее. Таким образом, использование записей дает преимущество перед массивами в экономии памяти. Следующим преимуществом является структурированность данных. Это, к примеру, означает, что при попытке ввода в поле числового типа строковых данных возникнет исключительная ситуация, гласящая об ошибке работы с программой. Давая отражающие суть имена полям записи, мы тем самым упрощаем работу с ними при программировании.

Собственно, обращение к полю записи происходит при помощи упоминания имени переменной и через точку название поля.

Вот примеры:

X.Y;

SSS.aaa;

Human.FIO.Name;

Human.FIO.Surname;

School[2].Klass.Uchenik[i];

Данные примеры показывают как обращение к простым полям, так и к сложным (вложенным). Последняя строчка представляет вариант использования в записях массивов.

Кроме прямого обращение к объекту записного типа, часто используется обращение через оператор присоединения пространства имен with Запись do.

Пусть нам нужно обработать запись объявленную ранее с помощью переменной SSS, тогда мы сможем запрограммировать следующее:

With SSS do begin

bbb:= bbb+ aaa; xxx:= ‘hello world’; WriteLn(xxx);

ttt:= 2<>2; end;