Задание

Ввести текст программы Prg_proc с клавиатуры в системе Turbo Pascal. Сохранить файл в свою папку. Выполнить отладку программы. Дополнить программу процедурой вывода расчетной таблицы на принтер.

Пользуясь программой, рассчитать таблицу значений для следующих функций:

1.	y = exp(  ax^2);	6.	y = a^x;
2.	y = x /(sin(5x)+1,5);	7.	y = | cos(x)|;
3.	y = a x^2+ b x + c;	8.	y = x/(1 x^2);
4.	y = , где –r  x  r;	9.	y = x ;
5.	E = 10^10 / ;	10.	y = 0,1x sin(x/0,5).

Лабораторная работа №10 Записи

При организации хранения информации на ЭВМ требуется группировать данные разного типа, логически относящиеся к одному объекту. Например, целесообразно объединить данные об автомобиле и его владельце (номер, марка машины, год выпуска, цвет, фамилия владельца, его адрес) в одной структуре. Для этого в языке Pascal предназначен комбинированный тип, который называется запись. Записи могут использоваться в любых случаях, где желательно группировать логически связанные элементы в один блок.

Запись – это структурированный тип данных, состоящий из фиксированного числа компонентов разного типа. Определение типа начинается идентификатором Record и заканчивается ключевым словом end. Между ними заключён список компонентов, называемых полями, с указанием идентификаторов полей и типа каждого поля.

Формат описания типа запись:

Type

<имя типа> = Record

<Идентификатор поля>:<Тип компонента>;

.......

<Идентификатор поля>:<Тип компонента>;

end;

Var

<Идентификатор, ...> : <Имя типа>;

Пример 1.

Type

avto = Record

Nomer:string[6]; { Регистрационный номер }

Marka:string[15]; { Марка автомобиля }

God:integer; { Год выпуска }

Color: string[20]; { Цвет }

Fam:string[20]; { Фамилия владельца }

Adress:string[40]; { Адрес владельца }

end;

Var

m,v:avto;

В данном примере запись avto содержит 6 компонентов: номер, марка машины, год выпуска, цвет, фамилия владельца, его адрес. Доступ к полям записи осуществляется через переменные m и v типа Record.

Имя поля должно быть уникальным в пределах записи. Объём памяти, необходимый для хранения записи, складывается из длин полей.

Значения полей записи могут быть использованы в выражениях. Обращение к значению поля осуществляется с помощью составного имени, включающего идентификатор переменной и идентификатор поля, разделённые точкой. Например, чтобы получить доступ к полям записи m типа avto, надо записать:

m.nomer, m.marka, m.god, m.color, m.fam, m.adress.

Для присваивания полям записей значений используются оператор присваивания:

m.nomer:=’ав345х’;

m.marka:=’ВАЗ 2110’;

m.god:=1995;

Составные имена можно использовать, в частности, в операторах ввода-вывода:

Write(’Введите фамилию владельца автомобиля ’,m.nomer, ’ ’);

Readln(m.fam);

Допускается применение оператора присваивания к записям в целом, если они имеют один и тот же тип, например m:=v. После этого значения полей записи m станут равны значениям соответствующих полей записи v.

В ряде задач удобно пользоваться массивами из записей. Их можно описать, например, следующим образом:

Type

Person = record

Fam:string[20]; { фамилия сотрудника }

Pol:char; { Пол сотрудника }

Age:16..60; { Возраст сотрудника}

Dolgnost: string[20]; { Должность }

end;

Var

otdel:array [1..50] of Person;

Обращение к полям записей имеет несколько громоздкий вид, что особенно заметно при использовании идентификаторов длиной более 5 символов. Для решения этой проблемы применяется оператор With, который имеет следующий формат:

With <переменная типа record> do <оператор>;

Один раз указав имя переменной типа Record в операторе With, далее в пределах блока <оператор> можно работать с именами полей, как с обычными переменными, то есть без указания перед идентификатором поля имени переменной, определяющей запись:

With Otdel[25] do

begin

fam:=’Васильев’;

Pol:=’М’;

Age:=45;

Dolgnost:=’Директор’;

end;

Pascal допускает вложение записей друг в друга, т.е. поле в записи может в свою очередь быть записью, соответственно оператор With может быть вложенным.

Записи используются обычно для организации файлов с данными на магнитных дисках.