Определить для каждого типа изделий предпочтительный тип печи и вывести результат

@Dreamkiller · Регистрация: 01.03.2013

Студворк — интернет-сервис помощи студентам

Задача с двумерным масивом
В таблице приведено время выпечки хлебобулочных изделий на печах различного типа. Данные вводятся с клавиатуры и должны быть выведены на экран в виде таблицы:

Определить для каждого типа изделий предпочтительный тип печи (с минимальными затратами времени на выпечку) и вывести результаты вместе с таблицей исходных данных.

Я решил эту задачу на PascalABC, но при запуске на Турбо Паскале она не выполняет последние действия. Не показывает минимумы. Помогите доделать. С турбо никогда не работал просто.

Pascal

uses crt;
var a:array [1..2,1..5] of integer;
b,i,c,min1,min2,p1,p2:integer;
begin
 
for i:=1 to 5 do begin
writeln('Ввведите время выпечки (в часах) в печи № ',i, ' для Белого хлеба');
readln(b);
a[1,i]:=b;
end;
 
for i:=1 to 5 do begin
writeln('Ввведите время выпечки (в часах) в печи № ',i, ' для Черного хлеба');
readln(c);
a[2,i]:=c;
end;
 
writeln('Вид изделия  Времяв часах для разных типов печей');
writeln('                 Тип 1 Тип 2 Тип 3 Тип 4 Тип 5');
write('Белый хлеб         ');
for i:=1 to 5 do begin
write(a[1,i],'     ');
end;
writeln;
 
write('Черный хлеб        ');
for i:=1 to 5 do begin
write(a[2,i],'     ');
end;
writeln;
 
begin
min1:=1000;
for i:=1 to 5 do begin
if a[1,i] <= min1 then begin min1:=a[1,i]; p1:=i; end else
i:=i+1;
end;
 
min2:=1000;
for i:=1 to 5 do begin
if a[2,i] <= min2 then begin min2:=a[2,i]; p2:=i; end else
i:=i+1;
end;
 
writeln('Предпочтительный тип печи для Белого хлеба № ', p1);
writeln('Предпочтительный тип печи для Черного хлеба № ', p2);
end;
end.

@markiza-inc · 09.01.2014, 12:13

Если слегка подправить Вашу прогу, то можно так:

Pascal

uses crt;
var a           : array [1..2,1..5] of integer;
    b,i,c,min1,
    min2,p1,p2  : integer;
begin
  clrscr;
  for i:=1 to 5 do
    begin
      write('Ввведите время выпечки (в часах) в печи № ',i, ' для Белого хлеба = ');
      readln(b);
      a[1,i]:=b;
    end;
 
  for i:=1 to 5 do
    begin
      write('Ввведите время выпечки (в часах) в печи № ',i, ' для Черного хлеба = ');
      readln(c);
      a[2,i]:=c;
    end;
 
  writeln('Вид изделия  Время в часах для разных типов печей');
  writeln('                 Тип 1 Тип 2 Тип 3 Тип 4 Тип 5');
  write('Белый хлеб         ');
  for i:=1 to 5 do
    begin write(a[1,i],'     ');end;
  writeln;
 
  write('Черный хлеб        ');
  for i:=1 to 5 do
    begin write(a[2,i],'     ');end;
  writeln;
 
  begin
    min1:=a[1,1];p1:=1;
    for i:=2 to 5 do
      begin
        if a[1,i] <= min1 then
           begin min1:=a[1,i]; p1:=i;end;
      end;
 
    min2:=a[2,1];p2:=1;
    for i:=2 to 5 do
      begin
        if a[2,i] <= min2 then
           begin min2:=a[2,i]; p2:=i;end;
      end;
 
    writeln('Предпочтительный тип печи для Белого хлеба № ', p1);
    writeln('Предпочтительный тип печи для Черного хлеба № ', p2);
  end;
  readln;
end.

Опции темы