Заполнение таблиц. Опции

[alex9910]

Саму таблицу я могу нарисовать а как сделать ввод данных в саму таблицу?

Полный текст задачи: Имеются некоторые данные фирмы, занимающейся реализацией товаров: Название поставщика поставляющего товар, Номер склада, Количество товара (в тоннах). Вывести на экран в виде таблицы сведения о доставке Y тонн продукции на склад № X, Ввод исходных данных реализовать тоже в таблице, чтобы избежать подсказок ввода. Хранить исходные данные в массивах (каждый столбец таблицы отдельный массив).

Всем спасибо ;)

[IUnknown]

Показываю на примере, как вводить числа, слова вводить еще проще, там не надо проверять ошибки.

uses crt;

const
   size = 5;
   Width = 15; // ширина поля для ввода числа
var
   arrX : array[1 .. size] of real;
   f : real;
   i : integer;

begin
   clrscr;
   // сначала рисуем таблицу
   for i := 1 to 5 do
   begin
      write(#179' #', i:2, #179:2);
      writeln(#179:Width);
   end;

   // а потом пользователь заносит туда данные
   for i := 1 to size do
   begin
      {$i-}
      repeat
         gotoxy(8, i);
         write('':(Width - 1));
         gotoxy(9, i);
         read(f);
      until IOResult = 0; // как только введено правильное вещественное число - продолжаем
      {$i+}
      arrX[i] := f;
   end;

end.

Запусти и посмотри, как себя ведет программа.

Но тут вот какой казус: заполнять данные придется последовательно, начиная от первой строки и до последней, то есть ты не сможешь сначала заполнить третью, потом - пятую, а потом первую. Либо программу придется значительно усложнить (скажем, использовать вот эту наработку, некое подобие меню, какую строку пользователь выбрал - ту потом и будет заполнять). Реши для себя, что тебе надо, если не получится реализовать самостоятельно - пиши, я помогу.