|
1. LIMBAJUL DE PROGRAMARE PASCAL – La o firm? exist? trei departamente noi înfiin?ate. Se organizeaz? un concurs de ocupare a unor posturi pentru toate departamentele, având trei probe. Candida?ii prezint? la interviu o ordine de preferin?e referitoare la cele trei departamente. {n func?ie de media ob?inut?, de ordinea preferin?elor ?i de num?rul de locuri existente la fiecare departament, se stabilesc listele cu candida?ii admi?i. S? se creeze un fi?ier care s? con?in? informa?ii despre candida?i, având ca articole : numele candidatului, op?iunea 1, op?iunea 2, op?iunea 3,nota ob?inut? la prima prob?, la a doua prob? si la a treia prob?.
program concurs;
CONST
max=50;
TYPE
firma = record
nume : string[25];
tara : string[15];
punctaj :real
end;
clasament = array [1..max] of firma;
VAR
a : clasament;
f : firma;
i, j, n :integer;
BEGIN
writeln;
repeat
write('N> ' ); read(n);
until n <= max;
writeln;
for i:=1 to n do
with a[i] do
begin
write ('Numele firmei: ');
if eoln then readln; read(nume);
write ('Tara: ');
if eoln then readln; read(tara);
write ('Punctaj: '); read(punctaj);
writeln;
end;
writeln( ' NUMELE FIRMEI TARA PUNCTAJ');
writeln( ' ......................................');
for i:=1 to n do
with a[i] do
writeln(nume:15,' ', tara:10,' ',punctaj:7:2);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].punctaj < a[j].punctaj then
begin |