Question

Задано мощности шести генераторов переменного тока: 5,9,15,27,46 и 60 кВт и соответствующие их массы: 30,52,90,155,270 и 465кг. Нужно вычислить значение мощности, приходящейся на единицу массы каждого генератора, кВт / кг. Програма на паскале.

Answer 1

Var a:array [1..6] of integer;    b:array [1..6] of integer;    c:array [1..6] of real;    i:integer;  begina[1]:=5;     b[1]:=30;a[2]:=9;     b[2]:=52;a[3]:=15;    b[3]:=90;a[4]:=27;    b[4]:=155;a[5]:=46;    b[5]:=270;a[6]:=60;    b[6]:=465;for i:=1 to 6 doc[i]:=a[i]/b[i];for i:=1 to 6 dowriteln('кВт/кг ',i,'-го генератора = ',c[i]);end.

Answer 2

Для решения этой задачи на Pascal (Free Pascal) можно использовать следующий код:

pascalCopy code
program PowerToMassRatio;

const
  NumGenerators = 6;
  
type
  TGenerator = record
    Power: Real;
    Mass: Real;
    PowerToMassRatio: Real;
  end;

var
  Generators: array[1..NumGenerators] of TGenerator;
  i: Integer;

begin
  Generators[1].Power := 5;
  Generators[1].Mass := 30;
  
  Generators[2].Power := 9;
  Generators[2].Mass := 52;
  
  Generators[3].Power := 15;
  Generators[3].Mass := 90;
  
  Generators[4].Power := 27;
  Generators[4].Mass := 155;
  
  Generators[5].Power := 46;
  Generators[5].Mass := 270;
  
  Generators[6].Power := 60;
  Generators[6].Mass := 465;

  for i := 1 to NumGenerators do
    Generators[i].PowerToMassRatio := Generators[i].Power / Generators[i].Mass;

  { Вывод результатов }
  for i := 1 to NumGenerators do
    writeln('Генератор ', i, ': ', Generators[i].PowerToMassRatio:0:2, ' кВт/кг');
end.

Этот код определяет массив Generators типа TGenerator, где каждый элемент содержит мощность и массу соответствующего генератора, а также вычисляет значение мощности, приходящейся на единицу массы каждого генератора (кВт/кг) и выводит результаты на экран.