Delfi 2 Визначити робітника з мах зарплатнею й надрукувати усі відомості про нього.
Текст модуля програми
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;

Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
RadioGroup1: TRadioGroup;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Memo1: TMemo;
Memo2: TMemo;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
ComboBox1: TComboBox;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Type abitur = record
country: string[10];
oblast: string[15];
family: string[12];
sr_bal: real;
medal: char;
end;
{Опис глобальних параметрів - масиву записів та їхньої кількості }
var m_zap:array[1..20]of abitur; {масив записів}
k:integer; {поточна кількість введених записів}
// Підпрограма початкових значень проекту
procedure TForm1.FormCreate(Sender: TObject);
begin
k:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
k:=k+1;
with m_zap[k] do begin
country:=ComboBox1.text;
oblast:=Edit1.text;

family:=Edit2.text;
sr_bal:=StrToFloat(Edit3.Text);
Case RadioGroup1.ItemIndex of
0:medal:='з';
1: medal:='с';
2: medal:='н';
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
k:=0;
//СomboBox1.Clear;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Memo1.Clear;
Memo2.Clear;
end;
procedure TForm1.Button3Click(Sender: TObject);
var sbal,dan:string;
smed:string;
i:integer;
begin
Memo1.Clear;
Memo1.Lines.Add('| Фамилия | Страна | Область | Средний бал| Медаль|');
for i:=1 to k do
with m_zap[i] do begin
case medal of
'з': smed:='золота';
'с': smed:='срібна';
'н': smed:='немає';
end;
str(sr_bal:5:2,sbal);
dan:=family+' | '+country+' | '+oblast+ ' | '+ sbal+' | '+ smed; Memo1.Lines.Add(dan);
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
var sbal,dan:string;
smed:string;
i:integer;
begin memo2.Lines.Add('Медалисты');
for i:=1 to k do
with m_zap[i] do
if (medal='з') Or (medal='с') then

begin
case medal of
'з': smed:='золотая';
'с': smed:='серебрянная';
end;
dan:=family+' | '+country+' | '+ smed; memo2.Lines.Add(dan);
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
close;
end; end.

чо2    2   16.12.2021 17:34    0