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

Вниз

Офигеть. Слетает и даже ошибок не выдаёт!   Найти похожие ветки 

← →
Glex ©   (2006-01-27 16:50) [0]

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

---

← →
Gero ©   (2006-01-27 16:52) [1]

> for i:=0


> t[i-1]

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

---

← →
MBo ©   (2006-01-27 16:53) [2]

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

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

---

← →
Glex ©   (2006-01-27 16:55) [3]

Gero,

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

---

← →
Yanis ©   (2006-01-27 17:53) [4]

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

Это лень!

---

← →
ssk ©   (2006-01-27 18:30) [5]

>Это лень!

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

---

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

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

Наверх

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