Практична робота № 11.1

Завдання

В описовій частині програми містяться описи:

type     str=string[16];

      form=record

        surname:str;

        gender: string; //'Ч','Ж'

        birthday: TDateTime

      end;

var group: array [1..15] of form;

Розробити програму, яка б:

1) надавала можливість уведення даних до масиву;

2) визначала найстаршого чоловіка у переліку (вважаючи, що такий є і він лише один), надрукувала його ім’я та дату народження.

Розв’язання 

  

type str=string[16];
  form=record
    surname:str;
    gender: string; //'Ч','Ж'
    birthday: TDateTime
  end;

var group: array [1..15] of form;


procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  i:=ListBox1.ItemIndex+1;
  with group[i] do begin
    surname := Edit1.Text;
    gender:= Edit2.Text;
    birthday := StrToDate(Edit3.Text);
  end;
end;


procedure TForm1.Button2Click(Sender: TObject);
var i,mm:integer;
    m,d:TDateTime;
begin
    Memo1.Text :='';
    m:=StrToDate('01.01.2100'); mm:=0;
    for i := 1 to 15 do begin
       if (group[i].sex='Ч') or (group[i]. gender ='ч') then begin
         if group[i].birthday < m then begin
            m:=group[i].birthday;
            mm:=i;
         end;
      end; 

    end;
    Memo1.Text:= 'Найстарший чоловік - '+group[mm].surname +
                 '. Дата народження '+DateToStr(group[mm].birthday);
end;


procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
   for i := 1 to 15 do
     with group[i] do begin
        surname := '';
        gender:= '';
        birthday := StrToDate('01.01.2001');
     end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var i:integer;
begin
   i:=ListBox1.ItemIndex+1;
   with group[i] do begin
      Edit1.Text:=surname ;
      Edit2.Text:= gender;
      Edit3.Text := DateToStr(birthday);
   end;
end;