Laboratoriniai darbai

Dvimatis masyvas. Matrica

9.6   (2 atsiliepimai)
Dvimatis masyvas. Matrica 1 puslapis
Dvimatis masyvas. Matrica 2 puslapis
Dvimatis masyvas. Matrica 3 puslapis
Dvimatis masyvas. Matrica 4 puslapis
Dvimatis masyvas. Matrica 5 puslapis
Dvimatis masyvas. Matrica 6 puslapis
Dvimatis masyvas. Matrica 7 puslapis
Dvimatis masyvas. Matrica 8 puslapis
Dvimatis masyvas. Matrica 9 puslapis
Dvimatis masyvas. Matrica 10 puslapis
Dvimatis masyvas. Matrica 11 puslapis
www.nemoku.lt
www.nemoku.lt
Aukščiau pateiktos peržiūros nuotraukos yra sumažintos kokybės. Norėdami matyti visą darbą, spustelkite peržiūrėti darbą.
Ištrauka

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...

Šį darbą sudaro 1716 žodžiai, tikrai rasi tai, ko ieškai!

Detali informacija
Darbo tipas
Lygis
Universitetinis
Failo tipas
Word failas (.doc)
Apimtis
11 psl., (1716 ž.)
Darbo duomenys
  • Informatikos laboratorinis darbas
  • 11 psl., (1716 ž.)
  • Word failas 112 KB
  • Lygis: Universitetinis
www.nemoku.lt Atsisiųsti šį laboratorinį darbą

www.nemoku.lt Panašūs darbai

vienmatis masyvas

vienmatis masyvas Informatika
Peržiūrėti darbą
Privalumai
Pakeitimo garantija Darbo pakeitimo garantija

Atsisiuntei rašto darbą ir neradai jame reikalingos informacijos? Pakeisime jį kitu nemokamai.

Sutaupyk 25% pirkdamas daugiau Gauk 25% nuolaidą

Pirkdamas daugiau nei vieną darbą, nuo sekančių darbų gausi 25% nuolaidą.

Greitas aptarnavimas Greitas aptarnavimas

Išsirink norimus rašto darbus ir gauk juos akimirksniu po sėkmingo apmokėjimo!

Atsiliepimai
www.nemoku.lt
Dainius Studentas
Naudojuosi nuo pirmo kurso ir visad randu tai, ko reikia. O ypač smagu, kad įdėjęs darbą gaunu bet kurį nemokamai. Geras puslapis.
www.nemoku.lt
Aurimas Studentas
Puiki svetainė, refleksija pilnai pateisino visus lūkesčius.
www.nemoku.lt
Greta Moksleivė
Pirkau rašto darbą, viskas gerai.
www.nemoku.lt
Skaistė Studentė
Užmačiau šią svetainę kursiokės kompiuteryje. :D Ką galiu pasakyti, iš kitur ir nebesisiunčiu, kai čia yra viskas ko reikia.
www.nemoku.lt Atsisiųsti šį laboratorinį darbą