| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Офигеть. Слетает и даже ошибок не выдаёт! [D7, 2000]

Glex ©   (2006-01-27 16:50:00) 

procedure readdata;
var i, j: byte;
t: array of array of integer;
begin
Assign(input, 'input.txt');
Reset(input);
Readln(input, N);
setlength(t,N);
for i:=0 to N-1 do setlength(t[i],N);

for i:=0 to N-1 do begin
 for j:=0 to i do begin
   read(input, t[i-1][j]); (* Здесь слетает на close(input) *)
   end;
 readln(input);
 end;
close(input); (* Сюда слетает *)
end;

Выполняется без ошибок но как-то странно. Просто слетает на конец процедуры и всё. Даже ошибок не выдаёт!
Почему это вдруг?

Файл input.txt:
3
1
2 3
5 7 6

---

ssk   (2006-01-27 18:30:00) [1]

>Это лень!

нет, это невнимательность

---

Yanis   (2006-01-27 17:53:00) [2]

> а я на такой фигне стопорюсь

Это лень!

---

Glex   (2006-01-27 16:55:00) [3]

Gero,

Блин, в который раз выручаешь) Спасибо большое)
У меня завтра областная олимпиада по информатике (я в 9-м классе учусь), а я на такой фигне стопорюсь.

---

MBo   (2006-01-27 16:53:00) [4]

for i:=0 to N-1 do begin
for j:=0 to i do begin
  read(input, t[i-1][j]);

что будет при i=0?

---

Gero   (2006-01-27 16:52:00) [5]

> for i:=0


> t[i-1]

Какой индекс будет в начале цикла?

---

Наверх