Решаем задачи Абрамян на Паскале. Minmax5

Minmax5. Дано целое число $$N$$ и набор из $$N$$ пар чисел $$(m, v)$$ — данные о массе m и объеме v деталей, изготовленных из различных материалов. Вывести номер детали, изготовленной из материала максимальной плотности, а также величину этой максимальной плотности. Плотность $$P$$ вычисляется по формуле $$P = m/v$$.

Формула плотности:

$$\rho =\frac{m}{v}$$

Решение:

program MinMax3;
var
  m,v,p,pMax:Real;
  i,N,MaxNum:Integer;

begin
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     Write(i,') m v:');
     Readln(m,v);
     p:=m/v;
     if i=1 then
      begin
       pMax:=p;
       MaxNum:=i;
      end;
     if p>pMax then
      begin
       pMax:=p;
       MaxNum:=i;
      end;
   end;
  Writeln(MaxNum,' - ',pMax);
end.

program MinMax3;

var

m,v,p,pMax:Real;

i,N,MaxNum:Integer;

begin

Write('N:');

Readln(N);

for i:=1 to N do

begin

Write(i,') m v:');

Readln(m,v);

p:=m/v;

if i=1 then

begin

pMax:=p;

MaxNum:=i;

end;

if p>pMax then

begin

pMax:=p;

MaxNum:=i;

end;

Writeln(MaxNum,' - ',pMax);

end.

Другие задачи из раздела Minmax можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Minmax5

Комментарии:

Добавить комментарий Отменить ответ