record.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 38 行

program admitere;
{aranjeaza candidatii in functie de medie}
type
    INDEX=1..20;
    om=record
          nume,prenume:string[10];
          medie:real;
          {loc:index; }
    end;
const n=5;
var a:array[1..n] of om;
    i,f:integer;
    c:om;
procedure citire(k:index);
begin
write('numele candidatului ',k,' ');
readln(a[k].nume);
write('prenumele candidatului ',k,' ');
readln(a[k].prenume);
write('media candidatului ',k,' ');
readln(a[k].medie);
end;
begin
for i:=1 to n do
citire(i);
for f:=n downto 1 do
    for i:=1 to f do
        if a[i].medie<a[i+1].medie then
                                   begin
                                        c:=a[i];
                                        a[i]:=a[i+1];
                                        a[i+1]:=c;
                                   end;
for i:=1 to n do
writeln(i,') ',a[i].nume,' ',a[i].prenume,' ',a[i].medie:4:2);
readln;
end.