Dvimatis masyvas. Matrica

3. Laboratorinio darbo L2 ataskaita Dvimatis masyvas. Matrica Pristatymo data: 2001 m. Balandžio 12 d. Dėstytojas: V. Jusas Atlikėjas: IF 0/4 gr. Stud. Tautvydas Vikšraitis 3.1 Užduotis : 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ų. 3.2 Užduoties analizė: 3.2.1 Sprendimo aprašymas: 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. Tai padaro taip pat kreipdamasi į klasėje esančias procedūras. procedure TForm1.N6Click(Sender: TObject); Išmeta aboutbox, kuriame parašomas programos autorius. procedure TForm1.N7Click(Sender: TObject); Atidaro kitą langą, kuriame atspausdina užduoties tekstą. Klasė Futbol saugoma faila Unit4.pas type Futbol=class n,j,f:integer; vid:real; a:rec; kom,pav,vard,run,iv:rec; procedure skaitymas(var a: rec; var n:integer ; var f:textfile); procedure Vidutinis(var vid:real; n:integer; var a:rec); procedure Geriausias(var a:rec; var j:integer; vid:real; n:integer); procedure Geriausias2(var a:rec; var j,f:integer; vid:real; n:integer); procedure Komandos(var D : mass; var dd : integer; a : rec; n : integer); procedure KiekKokiu (var D : mass; var dd : integer); procedure I_Tipizuota (A : rec;n : integer;var f : tip); procedure tikrinimas( var D:mass; var dd: integer; a:rec; n:integer); end; procedure Futbol.skaitymas Nuskaito duomenis iš failo, kurį pasirenka vartotojas. procedure Futbol.Vidutinis; Suranda vidurkį visų žaistų futbolo rungtynių. procedure Futbol.Geriausias; Suranda patį geriausią futbolininką. procedure Futbol.Geriausias2; Suranda antrą geriausią futbolininką. procedure Futbol.Komandos; Kreipiasi dar įdvi procedūras ir suranda ‘Ar yra tokios komandos, kurių visi žaidėjai būtų pelnę įvarčius?’. procedure Futbol.KiekKokiu; Sudeda komandų pavadinimus į string masyvą. procedure Futbol.I_Tipizuota; Įrašo duomenis į tipizuotą failą. procedure Futbol.Tikrinimas; Tikrina pagal komandų masyvą, ir iš jo braukia tas komandas, kurių bent vienas futbolininkas neimušė įvarčių. 3.4 Atmintinė vartotojui: Programa nuskaito duomenis iš vartotojo pasirinkto failo ir atlieka tuos veiksmus, kuriuos nori atlikti vartotojas ir jei juos leidžia teisingumo vektorius.Duomenis saugomi rezultatų faile. Jeigu kiltų kokių neaiškumų ar aptiktumėte avarinių situacijų labai prašome pranešti programos kūrėjui. 3.5 Programos tekstas: Lab_3.pas unit Lab_3; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, Grids, ExtCtrls,Unit1, Unit2, Unit4, Unit3, Unit5; COnst L=15; type TForm1 = class(TForm) MainMenu1: TMainMenu; Failas1: TMenuItem; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; Skaiiuoti1: TMenuItem; N4: TMenuItem; N5: TMenuItem; Apie1: TMenuItem; StringGrid1: TStringGrid; N6: TMenuItem; N7: TMenuItem; Panel1: TPanel; Panel2: TPanel; Label1: TLabel; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; Isaugotifail1: TMenuItem; 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; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.N1Click(Sender: TObject); begin Halt; end; procedure TForm1.N3Click(Sender: TObject); var F1:TextFile; i:integer; rez : string; begin Opendialog1.filter:='Text failai(*.txt)|*.TXT'; if OpenDialog1.execute then begin B[1] := true; AssignFile (F1,OpenDialog1.filename); rez:=OpenDialog1.filename; Reset (F1); Ft.Skaitymas(a,n,f1); Label1.Caption:= 'Duomenys nuskaityti: '+rez ; StringGrid1.Rowcount:=n+1; StringGrid1.Cells[1,0]:= ' Komanda '; StringGrid1.Cells[2,0]:= ' Pavardë '; StringGrid1.Cells[3,0]:= ' Vardas '; StringGrid1.Cells[4,0]:= 'Þaistos rungtynës'; StringGrid1.Cells[5,0]:= ' Imuðë ávarèiø'; for i:= 1 to n do with A[i] do begin StringGrid1.Cells[0,i]:= ' '+FloatToStr(i); StringGrid1.Cells[1,i]:= ' '+kom; StringGrid1.Cells[2,i]:= ' '+pav; StringGrid1.Cells[3,i]:= ' '+vard; StringGrid1.Cells[4,i]:= ' '+FloatToStr(run); StringGrid1.Cells[5,i]:= ' '+FloatToStr(iv); end; end; end; procedure TForm1.N5Click(Sender: TObject); begin if B[1] then begin Ft.Vidutinis(vid,n,a); Label1.Caption:= ' Geriausi du þaidëjai yra: '; Ft.Geriausias(a,j,vid,n); StringGrid1.Rowcount:=3; StringGrid1.Cells[0,1]:= ' '+FloatToStr(j); StringGrid1.Cells[1,1]:= ' '+A[j].kom; StringGrid1.Cells[2,1]:= ' '+A[j].pav; StringGrid1.Cells[3,1]:= ' '+A[j].vard; StringGrid1.Cells[4,1]:= ' '+FloatToStr(A[j].run); StringGrid1.Cells[5,1]:= ' '+FloatToStr(A[j].iv); Ft.Geriausias2(a,j,jj,vid,n); Label1.caption:=' Naudingiausi 2 þaidëjai :'; StringGrid1.Cells[0,2]:= ' '+FloatToStr(jj); StringGrid1.Cells[1,2]:= ' '+A[jj].kom; StringGrid1.Cells[2,2]:= ' '+A[jj].pav; StringGrid1.Cells[3,2]:= ' '+A[jj].vard; StringGrid1.Cells[4,2]:= ' '+FloatToStr(A[jj].run); StringGrid1.Cells[5,2]:= ' '+FloatToStr(A[jj].iv); B[2] := true; end else Label1.caption :='Nera duomenu'; end; procedure TForm1.N6Click(Sender: TObject); begin AboutBox2.Showmodal; end; procedure TForm1.N7Click(Sender: TObject); var e,e1,e2,e3,e4,e5:string; begin e:=' 55. Duota informacija apie futbolininkus:komanda, pavardë,'+#13; e1:=' vardas,þaistø rungtyniø skaièius,ámuðtø ávarèiø skaièius.'+#13; e2:=' Surasti 2 futbolininkus, kuriø naudingumo koeficientas'+#13; e3:=' didþiausias,t.y. þaista ne maþiau kaip vidutinis rungtyniø'+#13; e4:=' skaièius ir ámuðta daugiausiai ávarèiø. Ar yra tokia komanda,'+#13; e5:=' kurios visi þaidëjai pelnë ávarèiø'; AboutBox.Label1.caption:=e+e1+e2+e3+e4+e5; AboutBox.Showmodal; end; procedure TForm1.FormCreate(Sender: TObject); var i : integer; begin For i := 1 to 3 do B[i]:=false; Ft:= Futbol.create; end; procedure TForm1.N4Click(Sender: TObject); var S : string; i : integer; begin if B[1] then begin FT.Komandos(K,kk,A,n); if kk 0 then begin for i:= 1 to kk do s := s + ' '+ K[i]; Label1.Caption := 'Komandos,kuriu þaidëjai pelnë áv. : '+s; B[3]:=true; end else Label1.Caption :=' Tokios komandos nera'; end else Label1.Caption :='Nera duomenu'; end; procedure TForm1.N2Click(Sender: TObject); var rez : string; f : tip; begin if b[1] then begin SaveDialog1.Filter := 'Text failai(*.tip)|*.tip'; if SaveDialog1.Execute then begin rez := SaveDialog1.FileName; AssignFile (f,rez); Rewrite(f); FT.I_Tipizuota (A,n,f); label1.caption:='Duomenys irashyti i tipizuota faila'+rez; closefile (f); end; end else label1.caption:='Nera duomenu'; end; procedure TForm1.Isaugotifail1Click(Sender: TObject); var i : integer; rez:string; f:textfile; begin if B[1] and b[2] and b[3] then begin {Save dialogas} SaveDialog1.Filter := 'Text failai(*.rez)|*.rez'; if SaveDialog1.Execute then begin rez := SaveDialog1.FileName; AssignFile (f,rez); Rewrite(f); for i:=1 to 61 do Write (f,'*'); Writeln(f); writeln (f,'* Komanda * Pavardë * Rungtynës * Ávarèiai *'); for i:=1 to 61 do Write (f,'*'); Writeln(f); For i :=1 to n do with A[i] do writeln (f,'* ',kom,'* ',pav,'* ',vard,'* ',run,'* ',iv,' * '); for i:=1 to 61 do Write (f,'*'); Writeln(f); WriteLn(F,' Du geriausi Futbolistai'); for i:=1 to 61 do Write (f,'*'); Writeln(f); writeln (f,'* Komanda * Pavardë * Rungtynës * Ávarèiai *'); for i:=1 to 61 do Write (f,'*'); Writeln(f); writeln (f,'* ',a[j].kom,'* ',a[j].pav,'* ',a[j].vard,'* ',a[j].run,'* ',a[j].iv,' * '); writeln (f,'* ',a[jj].kom,'* ',a[jj].pav,'* ',a[jj].vard,'* ',a[jj].run,'* ',a[jj].iv,' * '); for i:=1 to 61 do Write (f,'*'); Writeln(f); WriteLn(F); WriteLn(F,' Geriausios komandos:'); For i:= 1 to kk do WriteLn(F, k[i]); closefile(f); Label1.Caption:='Duomenys iðsaugoti:'+rez; end; end else label1.caption:='Nera Duomenu'; end; end. Unit4.pas Uses unit3,SysUtils; type Futbol=class n,j,f:integer; vid:real; a:rec; kom,pav,vard,run,iv:rec; procedure skaitymas(var a: rec; var n:integer ; var f:textfile); procedure Vidutinis(var vid:real; n:integer; var a:rec); procedure Geriausias(var a:rec; var j:integer; vid:real; n:integer); procedure Geriausias2(var a:rec; var j,f:integer; vid:real; n:integer); procedure Komandos(var D : mass; var dd : integer; a : rec; n : integer); procedure KiekKokiu (var D : mass; var dd : integer); procedure I_Tipizuota (A : rec;n : integer;var f : tip); procedure tikrinimas( var D:mass; var dd: integer; a:rec; n:integer); end; implementation procedure Futbol.I_Tipizuota; var i : integer; begin for i := 1 to n do write (f,A[i]); end; procedure Futbol.skaitymas(var a: rec; var n:integer ; var f:textfile); begin n:=0; if not Eof(f) then ReadLn(F); while not Eof(F) and (n

Daugiau informacijos...

★ Klientai rekomenduoja

Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?

Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!