Ознакомление с правилами оформления записи в программе; исследование порядка доступа к полям записи

Рыбалко Светлана

318 группа

Лабораторная работа №  9

ЗАПИСИ

Цель работы – ознакомление с правилами оформления записи в программе;  исследование порядка доступа к полям записи.

16. Составить массив данных об игроках сборной Украины по футболу. Элемент массива – запись с полями:

1) фамилия (стринг),

2) средняя результативность (вещественное число),

3) клуб (стринг),

4) год рождения (целое число).

Вывести список игроков сборной, которые моложе 1976 года рождения.

Program lab9var16;

uses crt;

type birthday=record

       name:string[14];

       result:string[7];

       club:string[9];

       year:word;

       end;

arr=array [1..10] of birthday;

var a:arr;

      b:birthday;

      n:byte;

      fi,fo:text;

      i:byte;

begin

CLRSCR;

assign (fi,'R:\input9.pas');

assign(fo,'R:\out_9.pas');

for i:=1 to 8 do

with a[i] do

begin

reset(fi);

readln (fi,name,result,club,year);

end;

for i:=1 to 8 do

if a[i].year>1976

then b:=a[i];

rewrite(fo);

writeln (fo,'name=',name,'result=',result,'club=',club,'year=',year);

writeln(fo, 'F.I.O   REZUL"TAT   KLUB    GOD ROGDNIY');

writeln(fo,'________________________________________');

for i:=1 to 8 do

with a[i] do

writeln(fo,'Mologe 1976 goda:');

writeln(fo);

writeln(fo,b.name:-15,b.year:9);

close(fo);

readln;

repeat until keypressed;

end.

F.I.O      REZUL"TAT   KLUB    GOD ROGDNIY

________________________________________

Ivanov I.I.   10.5   Shahter   1975

Sidorov N.P.  9.7    Shahter   1980

Petrov K.A.   11.0   Shahter   1976

Zayrniy V.V.  10.5   Metelist  1975

Baklai D.N.   11.5   Dinamo    1985

Ladut"ko A.A. 11.5   Dinamo    1978

Larkin A.A.   10.8   Metalist  1986

Klimenko I.N. 8.9    Metalist  1974

Mologe 1976 goda:

Sidorov N.P.  9.7    Shahter   1980

Baklai D.N.   11.5   Dinamo    1985

Ladut"ko A.A. 11.5   Dinamo    1978

Larkin A.A.   10.8   Metalist  1986

Вывод: В xоде лабораторной работы я ознакомилась с правилами оформления записи в программе;  исследовала порядок доступа к полям записи.