Написать программу на языке программирования для задания: создать запись, состоящую из полей: марка машины, год выпуска, цена. Создать константный массив типа «запись» из пяти строк. Вывести в компонент TStringGrid марки машин, имеющие стоимость не больше указанной, с указанием года выпуска и цены.
Пример решения –
var
Form1: TForm1;
i:integer;
type people=record
marka:string[20];
god:integer;
cena:integer;
end;
const mas:array[1..5] of people=
((marka:'Mazda CX7'; god:2008;cena:1500),
(marka:'Toyota RAV4';god:2007;cena:1000),
(marka:'Honda Civic';god:2009;cena:1100),
(marka:'ВАЗ 11183'; god:2005;cena:270),
(marka:'Alfa Romeo'; god:2006;cena:2500));
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[0,0]:='Марка';
StringGrid1.Cells[1,0]:='Год выпуска';
StringGrid1.Cells[2,0]:='Цена, тыс';
end;
procedure TForm1.Button1Click(Sender: TObject);
var c,k:integer;
begin
c:=StrToInt(Edit1.Text);
k:=1;
for i:=1 to 5 do
if mas[i].cena<=c then
begin
StringGrid1.Cells[0,k]:=mas[i].marka;
StringGrid1.Cells[1,k]:=IntToStr(mas[i].god);
StringGrid1.Cells[2,k]:=IntToStr(mas[i].cena);
k:=k+1;
end;
end;
end.
