Помощь - Поиск - Пользователи - Календарь
Полная версия: Вывод численных значений
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Ирин
Существует типизированный файл, содержащий 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)...) Извини, но тебе не кажется, что именно ТЫ должна заботиться о корректности данных?

Или все надо преподнести "на блюдечке"?
Ирин
Цитата(volvo @ 31.05.2006 15:17) *

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

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


)))))))))))))))))))))))))))))))
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.