Dvimatis masyvas. Matrica

Pristatymo data: 2001 m. Balandžio 12 d.
Duota informacija apie futbolininkus: komanda, pavardė, vardas, žaistų rungtynių skaičius, įmuštų įvarčių skaičius. Surasti 2 futbolininkus, kurių naudingumo koeficientas didžiausias, t.y žaista ne mažiau kaip vidutinis rungtynių skaičius ir įmušta daugiausiai įvarčių. Ar yra tokia komanda, kurios visi žaidėjai pelnė įvarčių.
Programa valdoma meniu pagalba, vartotojas pasirenka ka atlikti.Yra sukuriamos klasės.Taip galimybė perrašyti duomenis į tipizuotą failą.
3.2.2 Duomenų struktūros:
Saugomos faile Unit3.pas
type
Futbolas = record
kom :string[L];
pav :string[L];
vard:string[L];
run :integer;
iv :integer;
end;
rec = array [1..L] of Futbolas; //įrašų masyvas
tip = file of futbolas; //tipizuotas failas
mass = array [1..L] of string; //komandas saugantis masyvas
masb = array [1..3] of boolean; //teisingumo vektorius
3.3 Programos aprašymas:
3.3.1 Formos paveikslas:
1 - OpenDialog
2 - SaveDialog
3 - MainMeniu
3.3.2 Meniu schema ir aprašymas
Įvedimas :
Atidaryti
Įveda duomenis iš failo
Surašyti į tipizuotą…
Surašo pradinius duomenis į tipizuotą failą
Išsaugoti
Išsaugo į mūsų pasirinkta failą
Veiksmai :
Du naudingiausi futbolininkai..
Suranda du geriausius
Geriausi klubai
Suranda tuos klubus kurių žaidėjai pelnė bent po įvartį
Apie :
Programa….
Parodo pradinį sąrašą ekrane
Užduotis…
Išsaugo pradinį sąrašą ir rezultatus į failą
3.3.3 Klasių aprašymas:
Tform1 saugoma Lab_3.pas naudoja klasę Futbol.
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Failas1: TMenuItem;
N1: TMenuItem; //išeima iš programos
N2: TMenuItem; // surašo į tipizuotą
N3: TMenuItem; //atidaro failą
Skaiiuoti1: TMenuItem;
N4: TMenuItem; //ieško ar yra komanda..
N5: TMenuItem; //suranda du naudingiausius futbolininkus
Apie1: TMenuItem;
StringGrid1: TStringGrid;
N6: TMenuItem; //parašo programos autorių
N7: TMenuItem; //atspausdina užduotį
Panel1: TPanel; //apvadas
Panel2: Tpanel; //apvadas
Label1: TLabel; //apvadas
OpenDialog1: TOpenDialog; //atidarymo dialogas
SaveDialog1: TSaveDialog; //išsaugojimo dialogas
Isaugotifail1: TMenuItem; //išsaugo į norimą failą
procedure N1Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Isaugotifail1Click(Sender: TObject);
private
a : rec;
n,s : integer;
vid : real;
j,jj,max1 : integer;
Ft : Futbol;
K : mass;
kk : integer;
B : masb;
{ Private declarations }
public
{ Public declarations }
end;
procedure TForm1.N1Click(Sender: TObject);
Išeina iš programos, ją uždaro.
procedure TForm1.N2Click(Sender: TObject);
Surašo duomenis į tipizuotą failą.
procedure TForm1.N3Click(Sender: TObject);
Atidaro pasirinkta duomenų failą.
procedure TForm1.N4Click(Sender: TObject);
Ieško ar yra tokia komanda, kurios visi žaidėjai būtų įmušę bent po įvartį. Tai daro kreipdamasi į klasėje esančias procedūras. Atsakymą spausdina į Label1.
procedure TForm1.N5Click(Sender: TObject);
Suranda du naudingiausius futbolininkus....

Daugiau informacijos...