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....
Šį darbą sudaro 1716 žodžiai, tikrai rasi tai, ko ieškai!
Nuolat dirbame, kad pagerintume visų mūsų turimų mokslo darbų kokybę, todėl informuojame, jog šis rašto darbas buvo patikrintas savo srities specialisto, todėl galite būti užtikrinti dėl šio darbo kokybės.
Norint atsisiųsti šį darbą spausk ☞ Peržiūrėti darbą mygtuką!
Mūsų mokslo darbų bazėje yra daugybė įvairių mokslo darbų, todėl tikrai atrasi sau tinkamą!
Panašūs darbai
Atsisiuntei rašto darbą ir neradai jame reikalingos informacijos? Pakeisime jį kitu nemokamai.
Pirkdamas daugiau nei vieną darbą, nuo sekančių darbų gausi 25% nuolaidą.
Išsirink norimus rašto darbus ir gauk juos akimirksniu po sėkmingo apmokėjimo!