Информационное табло по баскетболу, Создание базы данных Опции

[LOVE133]

Финальным аккордом стала такая задача.Необходимо создать табло, которое выдавало бы данные о команде, игроке, времени попадания и очках за мяч. Ввод данных у меня получается, оформление диалогового режима в виде меню тоже, а как информацию из файла в виде таблицы на экран или на принтер вывести - вот тут -то и возникли трудности. Вот что получилось . Там есть программки, для добавления в файл, для просмотра, только что-то на работает.... Может , подскажете, что именно.


Не стоит постить с вои задания в FAQ

Сообщение отредактировано: klem4 - 12.12.2005 9:31

[klem4]

ВОзможнт тебе вот это нужно, вот пример вывода данных в виде таблицы

program kuznecov_2;

uses crt;

type

   TGoods = array[1..50] of record
      name     : string[15];
      cost     : word;
      pPlan    : word;
      pFact    : word;
      pPercent : byte;
   end;

var

   goods : TGoods;

   n : byte;

procedure FillData(var r : TGoods; size : byte);
var
   i : byte;
begin
   for i := 1 to size do
    with r[i] do begin
       clrscr;
       writeln('Tovar  N ', i);
       writeln;
       write('Imya : '); readln(name);
       write('Cena : '); readln(cost);
       write('Skolko nado prodat po planu : '); readln(pPlan);
       write('Skolko prodano po faktu : '); readln(pFact);

       pPercent := round(100*pFact/pPlan);

    end;

    writeln;
    writeln('Spasibo, vvod zavershen, najmite lunuy klavishu');
    repeat
    until keypressed;
    clrscr;
end;

procedure ShowTable(r : TGoods; size : byte);
var
   i : integer;
begin

   writeln('+-------------+------+--------+-------+---------+');
   writeln('|     NAME    | COST |  PLAN  |  FACT | PERCENT |');
   writeln('+-------------+------+--------+-------+---------+');

   for i := 1 to size do
    with r[i] do begin
       writeln('|', name : 10,'|':4, cost : 5,'|':2,pPlan :5,'|':4,
        pFact : 4, '|':4, pPercent:6, '|':4);
   writeln('+-------------+------+--------+-------+---------+');
    end;

end;
Begin

   clrscr;

   write('Kol-vo tovarov : ');

   readln(n);

   FillData(goods, n);
   ShowTable(goods, n);

   readln;


End.