Question

Se considera declaratiile :
type Zi = (L,Ma,Mi,J,V,S,D);
Venit = array [Zi] of real;
var v: Venit;

Componentele variabilei v reprezinta venitul zilnic al unei intreprinderi.Elaborati un program care:
a)calculeaza venitul saptaminal al intreprinderii;

b)calculeaza media venitului zilnic;
c)indica ziua in care s-a obtinut cel mai mare venit;
d)indica ziua cu venitul cel mai mic.

Answer 1

o solutie

PASCAL
program venituri;

type Zi = (L, Ma, Mi, J, V, S, D);
Venit = array [Zi] of real;
{eroare de compilare cu v aici - cauza este v de  vineri am schimbat cu v1}
var v1 : Venit;vs:real;
mv:real;
min,max:real;
i:integer;
minzi,maxzi:integer

begin
{initializez venitzilnic}
v1[L]:=1002;
v1[Ma]:=1518;
v1[Mi]:=9;
v1[J]:=79;
v1[V]:=17;
v1[S]:=100;
v1[D]:=170;
{calcul venit saptamnal}
vs:=  v1[L]+v1[Ma]+v1[Mi]+v1[J]+v1[V]+v1[S]+v1[D];
{calcul media venit zilnic}
mv:=vs/7;
{cel mai mare venit}
max:=v1[L];min:=v1[D];
for i:=0 to 6 do
begin
if v1[zi(i)] > max then begin max:= v1[zi(i)]; maxzi:= i+1; end;
if v1[zi(i)] < min then begin min:= v1[zi(i)]; minzi:= i+1; end;
end;
write('venit saptamanal=');write(vs:6:0);
writeln;write('media venit zilnic=');write(mv:6:2);
writeln;write('ziua ');write(maxzi);write(' cel mai mare venit=');
write(max:6:0);writeln;write('ziua ');write(minzi);write(' cel mai mic venit=');write(min:6:0);
writeln;
readln;
end.

afiseaza rezultat pentru datele introduse  

venit saptamanal=  2895
media venit zilnic=413.57
ziua 2 cel mai mare venit= 1518
ziua 3 cel mai mic venit= 9