Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Помогите разобраться с задачей на файлы.

Автор: roalang 26.2.2009, 05:37

Возникает ошибка Invalid nomeric format

Код


program Lab3;
uses crt;
var f,t: text;
i,y:integer;

begin
i:=0;
clrscr;
assign(f,'C:\bp\bin\t.txt');
reset(f);
write('Содержание файла <f>');
repeat
read(f,y);
write(' ',y );
until (eof(f));
close(f);
end.

Тегами пользуйся.

Автор: Курсант 26.2.2009, 06:11

Извини, могу ошибиться, паскаля у мну не стоит, и ставить невмоготу - уж больно долго это все...

У тебя f объявлено как text, а читаешь ты оттуда integer; Это неправильно имхо. Читать нужно byte и файл объявлять как f : file of byte... если я ничего не путаю... Зачем тебе t ? Она не используется в программе... И i тоже. integer занимает 4 байта, можно проскочить конец файла предположительно. Попробуй так... И модуль crt мне кажется тоже не нужен... Излишки это...

Код


program Lab3;
uses crt;
var f : file of byte;
y :byte;

begin
i:=0;
clrscr;
assign(f,'C:\bp\bin\t.txt');
reset(f);
write('Содержание файла <f>');
repeat
read(f,y);
write(' ',y ); // можно сделать здесь write (chr(y)); - чтобы символы выводились а не значения байтов...
until (eof(f));
close(f);
end.

Автор: volvo877 26.2.2009, 09:49

Цитата(Курсант @ 26.2.2009, 05:11

)

У тебя f объявлено как text, а читаешь ты оттуда integer; Это неправильно имхо.

К счастью, это только твое IMHO... Из текстового файла читать можно хоть Integer, хоть String, хоть Double. Если он там правильно записан, разумеется. Программа:

Код


program Lab3;
uses crt;
var
  f: text;
  y: integer;

begin
  clrscr;
  assign(f,'C:\bp\bin\t.txt');
  reset(f);
  write('Содержание файла <f>');
  repeat
    read(f,y);
    if not eof(f) then write(' ',y );
  until eof(f);
  close(f);
end.

+ содержимое файла T.TXT:

Код


23
43 45 67 209



343

выдают результат:
Содержание файла <f> 23 43 45 67 209 343

Цитата(Курсант @ 26.2.2009, 05:11

)

Читать нужно byte и файл объявлять как f : file of byte

Ну да, ну да... Как же. А заполнять его ты как будешь, этот File of Byte, ты уточнить не забыл? Блокнотом его заполнить можно?

Добавлено через 3 минуты и 10 секунд

Цитата(Курсант @ 26.2.2009, 05:11

)

integer занимает 4 байта

Этот бред тебе кто сказал? SizeOf(integer) зависит от компилятора. В Турбо Паскале, к примеру, это 2 байта, а не 4.

Автор: roalang 26.2.2009, 10:31

Немножко подумав, у меня получилось вот что

Код


program Lab3;
uses crt;
var f: text;
y:string; i:integer;

begin
i:=0;
clrscr;
assign(f,'C:\bp\bin\t.txt');
reset(f);
writeln('Содержание файла <f>');
repeat
readln(f, y);
writeln(' ', y);
until (eof(f));
close(f);
end.

Дали такое задание: В файле содержиться последовательностть слов разделенных пробелом. Текст заканчивается точкой. Вывести в новый файл все слова, отличные от последнего слова.
Вывести то я вывела, а как подсчитать слова в файле незнаю???

Автор: Курсант 26.2.2009, 16:51

volvo877, вот так, поленился поставить паскаль, понаписал непроверенной фигни... Что же я наделал... Одним словом - обделался (с) Ярослав Гашек