Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];

Вниз

Помагите   Найти похожие ветки 

← →
nika_ufc   (2002-10-30 00:55) [0]

у меня есть программа которая выдает ошибкую помагите please:

program Rectangle;

{$APPTYPE CONSOLE}

uses
SysUtils,Classes;

type TMas=array of array of integer;

procedure RecFinder(m,n:integer;var A:array of TMas);
var Vertical,Horizontal:integer;
begin
repeat
repeat
.....
.....
n:=n+1;
until A[m,n]=1; ошибка здесь
m:=m+1;
until A[m,n]=1; и ошибка здесь
end;


var Matrix :TMas;
i,j,RecCounter:integer;
SL :TStringList;
S :String;
begin
S:="";
Write("Go and enter Matrix into Rectangle.txt");
SL:=TStringList.Create;
SL.LoadFromFile("Rectangle.txt");
SetLength(Matrix,SL.Count,Length(TrimRight(SL[i])));
for i:=0 to SL.Count-1 do
begin
S:=SL[i];
for j:=1 to Length(Trim(S)) do
Matrix[i,j-1]:=StrToInt(S[j]);
end;
i:=0;
j:=0;
for i:=0 to SL.Count-1 do
begin
for j:=0 to Length(Matrix[j])-1 do
if Matrix[i,j]=1 then RecFinder();
end;
SL.SaveToFile("Rectangle1.txt");
readln
end.

объясните пожалуиста в чем дело.
спосибо заранее

---

← →
MBo   (2002-10-30 01:13) [1]

type TMas=array of array of integer;
procedure RecFinder(m,n:integer;var A:array of TMas - получается трехмерный

until A[m,n] - два индекса

---

← →
nika_ufc   (2002-10-30 01:35) [2]

спосибо тебе MBo

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c