9.Se consideră declaraţiile:
type obiect=(Ist,Geogr,Mate,Fiz,Inf);
Nota=1..10;
SituatieScolara=array [obiect] of Nota;
Elaboraţi un program Pascal care va selecta obectul cu situaţia şcolară cea mai buna.
Răspunsuri la întrebare
Răspuns:
program CeleMaiBune;
type obiect=(Ist,Geogr,Mate,Fiz,Inf);
Nota=1..10;
SituatieScolara=array [obiect] of Nota;
var o:obiect; n:Nota; t:SituatieScolara;
denObiect:string; notaMax: Nota;
begin
writeln('Introdu situatia scolara (nota) la obiectele:');
notaMax:=1;
for o:=Ist to Inf do
begin
case ord(o) of
0: denObiect:='Istorie ';
1: denObiect:='Geografie ';
2: denObiect:='Matematica ';
3: denObiect:='Fizica ';
4: denObiect:='Informatica ';
end;
write('la ',denObiect,': '); read(t[o]);
if t[o]>notaMax then notaMax:=t[o];
end;
writeln('Obiect cu situatia scolara cea mai buna:');
for o:=Ist to Inf do
begin
if (t[o]=notaMax) then
begin
case ord(o) of
0: denObiect:='Istorie ';
1: denObiect:='Geografie ';
2: denObiect:='Matematica ';
3: denObiect:='Fizica ';
4: denObiect:='Informatica ';
end;
writeln(denObiect);
end;
end;
end.
Explicație:
sper să/ți placă... dacă ceva nu e clar, întrebi și ți se va răspunde.. Succese