Program uloží menný zoznam do štruktúry, ktorú potom usporiada podľa abecedy

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: Zadaňa zos Pascalu

Zrobil: Pheo
web: pascalsource.ic.cz

Program: Menny_zoznam.pas
Subor exe: Menny_zoznam.exe

Program uloží menný zoznam do štruktúry, ktorú potom usporiada podľa abecedy.
{ MENNY_ZOZNAM.PAS                               Copyright (c) Pheo }
{ Program uloží menný zoznam do štruktúry ktorú potom usporiada     }
{ podža abecedy.                                                    }
{                                                                   }
{ Datum:30.03.2005                             http://www.trsek.com }
 
program menny_zoznam;
type    meno=string [15];
  priezvisko=string[15];
 
type pole1=array [1..100] of meno;
     pole2=array [1..100] of priezvisko;
 
var     i,j,n:integer;
    pom1,pom2:meno;
            a:pole1;
            b:pole2;
begin
     writeln('Pocet osob: ');read(n);
     readln;
     for i:=1 to n do
     begin
          writeln('zadaj ',i,'. meno: ');
          readln(a[i]);
          writeln(' a priezvisko:');
          readln(b[i]);
     end;
     for j:=1 to n do
        for i:=1 to n-1 do
           if (b[i+1]<b[i]) then
           begin
                pom2:=b[i];
                pom1:=a[i];
                b[i]:=b[i+1];
                a[i]:=a[i+1];
                b[i+1]:=pom2;
                a[i+1]:=pom1;
           end
           else if (a[i+1]<a[i]) and (b[i+1]=b[i]) then
           begin
                pom2:=b[i];
                pom1:=a[i];
                b[i]:=b[i+1];
                a[i]:=a[i+1];
                b[i+1]:=pom2;
                a[i+1]:=pom1;
                end;
     writeln;
     for i:=1 to n do
     begin
          write(i,'. ',b[i],' ');
          writeln(a[i]);
     end;
     writeln; readln;
end.