Pascal užduotis

Sveiki,

laikau IT egzaminą pascal programavimo kalba, bet niekur nerandu, kaip būtų galima rūšiuoti informacijos sąrašus su įvairias kriterijais. Gal kas nors galėtumėte padėti ?

Pateik kokį konkretų pavyzdį.

Sveiki,

laikau IT egzaminą pascal programavimo kalba, bet niekur nerandu, kaip būtų galima rūšiuoti informacijos sąrašus su įvairias kriterijais. Gal kas nors galėtumėte padėti ?

Taip, kokretaus pavyzdžio reikia.

Yra ,tarkim, tekstinis failas :

Petras 300

Algirdas 400

Juozas 500

Algis 230

Jį reiktų surušiuoti pagal nuo didžiausio iki mažiausio skaičiaus ir dar nežinau kaip reiktų surikiuoti abecėlės tvarka

Var vardas : String;

skaicius, i : integer;

VARD[100] : string, SKAIC[100] : integer;

for i:=0 to MasyvoDydis do

for j:=0 to MasyvoDydis do begin

if(VARD[j] > VARD[j+1]) then begin //tada reikia sukeist juos vietom

vardas:=VARD[j];

VARD[j]:=VARD[j+1];

VARD[j+1]:=vardas;

//pakeitei vietom vardus, bet ir skaicius reikia pakeist, taigi:

skaicius:=SKAIC[j];

SKAIC[j]:=SKAIC[j+1];

SKAIC[j+1]:=skaicius;

//gavosi surikiuoti pagal abecele abu masyvai

end; //jeigu vienas string mazesnis uz kita, juos apkeiti vietom

//ir taip praeini per visus.

//Tas pats ir su didziausio radimu, tik lygini ne string,

//o integerius. Vsio.

end;

Nemoku pascal kalbos, per metus jau pamiršau, su c++ būčiau parašęs su nuskaitymais ir t.t., bet principas tas pats.

Parašiau kažką panašaus, bet gaunu klaidą peržengti rėžiai Nr. 201 <_<

program Bevarde0;
var n:integer;
V:array[1..100] of string[10];
S:array[1..100] of integer;

procedure skaitymas ();
var Df:text;
i:integer;

begin
Assign(Df,'Duom.txt'); Reset(Df);
Readln(Df,n);
for i:=1 to n do
readln(Df,V[i],S[i]);
Close(Df);
end;

procedure rikiavimas();
var i:integer;
pradv:string[10];
prads:integer;
begin
   pradv := V[1];
   prads := S[1];
       for i:=1 to 5 do
       begin
           if V[i] > V[i+1] then
           begin
           pradv := V[i];
           V[i] := V[i+1];
           V[i+1] := pradv;
           prads:= S[i];
           S[i] := S[i+1];
           S[i+1] := prads;
           end;

       end;

end;

procedure rasymas();
var Rf:text;
i:integer;
begin
Assign(Rf, 'Rez.txt');Rewrite(Rf);
for i:=1 to n do
Writeln(Rf, V[i],' ',S[i]);
Close(Rf);

end;


begin
skaitymas;
rikiavimas;
rasymas;
 WriteLn('Labas');
 Readln;
end.

Duomenų failas:

5
Petras		150
Juozas		560
Kartis		900
Juozas		8799	
Grazvidas	59000

Nelabai supratau kaip tu per vieną ciklą gali surikiuot :D kai pavyzdį padariau aiškiai su 2 ciklais. Peržengti rėžiai, tai kreipiesi į masyvo elementą, kurio nėra. Tarkim MASYVAS[100]. Ten skaičiai kažkokie. Tačiau tu sugalvoji MASYVAI[100]:=5; bet tokios reikšmės nėra, nes MASYVAS turi 100 elementų nuo 0 iki 99. Konkrečiai tavo kode tai turbūt V[i+1], nes statiniam masyve skirta vietos, bet tu kreipiesi į neužpildytą atmintį, t.y. tau išmetą klaidą, nes nėra grąžinamos reikšmės. Todėl aš statinių masyvų nelabai naudoju, patariu dinaminius. Klaida turbūt cikle, nes turėtų būt for i:=1 to n-1, o ne to n. Pradžioj prieš viską pabandyk gal for i:=0 to 99 V ir S priskirt pradines reikšmes kokias. Turėtų veikt tada. Ir antrą ciklą dadėk, per vieną neina surikiuot.

Kažkaip, atrodo, kad dėl tų 1..100 neturėtų būti klaidų, bet reiks pabandyti ;) Ačiū už pagalbą :)

Stai rikiavimo procedura:

procedure Išrinkimas (var a:array of integer; N:integer);
var i, j, nuo, t: integer;
begin
 for i := 1 to N-1 do
 begin
   nuo := i;
   for j :=i+1 to N do
     if a[j] < a[nuo] then nuo := j;
     t := a[nuo];
     a[nuo] := a[i];
     a[i] := t
   end;
 end;