Вывод численных значений, графика Опции

[Ирин]

Существует типизированный файл, содержащий 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]

Так попробуй:

setcolor(7); { <--- Это необязательно делать в цикле }
for J:=1 to 10 do begin { <-- Внимательно смотри на переменную !!! }

  read(fail,i);
  str(i:6,ts);
  outtextxy(20, 30 + (j - 1) * (textheight('W') + 2), ts);

end;

[Ирин]

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]

Ну, извини, ЭТО - уже твоя проблема. Я показал тебе, как вывести значения из файла в столбик (а уж если файла не было, он пустой, или ты просто не соизволила сделать Reset(fail)...) Извини, но тебе не кажется, что именно ТЫ должна заботиться о корректности данных?

Или все надо преподнести "на блюдечке"?

[Ирин]

Ну, извини, ЭТО - уже твоя проблема. Я показал тебе, как вывести значения из файла в столбик (а уж если файла не было, он пустой, или ты просто не соизволила сделать Reset(fail)...) Извини, но тебе не кажется, что именно ТЫ должна заботиться о корректности данных?

Или все надо преподнести "на блюдечке"?

)))))))))))))))))))))))))))))))