М. Nomer:=1678;
V. Nomer:=3789;
М. Marka:'газ-24';
V. Marka:='Таврия';
В операторах ввода-вывода:
writeln (м. marka);
Допускается применение операторов присваивания к записям в целом, если они имеют одинаковые структуры. Так, для приведенного выше описания записей М и V допустимо M:=V;
После выполнения этого оператора значения полей записи V станут равными значениям полей записи М.
В ряде задач удобно пользоваться следующими массивами записей:
Туре Person=record
FIO: string [30];
Prof: string [30); end;
Var List: array [1..50] of Person;
Здесь массив List будет состоять из 50 записей типа Person.
Сама запись может иметь поля любого известного нам типа, в том числе и массивного. Допускается, чтобы поле записи само было записью. Обращение к полям записи с помощью составных имен имеет несколько громоздкий вид, что особенно неудобно при использовании мнемонических идентификаторов длиной более 5 символов. Для облегчения этой ситуации в языке Pascal есть оператор with, который имеет следующий формат:
with имя переменной типа запись do
begin ···················· end.
Один раз указав в операторе with переменную типа запись, затем - в пределах begin... end, стоящих после with, можно работать с именами полей этой записи как с обычными переменными, т.е. без указания перед именем поля имени записи. Например:
без применения оператора with:
М. NOM:=5543;
M.MARKA:='гa3-24';
М. FIO:='Петров П. П.';
М. Adres:='ул. Чкалова, 7, кв.32';
end;
Составить программу учета успеваемости студентов курса, состоящего из шести групп до 30 студентов в каждой группе. Каждый студент сдавал экзамены по пяти дисциплинам: высшая математика, основы информатики, философия, история Украины, архитектура ЭВМ. По каждому предмету можно получить оценки 2, 3, 4, 5. Каждый экзамен можно сдавать до трех раз. Произвести анализ: если у студента имеется три двойки по одному предмету или три непересданные двойки по трем предметам, то он должен быть отчислен; если студент все двойки пересдал, то его нужно поругать.
Program Prim44;
label u,w;
type mo=array[1..5,1..3] of 0..5;
st=record
namb:integer;
fio:string[20];
o:mo; end;
var
gr:array[1..6,1..30] of st;
i,j,k,l,kol_dvoek,v,kgr,n:integer;
md:mo; ch:char;
predmet:string; kst:array[1..6] of byte;
procedure rea_ocenki(fio:string;Var oc:mo);
Программа снабжена комментариями, поэтому при внимательном рассмотрении читается легко. Трудности могут возникнуть при разборе блока анализа результатов, поэтому мы приведем блок-схему логической части этого блока (рис. 9.1).
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28