Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.07;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
1-21548
^Sanya
2002-10-28 17:22
2002.11.07
private vs implementation...


4-21882
Nikolas ShmuS
2002-09-27 00:26
2002.11.07
Принудительно минимизировать!


3-21386
Maloy_
2002-10-17 19:18
2002.11.07
Разделение модуле программы


3-21459
Elvira
2002-10-21 14:53
2002.11.07
LookUp-поля


7-21841
Ученик
2002-09-04 11:35
2002.11.07
Глобальные hook-и