Блок с три входа

Имаме блок с три входа. Апартаментите във всеки вход са по един на етаж. Да се напише програма, която позволява да се въведе на колко етажа е блока и консумацията на ток за всеки от апартаментите и след това пресмята колко е общата консумация за блока и дали електрическата инсталация ще издържи, ако се знае, че тя е проектирана за ел.консумация от 150 KW.

По желание да се отпечата:

  • консумацията на всеки от входовете
  • средната консумация за апартамент
  • апартаментите с консумация над средната

По желание: да може да се въведат и имена на учениците и предметите и после да се използват и те при отпечатването.

Публикувано в 10в с етикети . Постоянна връзка.

Един коментар по Блок с три входа

  1. kaloyan каза:

    Знам, че може да се направи и с няколко масива и ще е по-добре, но започнах така и за това така съм го направил

    VAR a:array[1..100,1..100] of integer;
        i,j,n,suma,k : integer;
    BEGIN
      write('Na kolko etaja e bloka: '); readln(n);
    writeln('Vavedi konsumaciqta');
      for i:=1 to 3 do begin
        writeln('Vhod ',i);
        for j:=1 to n do begin
          write('-Etaj ', j,': '); readln(a[i,j]);
        end;
        writeln;
      end;
    
      for i:=1 to 3 do
        for j:=1 to n do suma:=suma+a[i,j];
      writeln('Obshta konsumaciq: ',suma,'KW');
      write('Elentricheskata instalaciq e 150KW - ');
      if suma>150 then writeln('Nqma da izdarji')
      else writeln('Ste izdarji');
    writeln;
    //Средната консумация на всеки вход
      for i:=1 to 3 do begin
      suma:=0;
        for j:=1 to n do suma:=suma+a[i,j];
      writeln('sredno vhod ',i,': ', suma);
      end;
    writeln;
    //Средната консумация на апартаментите:
       for i:=1 to 3 do begin
       suma:=0;
         for j:=1 to n do suma:=suma+a[i,j];
       writeln('sredno za apartamentite ot vhod ',i,': ',suma/n:0:2);
       writeln('Etaji nad srednata konsumaciq:');
         for j:=1 to n do
           if a[i,j]>suma/n then writeln('Vhod ',i,' etaj ', j);
           if a[i,j]=suma/n then writeln('nqma');
       writeln;
       end;
    
    
    
    readln;
    END.
    

Вашият коментар