таблицы

[morgan97]

Как стороить таблицы в turbo paskal???

[F.A.N.R.]

Вопрос уточняй. Если невизуальные то можно использовать двойной массив. Вызывается, к примеру, так: I[1, 2] (1 столбец, 2 строка)

[Vaigard]

А если красивые, с разлиновкой, то тут тебе графика нужна. И над работой мышью повозиться придется (и не слабо повозиться)

[Nastysha]

К примеру так

uses crt;
const
n=5;     m=4;
mes:array[1..m] of string=('January','February','March','April');
type
Trab=record
     nazvanie:string[10];
     cena:array[1..m] of longint;
     end;
var sp:array[1..n] of Trab;
    mc:array[1..m] of longint;
  i,j,imn,max:byte;
    mn:longint;
    f:file of string;
    s:string;
    m,n :integer;
begin
clrscr;
sp[1].nazvanie:='Audi';
sp[1].cena[1]:=200;
sp[1].cena[2]:=100;
sp[1].cena[3]:=250;
sp[1].cena[4]:=190;
sp[2].nazvanie:='BMW';
sp[2].cena[1]:=120;
sp[2].cena[2]:=100;
sp[2].cena[3]:=150;
sp[2].cena[4]:=140;
sp[3].nazvanie:='Mersedes';
sp[3].cena[1]:=500;
sp[3].cena[2]:=200;
sp[3].cena[3]:=100;
sp[3].cena[4]:=140;
sp[4].nazvanie:='Opel';
sp[4].cena[1]:=180;
sp[4].cena[2]:=200;
sp[4].cena[3]:=150;
sp[4].cena[4]:=170;
sp[5].nazvanie:='Porshe';
sp[5].cena[1]:=150;
sp[5].cena[2]:=120;
sp[5].cena[3]:=140;
sp[5].cena[4]:=115;

for i:=1 to m do
 begin
  mc[i]:=0;
  for j:=1 to n do
  mc[i]:=mc[i]+sp[j].cena[i];
 end;
mn:=mc[1];imn:=1;
for i:=1 to m do
if mc[i]<mn then
 begin
  mn:=mc[i];
  imn:=i;
  end;
  for i:=1 to m do
if mc[i]>mn then
 begin
  mn:=mc[i];
  max:=i;
 end;
writeln('                 Postavki avtomobiley:                            ');
writeln('------------------------------------------------------------------||');
writeln('||             |              Mesyac                              ||');
writeln('|| Nazvanie    |--------------------------------------------------||');
writeln('||             | January    |   February |  March     |  April    ||');
writeln('------------------------------------------------------------------||');
for i:=1 to n do
 begin
  gotoXY(1,whereY);
  write('|| ',sp[i].nazvanie);
  for j:=1 to m do
   begin
    gotoXY(12+13*(j-1),whereY);

    write('    |    ',sp[i].cena[j],'     |  ');
  gotoXY(67,whereY);
  write('||');
  writeln;
 end;  end;
writeln('||----------------------------------------------------------------||');
gotoXY(1,whereY);
write('|| Obsc kol-vo: ');
for i:=1 to m do
 begin
  gotoXY(12+13*(i-1),whereY);
  write('    |  ',mc[i]);
 end;
gotoXY(67,whereY);
writeln('||');
writeln('||----------------------------------------------------------------||');
writeln('Minimal`noe kolichestvo v mesyac  ',mes[imn]);
writeln('Maximal`noe kolichestvo v mesyac  ',mes[max]);
readln
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.