Реферат: Записи в языке Turbo Pascal

mashine. date1. god: = 1949;

В этом случае можно использовать оператор with следующим образом:

with mashine. date1 do

if god = 1944 then begin.....

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

В программе использованы следующие обозначения:

n1– максимальное количество студентов в группе;

n – реальное количество студентов в группе;

student– идентификатор типа, представляющий запись с полями fam, fiz, mat, pr и ss;

fam – поле записи, содержащее фамилию студента;

fiz, mat, pr – поле записи, содержащее оценки по физике, математике и программированию соответственно;

ss – поле записи, содержащее средний балл студента;

ved – массив, содержащий элементы типа student;

sg – средний балл группы;

i – индекс элемента массива ved;

Программа выглядит следующим образом:

program pr29;

const n1=30;

type student=record

fam: string [10];

fiz,mat,pr: integer;

ss: real;

end;

var ved: array [1. . n1] of student;

i,n: integer;

sg: real;

begin

writeln('сколько студентов в группе? ');

read(n);