Question

срочно, помогите, хотябы пару пунктов, желательно все((((((! Даны описания: type Oras = (Chisinau, Orhei, Balti, Tigina, Tiraspol); Zi = (L, Ma, Mi, J, V, S, D); Consum = array [Oras, Zi] of real; var C : Consum; r : Oras; z : Zi; Компонента C [r,z] переменной C представляет собой потребление электроэнергии города r в день z. Напишите программу, которая : а)вычисляет количество электроэнергии, поторебляемой каждым городом за неделю; б)вычисляет количество электроэнергии, потребляемой данными городами ежедневно; в) вычисляет город с максимальным еженедельным потреблением электроэнергии; г) определяет город с минимальным еженедельным потреблением электроэнергии; д) определяет день, в который было потреблено наибольшее количество электроэнергии; е) определяет деь с наименьшим потреблением электроэнергии.

Answer 1

type Oras = (Chisinau, Orhei, Balti, Tigina, Tiraspol);
Zi = (L, Ma, Mi, J, V, S, D);
Consum = array [Oras, Zi] of real;
var C : Consum;
r : Oras;
z : Zi;
i,k : integer;
sum,min_r,max_r,min_z,max_z:real;
n_max_r,n_min_r,n_max_z,n_min_z:integer;
begin
r:=Chisinau;
randomize;
for i:=1 to 5 do
begin
z:=L;
for k:=1 to 7 do
begin
c[r,z]:=random*100;
z:=succ(z);
end;
r:=succ(r);
end;
r:=Chisinau;
for i:=1 to 5 do
begin
z:=L;
case ord(r) of
0:writeln('Chisinau');
1:writeln('Orhei');
2:writeln('Balti');
3:writeln('Tigina');
4:writeln('Tiraspol');
end;
for k:=1 to 7 do
begin
write(c[r,z]:6:2);
z:=succ(z);
end;
r:=succ(r);
writeln;
end;
writeln('Vsego za nedelu');
r:=Chisinau;
min_r:=99999;
max_r:=0;
n_min_r:=-1;
n_max_r:=-1;
for i:=1 to 5 do
begin
z:=L;
case ord(r) of
0:write('Chisinau sum=');
1:write('Orhei sum=');
2:write('Balti sum=');
3:write('Tigina sum=');
4:write('Tiraspol sum=');
end;
sum:=0;
for k:=1 to 7 do
begin
sum:=sum+c[r,z];
z:=succ(z);
end;
if sum>max_r then
begin
max_r:=sum;
n_max_r:=ord(r);
end;
if sum<min_r then
begin
min_r:=sum;
n_min_r:=ord(r);
end;

r:=succ(r);

writeln(sum:8:2);
end;
writeln('Po dnyam nedeli');
z:=L;
min_z:=99999;
max_z:=0;
n_min_z:=-1;
n_max_z:=-1;

for k:=1 to 7 do
begin
r:=Chisinau;
case ord(z) of
0:write('L sum=');
1:write('Ma sum=');
2:write('Mi sum=');
3:write('J sum=');
4:write('V sum=');
5:write('S sum=');
6:write('D sum=');
end;
sum:=0;
for i:=1 to 5 do
begin
sum:=sum+c[r,z];
r:=succ(r);
end;
if sum>max_z then
begin
max_z:=sum;
n_max_z:=ord(z);
end;
if sum<min_z then
begin
min_z:=sum;
n_min_z:=ord(z);
end;
z:=succ(z);
writeln(sum:8:2);
end;
writeln('Gorod c maximalnim potrebleniem');
r:=Chisinau;
for i:=1 to 5 do
begin
if ord(r)=n_max_r then
case ord(r) of
0:writeln('Chisinau');
1:writeln('Orhei');
2:writeln('Balti');
3:writeln('Tigina');
4:writeln('Tiraspol');
end;
r:=succ(r);
end;
writeln('Gorod c minimalnim potrebleniem');
r:=Chisinau;
for i:=1 to 5 do
begin
if ord(r)=n_min_r then
case ord(r) of
0:writeln('Chisinau');
1:writeln('Orhei');
2:writeln('Balti');
3:writeln('Tigina');
4:writeln('Tiraspol');
end;
r:=succ(r);
end;

