Обработка двумерных массивов

@Yakov · Регистрация: 17.01.2009

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

А как Вы видите решение этой задачи?

Исходные данные: В таблице приведено время выпечки хле-бобулочных изделий на печах различного типа. Данные вводятся с клавиатуры и должны быть выведены на экран в виде таблицы:
Вид Время в часах для разных типов печей
------------------------------------------------------
Изделия Тип 1 Тип 2 Тип 3 Тип 4 Тип 5
Хлеб бел.
Хлеб черн.
--------------------------------------------------------
Подобрать для каждого типа печи предпочтительный тип изделия (с минимальными затратами времени на выпечку) и вывести ре-зультаты вместе с таблицей исходных данных

@Arustarh Dark · 19.01.2009, 19:18

Забавно, и раньше не читал.

@Puporev · 19.01.2009, 19:25

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

Код

 
for j:=1 to m do   //идем по столбцам вправо
   begin
     min:=a[1,j]; imin:=1; 
     for i:=1 to n do  идем по столбцу вниз
     if a[i,j]<min then
        begin
          min:=a[i,j];  //находим минимальное время
          imin:=i;  //запоминаем в какой оно строке
        end;
//выводим то, что у нас написано в этой строке в первом столбце, а иначе     //номер элемента строкового массива
    writeln('Для печи типа № столбца лучше продукция ', str[imin]);
  end;

@maximus09 · 19.01.2009, 19:39

Я понял это так.

Сначала программа спрашивает время, необходимое для приготовления белого и ржаного хлеба в печах разного типа, потом полученные данные выводит в таблицу.

В последней строке ("Итог") таблицы выводится информация о том, какой хлеб лучше печь в печи данного типа. Если на приготовление ржаного хлеба тратится меньше времени, то выгодно печь ржаной, если на приготовление белого - то белый.

Пример кода сделан мной на Delphi (при желании можно перевести в Паскаль). Вот он:

Delphi

var
Time: Array[1..5, 1..2] of Integer;
I,J:Integer;
S:string;
m:string;
begin
  for I := 1 to 5 do
    for J := 1 to 2 do begin
      s:='Pech typ ' + IntToStr(I);
 
      if J = 1 then
        s := s + ',  belyj hleb: '
      else
        s := s + ', rjanoj hleb: ';
 
        Write(s);
        Read(Time[i,j]);     
    end;
 
  write(#9);
  for J := 0 to 2 do begin
    for I := 0 to 5 do begin
      if J = 0 then begin
        if i<>0 then
          write('typ' + IntToStr(i) + #9)
      end else
        if i<> 0 then
          write(#9 + IntToStr(Time[i,j]))
        else
          if j = 1 then
            write('belyj')
          else
            write('rjanoj');
    end;
    writeln(#9);
  end;
 
  for i:= 1 to 80 do
    write('-');
 
  s:='Itog' + #9;
 
  for I := 1 to 5 do begin
    if Time[i,1]>Time[i,2] then
      s := s + 'r'
    else
      s := s + 'b'; 
 
    s := s + #9;
  end;
  writeln(s);
 
  Readln;    //Ждем, пока пользователь нажмет Enter

@Yakov 4 / 4 / 1 Регистрация: 17.01.2009 Сообщений: 59
		1
	Обработка двумерных массивов 19.01.2009, 16:32. Показов 2845. Ответов 3 Метки нет (Все метки) А как Вы видите решение этой задачи? Исходные данные: В таблице приведено время выпечки хле-бобулочных изделий на печах различного типа. Данные вводятся с клавиатуры и должны быть выведены на экран в виде таблицы: Вид Время в часах для разных типов печей ------------------------------------------------------ Изделия Тип 1 Тип 2 Тип 3 Тип 4 Тип 5 Хлеб бел. Хлеб черн. -------------------------------------------------------- Подобрать для каждого типа печи предпочтительный тип изделия (с минимальными затратами времени на выпечку) и вывести ре-зультаты вместе с таблицей исходных данных 0

@Arustarh Dark 62 / 63 / 12 Регистрация: 08.06.2008 Сообщений: 243
	19.01.2009, 19:18	2
	Забавно, и раньше не читал. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	19.01.2009, 19:25	3
	Ну таблицу и ввод в нее ты нам продемонстрировал, значит это не проблема. В каждом столбце таблицы, считай прямоугольной матрицы ищещь минимальное значение и запоминаешь номер строки. Кроме того создаешь строковый массив который у тебя первым столбцом. Алгоритм примерно такой. Код for j:=1 to m do //идем по столбцам вправо begin min:=a[1,j]; imin:=1; for i:=1 to n do идем по столбцу вниз if a[i,j]<min then begin min:=a[i,j]; //находим минимальное время imin:=i; //запоминаем в какой оно строке end; //выводим то, что у нас написано в этой строке в первом столбце, а иначе //номер элемента строкового массива writeln('Для печи типа № столбца лучше продукция ', str[imin]); end; 2

	19.01.2009, 19:39

Опции темы