не выводится двумерный массив

@MQ804 · Регистрация: 19.11.2012

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

доброго времени суток
не могу понять в чем проблема

Delphi

1
2
3

for c:=1 to 4 do begin
 for i:=1 to 2 do begin
  write(T1[i,c]:);

ругается, говорит вместо квадратной скобки ставить круглую
подскажите как решить сие задание?

19.11.2012, 04:50

Как массив Т1 объявлен? И почему после ":" ничего нет?

@MQ804 · 19.11.2012, 04:52 **[ТС]**

да, вот вся программа

Delphi

Type
 ship = Record
 Dlina:string;
 Shirina:integer;
 Osadka:integer;
 kolicestvovo_pasajirov:string;
 end;
T1=array[1..2] of  ship;
const
 A:T1 =((Dlina:'150';
            Shirina:30;
            Osadka:120;
            kolicestvovo_pasajirov:'2000'),
           (Dlina:'300';
            Shirina:50;
            Osadka:400;
            kolicestvovo_pasajirov:'5000'));
var
 Art:ship;
 i,c:integer;
begin
i:=1;
c:=1;
for c:=1 to 4 do begin
 for i:=1 to 2 do begin
  write(T1[i,c]:);
  writeln;
 end;
end;
readln;
end.

19.11.2012, 04:55

Правильно ругается, у тебя Т1 не просто массив, а запись. Ну так и выводить нужно с указаниями полей. Хотя и составлена программа как-то коряво.

@MQ804 · 19.11.2012, 04:56 **[ТС]**

а можно чуть поподробней?

19.11.2012, 04:59

Delphi

  for I := 1 to 2 do
  begin
    write(A[I].Dlina);
    write(A[I].Osadka);
// и так далее
  end;

@MQ804 · 19.11.2012, 05:00 **[ТС]**

огромное спасибо!)

angstrom
	19.11.2012, 04:50	2
	Как массив Т1 объявлен? И почему после ":" ничего нет?

angstrom
	19.11.2012, 04:55	4
	Правильно ругается, у тебя Т1 не просто массив, а запись. Ну так и выводить нужно с указаниями полей. Хотя и составлена программа как-то коряво.

@MQ804 0 / 0 / 1 Регистрация: 19.11.2012 Сообщений: 21
	19.11.2012, 04:56 [ТС]	5
	а можно чуть поподробней? 0

@MQ804 0 / 0 / 1 Регистрация: 19.11.2012 Сообщений: 21
	19.11.2012, 05:00 [ТС]	7
	огромное спасибо!) 0