Pascal. Programų pavyzdžiai

MASYVAI 1) Surikiuoja skaicius kiekvienoje eiluteje: 8 6 2 3 9 1  1 2 3 6 8 9 4 6 2 3 9 4  2 3 4 4 6 9 7 9 4 5 3 1  1 3 4 5 7 9 9 2 1 5 6 3  1 2 3 5 6 9 program rikiav; uses crt; type mas = array [1..4,1..6] of integer; var sk :mas; i, j, min, a, x :integer; F :text; begin clrscr; assign (F, 'rez.txt'); reset (F); For i:=1 to 4 do {Nuskaito} Begin For j:=1 to 6 do begin read (F, sk[i,j]); write (sk[i,j], ' '); end; writeln; End; writeln; For i:=1 to 4 do {Rikiuoja} Begin For j:=1 to 6-1 do begin min:=j; for x:=j+1 to 6 do if (sk[i,min] > sk[i,x]) then min:=x; a:=sk[i,j]; sk[i,j]:=sk[i,min]; sk[i,min]:=a; end; end; For i:=1 to 4 do {Rasymas} Begin For j:=1 to 6 do write (sk[i,j], ' '); writeln; End; close(F); readln; end. ********************************************** 2) Surikiuoja skaicius kiekvienoje eiluteje, po to surikuoja pagal vardus (pagal abecele): 8 6 2 3 9 1 Rasele 4 6 2 3 9 4 Povilas 7 10 4 5 3 1 Adolfas 8 2 1 5 6 3 Mykolas 1 3 4 5 7 10 Adolfas 1 2 3 5 6 8 Mykolas 2 3 4 4 6 9 Povilas 1 2 3 5 6 8 Rasele program rikiav; uses crt; type mas = array [1..4,1..6] of integer; vardai = array [1..4] of string [8]; var sk :mas; eil :mas; vardas :vardai; b :string[8]; i, j, min, a, x :integer; F :text; c:mas; begin clrscr; assign (F, 'rez.txt'); reset(F); {>>>>} For i:=1 to 4 do Begin For j:=1 to 6 do begin read (F, sk[i,j]); write (sk[i,j], ' '); end; read (F, vardas[i]); write (vardas[i]); writeln; End; writeln; {Rikiuoja skaicius} For i:=1 to 4 do Begin For j:=1 to 6-1 do begin min:=j; for x:=j+1 to 6 do if (sk[i,min] > sk[i,x]) then min:=x; a:=sk[i,j]; sk[i,j]:=sk[i,min]; sk[i,min]:=a; end; eil[i]:=sk[i]; end; {Rikiuoja viska pagal varda } For i:=1 to 4-1 do begin min:=i; for j:=i+1 to 4 do if (vardas[min] > vardas[j]) then min:=j; begin {Sukeicia vardus vietom} b:=vardas[i]; vardas[i]:=vardas[min]; vardas[min]:=b; {Sukeicia skaiciu eilutes vietom} c[i]:=sk[i]; sk[i]:=eil[min]; eil[min]:=c[i]; end; end; For i:=1 to 4 do {Rasymas} Begin For j:=1 to 6 do begin write (sk[i,j], ' '); end; write (vardas[i]); writeln; End; close(F); readln; end. program irasai_pvz; type asmuo=record vardas, pavarde:array [1..20] of char; gmmetai: word; end; var a: asmuo; i: byte; begin write('Iveskite varda '); i:=0; { a.vardas:='Jonas'; i:=5; galima!!!1} while not eoln do {Skaito kol pasibaigia eil} begin inc(i); {reiksme padidina 1-etu} read(a.vardas[i]) end; readln; write('Iveskite pavarde '); i:=0; while not eoln do begin inc(i); read(a.pavarde[i]) end; readln; write('Iveskite gimimo metus: '); readln(a.gmmetai); writeln('Vardas: ',a.vardas); writeln('Pavarde: ', a.pavarde); writeln('Gimimo metai: ', a.gmmetai); end. PROCEDŪROS IR FUNKCIJOS n : array [1..15: integer] of real; {Klaida: rėžiai turi būti vardai} N : array [a..b :1..100] of real; {Klaida: tipas taip pat turi būti nurodomas vardu} Type masyvas = array [1..10 ] of integer; Var mazas : masyvas; Didelis : array [-100..100] of integer; Procedure tvarka (var m:array[x..y : integer] of integer); program masyvo_minimumas; const ILG=15; type rinkinys = array [1..ILG] of integer; function minimumas (list:rinkinys; size:integer) : integer; var min, i, minindex: integer; begin minindex := 0; min := list[ minindex]; for i:= 1 to size do if list[i] a[j].vid) then begin b := a[i]; a[i] := a[j]; a[j] := b; end; for i := 1 to 5 do write (f1, a[i].vard); writeln (f1); for i := 1 to 5 do write (f1, a[i].vid); writeln (f1); close (f1); end. end; Program irasas; type studentas = record paz:array [1..6] of byte; {pazymiu masyvas} Vard:string[10]; end; var stud:array[1..18] of studentas; {irasu masyvas} dal:array[1..6] of string[11]; i,j,pav:integer; vid:real; d,r:text; begin Assign (d,'irasas.txt'); Reset(D); For i:=1 to 18 do begin For j:=1 to 6 do begin read(d,stud[i].paz[j]); write(stud[i].paz[j],'*'); end; readln(d,stud[i].vard); writeln(stud[i].vard); readln; end; For i:=1 to 6 do begin read(d,dal[i]); If dal[i]='Informatika' then pav:=i;{pav isimena informatikos stulpeli} end; vid:=0; For i:=1 to 18 do vid:=vid+stud[i].paz[pav]; vid:=vid/18; Assign(r,'ira_dal.rez'); rewrite(r); For i:=1 to 6 do write(r,dal[i]); writeln(r); For i:=1 to 18 do If stud[i].paz[pav]>=vid then begin For j:=1 to 6 do write(r,stud[i].paz[j],' '); writeln(r,stud[i].vard); end; close(d); close(r); end. Program irasas; type studentas = record paz:array [1..6] of byte; {pazymiu masyvas irase} Vard:string[10]; end; var stud:array[1..18] of studentas; {irasu masyvas} dal:array[1..6] of string[11]; i,j,pav:integer; vid:real; d,r:text; begin Assign (d,'irasas.txt'); Reset(D); For i:=1 to 18 do begin with stud[i] do begin {jungtukas with leidzia sutrumpinti} For j:=1 to 6 do begin {iraso lauku uzrasa} read(d,paz[j]); {stud[i].} write(paz[j],'*'); {stud[i].} end; readln(d,vard); {stud[i].} writeln(vard); {stud[i].} end; readln; end; For i:=1 to 6 do begin read(d,dal[i]); If dal[i]='Informatika' then pav:=i;{pav isimena informatikos stulpeli} end; vid:=0; For i:=1 to 18 do vid:=vid+stud[i].paz[pav]; vid:=vid/18; Assign(r,'ira_dal.rez'); rewrite(r); For i:=1 to 6 do write(r,dal[i]); writeln(r); For i:=1 to 18 do If stud[i].paz[pav]>=vid then begin For j:=1 to 6 do write(r,stud[i].paz[j],' '); writeln(r,stud[i].vard); end; close(d); close(r); end.

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!