Задача № 22

Написать программу на языке программирования для следующего задания. Запись содержит поля: фамилия, рост студентов. Создать константный массив типа «запись» из пяти строк. Вывести в компонент TstringGrid все записи из массива. Вычислить средний рост студентов.

Пример решения –

var

Form1: TForm1;

sr: real;

i:integer;

type people=record

fam:string[20];

rost:integer;

end;

const mas:array[1..5] of people=

((fam:'Иванов'; rost:185),

(fam:' Иванова'; rost:165),

(fam:'Петров'; rost:175),

(fam:' Петрова'; rost:155),

(fam:'Сидорова';rost:158));

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

StringGrid1.Cells[0,0]:='Фамилия';

StringGrid1.Cells[1,0]:='Рост';

for i:=1 to 5 do

begin

StringGrid1.Cells[0,i]:=mas[i].fam;

StringGrid1.Cells[1,i]:=IntToStr(mas[i].rost);

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

sr:=0;

for i:=1 to 5 do sr:=sr+mas[i].rost;

sr:=sr/5;

Label1.Caption:='Средний рост: '+FloatToStr(sr);

end;

end.