Question

Program:Se considera declaratia :
type sate:=Mihaileni, Ochiul Alb,Nicoreni,Baraboi
zi :=luni,marti ,miercuri,joi,vineri,sambata,duminica
consum:=array(sat,zi);of real;
var c:consum;
sa:sat;
z:zi;
Calculeaza energia electrica consumata de fiecare sat pe parcursul intregii saptamani

Answer 1

Răspuns:

program energie;

type sat=(Mihaileni, OchiulAlb,Nicoreni,Baraboi);

   zi =(luni,marti ,miercuri,joi,vineri,sambata,duminica);

   consum=array[sat,zi] of real;

var c:consum;

   sa:sat;

   z:zi;

   i:integer;

   en: array[1..4] of real;

   s:real;

begin

  Writeln('introdu consumul zilnic a energiei electrice la patru sate');

  Writeln('intr-o linie 7 numere reale separate prin spatiu pentru un sat');

  i:=0;

  for sa:=Mihaileni to Baraboi do

     begin

       writeln('introdu datele pentru satul ',Ord(sa)+1);

       i:=i+1; s:=0;

       for z:=luni to duminica do

          begin

             Read(c[sa,z]);

             s:=S+c[sa,z];

          end;

       en[i]:=s;

     end;

   Writeln('Consumul saptamanal al satelor:');

   for i:=1 to 4 do

     Writeln(en[i]);

end.

Explicație: