ferrari.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program intreprindere;
{Se creaza o lista cu personalul unei intreprinderi. om(nume, prenume,vechime
si salariu).
a)Sa se aranjeze dupa vechime.
b)Sa se aranjeze dupa salariu.
c)Sa-i scrie numai pe cei cu salariu mai mare decat cel mediu.}
type INDEX=1..20;
     om=record
     nume,prenume:string[10];
     vechime:integer;
     salariu:longint;
     end;
const n=6;
var a:array[1..n] of om;
    i,c:integer;
    m,s:real;
    r:om;
procedure metal(x:index);
begin
write('Numele candidatului ',x,': ');
readln(a[x].nume);
write('Prenumele candidatului ',x,': ');
readln(a[x].prenume);
write('Vechimea candidatului ',x,': ');
readln(a[x].vechime);
write('Salariul candidatului ',x,': ');
readln(a[x].salariu);
end;
begin
for i:=1 to n do
metal(i);
for c:=n downto 1 do
    for i:=1 to n do
        if a[i].vechime<a[i+1].vechime then
                                           begin
                                                r:=a[i];
                                                a[i]:=a[i+1];
                                                a[i+1]:=r;
                                           end;
writeln('Lista angajatilor in functie de vechime: ');
for i:=1 to n do
write(i,') ',a[i].nume,' ',a[i].prenume,' ',a[i].salariu,' ',a[i].vechime);
for c:=n downto 1 do
    for i:=1 to n do
        if a[i].salariu<a[i+1].salariu then
                                           begin
                                                r:=a[i];
                                                a[i]:=a[i+1];
                                                a[i+1]:=r;
                                           end;
writeln('Lista angajatilor in functie de salariu: ');
for i:=1 to n do
write(i,') ',a[i].nume,' ',a[i].prenume,' ',a[i].vechime,' ',a[i].salariu);
s:=0;
for i:=1 to n do
    begin
    s:=s+a[i].salariu;
    i:=i+1;
    end;
m:=s/6;
writeln('Lista angajatilor cu salariu mai mare decat cel mediu: ');
for i:=1 to n do
        if a[i].salariu<m then
write(i,') ',a[i].nume,' ',a[i].prenume,' ',a[i].vechime,' ',a[i].salariu);
end.