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

Публикувано на 22 ноември, четвъртък от Данаил

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

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

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

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

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

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

  1. kaloyan каза:
    23 ноември, петък в 07:59

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

    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.

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