Вопрос по информатике:

Помогите, кому не трудно) Срочно! Ерунду всякую не писать! Выполнять в Паскале) Спасибо))



Задание 1.

Опишите комбинированный тип для записей, содержащих следующие данные учеников: фамилию, имя, год рождения, рост (в сантиметрах), вес (в килограммах).



Задание 2.

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

Ответ:

const

n=5;

type

t_spisok=record

surname:string[20];

name:string[20];

YearBorn:string[4];

ves:integer;

Rost:integer;

end;

mas=array  [1..n] of t_spisok;

var

spis1:mas;

f: file of t_spisok;

i:integer;

Объяснение:

program spisok1;

const

n=5;

type

t_spisok=record

surname:string[20];

name:string[20];

YearBorn:string[4];

ves:integer;

Rost:integer;

end;

mas=array  [1..n] of t_spisok;

var

spis1:mas;

f: file of t_spisok;

i:integer;

// То что ниже - это для проверки

begin

Assign(f,'klass9.dat');

Rewrite(f);

for i:=1 to n do begin

with spis1[i] do begin

Write('фамилия: ');

ReadLn(surname);

Write('имя: ');

ReadLn(name);

Write('год рождения: ');

ReadLn(yearborn);

Write('вес(кг): ');

ReadLn(ves);

Write('рост(см): ');

ReadLn(rost);

end;

   Write(f, spis1[i]);

 end;

 Close(f);

Assign(f,'klass9.dat');

Reset(f);

writeln ('фамилия':20,'имя':20, 'год рожд.':10,' вес ':4,' рост ':4);

i:=1;

while not Eof(f) do begin

Read(f, spis1[i]);

 with spis1[i] do begin

writeln (surname:20,name:20,YearBorn:10,ves:4,rost:4);

end;

i:=i+1;

end;

close(f);

readln;

end.