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

[alex9910]

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

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

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

[IUnknown]

Не спрашивай, реально или нет. Реально сделать всё. Спрашивай, как это сделать. К примеру,

вот так... (Показать/Скрыть)

uses crt;

type
   Rec =
   record
      Title : string;
      Stock : Integer;
      Amount : Integer;
   end;

const
   size = 5;
   Width_Title  = 20;
   Width_Stock  = 10;
   Width_Amount = 10;

var
   arr : array[1 .. size] of Rec;
   i : integer;
   Value : Integer;
   Start : Integer;
begin
   clrscr;

   writeln(#179:2, '#':2,
           #179:2, 'Title':Width_Title,
           #179:2, 'Stock':Width_Stock,
           #179:2, 'Amt.':Width_Amount, #179);

   for i := 1 to size do
   begin
      writeln(#179:2, i:2, #179:2,
              #179:2 + Width_Title,
              #179:2 + Width_Stock,
              #179:2 + Width_Amount - 1);
   end;

   for i := 1 to size do
   begin
      Start := 7;
      gotoxy(Start, i + 1);
      write('':Width_Title);
      gotoxy(Start + 1, i + 1);
      readln(arr[i].Title);

      Inc(Start, Width_Title + 2);

      {$i-}
      repeat
         gotoxy(Start, i + 1);
         write('':Width_Stock);
         gotoxy(Start + 1, i + 1);
         readln(Value);
      until IOResult = 0;
      arr[i].Stock := Value;

      Inc(Start, Width_Stock + 2);

      repeat
         gotoxy(Start, i + 1);
         write('':Width_Amount);
         gotoxy(Start + 1, i + 1);
         readln(Value);
      until IOResult = 0;
      arr[i].Amount := Value;
      {$i+}
   end;
end.

[alex9910]

Не спрашивай, реально или нет. Реально сделать всё. Спрашивай, как это сделать. К примеру,

вот так... (Показать/Скрыть)

uses crt;

type
   Rec =
   record
      Title : string;
      Stock : Integer;
      Amount : Integer;
   end;

const
   size = 5;
   Width_Title  = 20;
   Width_Stock  = 10;
   Width_Amount = 10;

var
   arr : array[1 .. size] of Rec;
   i : integer;
   Value : Integer;
   Start : Integer;
begin
   clrscr;

   writeln(#179:2, '#':2,
           #179:2, 'Title':Width_Title,
           #179:2, 'Stock':Width_Stock,
           #179:2, 'Amt.':Width_Amount, #179);

   for i := 1 to size do
   begin
      writeln(#179:2, i:2, #179:2,
              #179:2 + Width_Title,
              #179:2 + Width_Stock,
              #179:2 + Width_Amount - 1);
   end;

   for i := 1 to size do
   begin
      Start := 7;
      gotoxy(Start, i + 1);
      write('':Width_Title);
      gotoxy(Start + 1, i + 1);
      readln(arr[i].Title);

      Inc(Start, Width_Title + 2);

      {$i-}
      repeat
         gotoxy(Start, i + 1);
         write('':Width_Stock);
         gotoxy(Start + 1, i + 1);
         readln(Value);
      until IOResult = 0;
      arr[i].Stock := Value;

      Inc(Start, Width_Stock + 2);

      repeat
         gotoxy(Start, i + 1);
         write('':Width_Amount);
         gotoxy(Start + 1, i + 1);
         readln(Value);
      until IOResult = 0;
      arr[i].Amount := Value;
      {$i+}
   end;
end.

Ого-го , такого еще не видел)
А если я без rec сделаю? там же считай все останется , только немного подредактировать..

На сколько я понял это для того что бы не описывать много переменных...