writeln('Den c maximalnim potrebleniem');
z:=L;
for k:=1 to 7 do
begin
if ord(z)=n_max_z then
case ord(z) of
0:writeln('L');
1:writeln('Ma');
2:writeln('Mi');
3:writeln('J');
4:writeln('V');
5:writeln('S');
6:writeln('D');
end;
z:=succ(z);
end;
writeln('Den c minimalnim potrebleniem');
z:=L;
for k:=1 to 7 do
begin
if ord(z)=n_min_z then
case ord(z) of
0:writeln('L');
1:writeln('Ma');
2:writeln('Mi');
3:writeln('J');
4:writeln('V');
5:writeln('S');
6:writeln('D');
end;
z:=succ(z);
end;

readln;

end.

Answer 2

Программа на языке программирования Pascal может выглядеть следующим образом:

program ElectricityConsumption;

const
  NumCities = 5;
  NumDays = 7;

type
  Cities = (Chisinau, Orhei, Balti, Tigina, Tiraspol);
  Days = (L, Ma, Mi, J, V, S, D);
  Consumption = array [Cities, Days] of real;

var
  C: Consumption;
  r: Cities;
  z: Days;

procedure CalculateWeeklyConsumption;
var
  totalConsumption: real;
begin
  writeln('a) Количество электроэнергии, потребляемой каждым городом за неделю:');
  for r := Chisinau to Tiraspol do
  begin
    totalConsumption := 0;
    for z := L to D do
    begin
      totalConsumption := totalConsumption + C[r, z];
    end;
    writeln('Город ', r, ': ', totalConsumption:0:2);
  end;
end;

procedure CalculateDailyConsumption;
begin
  writeln('б) Количество электроэнергии, потребляемой данными городами ежедневно:');
  for z := L to D do
  begin
    writeln('День ', z, ': ');
    for r := Chisinau to Tiraspol do
      writeln('  Город ', r, ': ', C[r, z]:0:2);
  end;
end;

procedure FindMaxWeeklyConsumptionCity;
var
  maxConsumption: real;
  maxCity: Cities;
begin
  writeln('в) Город с максимальным еженедельным потреблением электроэнергии:');
  maxConsumption := 0;
  for r := Chisinau to Tiraspol do
  begin
    if CalculateWeeklyConsumption(r) > maxConsumption then
    begin
      maxConsumption := CalculateWeeklyConsumption(r);
      maxCity := r;
    end;
  end;
  writeln('Город ', maxCity, ' с потреблением ', maxConsumption:0:2);
end;

procedure FindMinWeeklyConsumptionCity;
var
  minConsumption: real;
  minCity: Cities;
begin
  writeln('г) Город с минимальным еженедельным потреблением электроэнергии:');
  minConsumption := CalculateWeeklyConsumption(Chisinau);
  minCity := Chisinau;
  for r := Orhei to Tiraspol do
  begin
    if CalculateWeeklyConsumption(r) < minConsumption then
    begin
      minConsumption := CalculateWeeklyConsumption(r);
      minCity := r;
    end;
  end;
  writeln('Город ', minCity, ' с потреблением ', minConsumption:0:2);
end;

procedure FindMaxDailyConsumptionDay;
var
  maxConsumption: real;
  maxDay: Days;
begin
  writeln('д) День, в который было потреблено наибольшее количество электроэнергии:');
  maxConsumption := 0;
  for z := L to D do
  begin
    if CalculateDailyConsumption(z) > maxConsumption then
    begin
      maxConsumption := CalculateDailyConsumption(z);
      maxDay := z;
    end;
  end;
  writeln('День ', maxDay, ' с потреблением ', maxConsumption:0:2);
end;

procedure FindMinDailyConsumptionDay;
var
  minConsumption: real;
  minDay: Days;
begin
  writeln('е) День с наименьшим потреблением электроэнергии:');
  minConsumption := CalculateDailyConsumption(L);
  minDay := L;
  for z := Ma to D do
  begin
    if CalculateDailyConsumption(z) < minConsumption then
    begin
      minConsumption := CalculateDailyConsumption(z);
      minDay := z;
    end;
  end;
  writeln('День ', minDay, ' с потреблением ', minConsumption:0:2);
end;

begin
  // Введите данные о потреблении электроэнергии для каждого города и каждого дня
  // Например, C[Chisinau, L] := 100.0; // Потребление города Chisinau в понедельник

// Затем вызовите необходимые процедуры для получения результатов
  CalculateWeeklyConsumption;
  CalculateDailyConsumption;
  FindMaxWeeklyConsumptionCity;
  FindMinWeeklyConsumptionCity;
  FindMaxDailyConsumptionDay;
  FindMinDailyConsumptionDay;

end.

В данной программе предполагается, что вы введете данные о потреблении электроэнергии для каждого города и каждого дня. Вместо комментариев "Введите данные о потреблении электроэнергии", вам нужно будет заполнить соответствующие значения.