перечисляем строки в массив Опции

[doorway]

есть задачка, большая, но я забыл как перечислить нормально строки текстового файла в массив. и большая стала маленькой пока.
входной файл имеет вид
1
2
3
..
10
Все работает, но в выходном файле 0.

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);

for i:=1 to 10 do

begin

readln(inp,mass[i]);

end;

rewrite(out);

write(out,mass[2]);

close(out);

close(inp);

end.

Помогите ошибку найти.

Сообщение отредактировано: doorway - 15.09.2010 19:54

[Unconnected]

"Иди туда, не знаю куда"? В чём задание состоит?

[doorway]

"Иди туда, не знаю куда"? В чём задание состоит?

перечислить строки текстового файла в массив mass. (текстовый файл: 10 строк, 1 столбик. целые числа).
ну а потом я написал вывести второй элемент массива в файл для проверки.

Сообщение отредактировано: doorway - 15.09.2010 20:04

[Unconnected]

Попробуй изменить имя переменной out (например, f2 напиши, мне кажется, out это зарезервированное слово). И проверь, существует ли входной текстовик в папке с программой. Так то должно работать, паскаля под рукой нет просто.. outpu.txt создаётся?

Сообщение отредактировано: Unconnected - 15.09.2010 20:12

[doorway]

Попробуй изменить имя переменной out (например, f2 напиши, мне кажется, out это зарезервированное слово). И проверь, существует ли входной текстовик в папке с программой. Так то должно работать, паскаля под рукой нет просто.. outpu.txt создаётся?

Выходной файл создается с нулем. заменил на f2. Все по-прежнему. по шагам все работает как надо, результат - нулевой.

[Rian]

код с поправками в фпц создал выходной файл с 2
точно файл загружается? меня пугают расширения *.inp

[doorway]

код с поправками в фпц создал выходной файл с 2
точно файл загружается? меня пугают расширения *.inp

да, файл смотрю правильно, все уже пересмотрел и перепробовал. расширение нормальное. мы ж указываем тип текст. у нас препод ваще все подряд пишет в расширении когда текстовый файл и канает

[Rian]

а как ты данные в текстовый файл вносишь?
плз выложи те файлы

[doorway]

а как ты данные в текстовый файл вносишь?
плз выложи те файлы

[Rian]

а эти строки у програме так и остались?

assign(inp,'inpu.inp');

assign(out,'outpu.out');

[doorway]

а эти строки у програме так и остались?

assign(inp,'inpu.inp');

assign(out,'outpu.out');

не, если файлы с расширением txt, то и п роге я их меняю. с файлами все впорядке. иначе ошибка вылетает файл не найден

[Rian]

а массив на экран вывести?

[doorway]

а массив на экран вывести?

нули рисует

[Unconnected]

Это значит, что массив в цикле заполняется некорректно. Хмм, какой паскаль используешь? Попробуй в цикле заполнения массива заодно выводить числа на экран с помощью writeln.

Сообщение отредактировано: Unconnected - 15.09.2010 23:42

[doorway]

Это значит, что массив в цикле заполняется некорректно. Хмм, какой паскаль используешь? Попробуй в цикле заполнения массива заодно выводить числа на экран с помощью writeln.

1)турбо паскаль 7.1
2) первая единица, а потом нули

Сообщение отредактировано: doorway - 16.09.2010 0:07

[Rian]

1)турбо паскаль 7.1
2) первая единица, а потом нули

блин на трёх компах проверил.... работает...

[volvo]

турбо паскаль 7.1

Выбрось. Установи нормальный TP 7.0, и наслаждайся правильной работой программ. Твой код, к примеру, под TP 7.0 отработал прекрасно, выдал "2" в выходном файле.

[doorway]

Выбрось. Установи нормальный TP 7.0, и наслаждайся правильной работой программ. Твой код, к примеру, под TP 7.0 отработал прекрасно, выдал "2" в выходном файле.

попробовал на 7.0 - та же фигня. первая едини ца выводится а потом нули

Сообщение отредактировано: doorway - 16.09.2010 13:53

[Rian]

гм .... фпц?

ЗЫ а у тебя не виста?

[doorway]

гм .... фпц?

ЗЫ а у тебя не виста?

нет, хр, а есть тот ТР, на котором у вас пошло.