VPF::помогите разобраться с массивом

doorway

Дата 15.9.2010, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 15.9.2010

Репутация: нет
Всего: нет

вот написал программу, которая из текстового файла(столбик целых чисел, 10 строк) должна строки считать в массив. а потом я с этим массивом буду работать. компилируется все нормально, но при выполнении ошибка runtime error 106 at 0BF0:0095

Код


program var2;
var 
mass:array[1..10] of integer;
inp, out:text;
i:integer;
begin
assign(inp,'inpu.inp');
assign(out,'outpu.out');
reset(inp);
rewrite(out);
i:=1;
while not Eof(input) do
begin
readln(inp,mass[i]);
i:=i+1;
end;
write(out,mass[i]);
close(out);
close(inp);
end.

Это сообщение отредактировал(а) doorway - 15.9.2010, 12:43

pseud

Дата 15.9.2010, 12:00 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: нет
Всего: 40

Цитата(doorway @ 15.9.2010, 11:47

)

ошибка runtime error 106 at 0BF0:0095

в какой строке?

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Frees

Дата 15.9.2010, 12:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: нет
Всего: 54

может это в файле например перенос строки лишний
может

Код


for i := 1 to 10 do
begin
  readln(inp,mass[i]);
end;

--------------------

Кольцов Виктор Владимирович

doorway

Дата 15.9.2010, 12:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 15.9.2010

Репутация: нет
Всего: нет

в 14 строке пишет invalid numeric format, а до этого, если смотреть по шагам, курсор на черном экране чет ходит вправо, создает пустые строки, потом если дальше дать f8, опять начинает с первого бигина, а потом на 14 строке рантайм еррор

Добавлено @ 12:53

Код


program var2;
var
mass:array[1..10] of integer;
inp, out:text;
i:integer;
begin
assign(inp,'inpu.inp');
assign(out,'outpu.out');
reset(inp);
rewrite(out);
for i:=1 to 10 do
begin
read(inp,mass[i]);
i:=i+1;
end;
write(out,mass[2]);
close(out);
close(inp);
end.

вот в таком виде работает без ошибок, но результат в выходном файле 0.
входной файл имеет вид типа:
1
2
3
4
..
10

Это сообщение отредактировал(а) doorway - 15.9.2010, 12:54

aleksh

Дата 15.9.2010, 14:10 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 609
Регистрация: 8.7.2008

Репутация: нет
Всего: 13

во первых 14 строка вообще лишняя

Цитата(doorway @ 15.9.2010, 12:43

)

i:=i+1;

зачем?
во вторых, если память мне не изменяет, то не read, а readln

doorway

Дата 15.9.2010, 18:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 15.9.2010

Репутация: нет
Всего: нет

Цитата(aleksh @ 15.9.2010, 14:10)

Цитата(doorway @ 15.9.2010, 12:43

)

i:=i+1;
во первых 14 строка вообще лишняя зачем?
во вторых, если память мне не изменяет, то не read, а readln

ууу, все верно, да, как-то я не заметил, но все равно, работает, а на выходе 0

bems

Дата 16.9.2010, 01:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: нет
Всего: 88

Код


while not Eof(input) do

Вроде завел отдельный inp для этого, а потом пытаешся работать с неоткрытым input

--------------------

Обижено школьников: 8

sanek1990

Дата 21.9.2010, 14:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 19.10.2009

Репутация: нет
Всего: нет

вот держи все работает!

Код


program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  mass: array [1..10] of integer;
  inp, out: TextFile;
  i: integer;
  
begin
  Assign(inp,'inpu.txt');
  Assign(out,'outpu.txt');

  Reset(inp);
  Rewrite(out);

  for i:=1 to 10 do
  begin
    Readln(inp,mass[i]);
    Writeln(out,mass[I]);
  end;

    CloseFile(out);
    CloseFile(inp);
end.

superVad

Дата 21.9.2010, 18:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: нет
Всего: 15

Написал на делфи... Не заметил, что паскаль.

Это сообщение отредактировал(а) superVad - 21.9.2010, 19:06

sanek1990

Дата 22.9.2010, 08:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 19.10.2009

Репутация: нет
Всего: нет

и точно, не заметил smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »