Форум «Всё о Паскале» _ Задачи _ Вывод численных значений
Автор: Ирин 31.05.2006 17:36
Существует типизированный файл, содержащий 10 чисел. Прочитать числа из файла и вывести их на экран в один столбик в графическом режиме, размещение начать с 20 позиции по горизонтали и 30 позиции по вертикали.
Код
program es; uses graph, crt; type int=integer; var gd,gm, i:integer; l:longint; ch:char; ts:string; fail: file of int; begin gd:=detect; initGraph(gd,gm,'d:\bp\bgi'); assign(fail,'filefor.dat'); rewrite(fail); l:=0; while not eof(fail) do begin seek(fail,l); write('Введите числf'); readln(i); for i:=1 to 10 do write(fail,i); end; l:=0; for i:=1 to 10 do begin seek(fail,l); read(fail,i); str(i:6,ts); setcolor(7); outtextxy(20,30,'ugh'); end; readln; closegraph; end.
не получаеться правильного ответа((( помогите пож..
Автор: volvo 31.05.2006 18:04
Так попробуй:
setcolor(7); { <--- Это необязательно делать в цикле } for J:=1 to 10 do begin { <-- Внимательно смотри на переменную !!! }
seek(fail,l); read(fail,i);-здесь выдает ошибку пишет что ошибка при чтении диска str(i:6,ts); outtextxy(20, 30 + (j - 1) * (textheight('W') + 2), ts);
end;
Автор: volvo 31.05.2006 18:17
Ну, извини, ЭТО - уже твоя проблема. Я показал тебе, как вывести значения из файла в столбик (а уж если файла не было, он пустой, или ты просто не соизволила сделать Reset(fail)...) Извини, но тебе не кажется, что именно ТЫ должна заботиться о корректности данных?
Или все надо преподнести "на блюдечке"?
Автор: Ирин 31.05.2006 18:38
Цитата(volvo @ 31.05.2006 15:17)
Ну, извини, ЭТО - уже твоя проблема. Я показал тебе, как вывести значения из файла в столбик (а уж если файла не было, он пустой, или ты просто не соизволила сделать Reset(fail)...) Извини, но тебе не кажется, что именно ТЫ должна заботиться о корректности данных?