Помощь с файлами.

[Powerstrie]

Задание такое: Создать типизированный файл целых чисел и поместить в него 10 случайных чисел.
Я создаю следующий код, на мой взгляд абсолютно верный :

program lab10;
const N=10;

var noob:file of integer;
    i,o:integer;
begin
randomize;
assign(noob,'C:\lol.txt');
rewrite(noob);
for i:=1 to 10 do begin
o:=random(50);
write(noob,o);
end;
close(noob);
end.

После чего я запускаю программу и вижу в текстовом файле след . картину :

Тоесть, заместо чисел в диапозоне от 0 до 50 в файл записываются символы. В чем проблема ?

[Slym]

writeln(noob,IntToStr(o));

[type_Oleg]

Powerstrie, все правильно сделал. Просто для проверки зря использовал блокнот. Блокнот понимает все байты файла как коды символов. Один байт - один символ ( если Блокнот не в Unicode).
То есть если например будет число 48 , то отобразится не 48, а 0, потому что код символа 0 как раз 48.
А числа от 0 до 31 - это вообще коды всяких управляющих сиволов, типа стрелок, забоя и т.д.

Это не текстовый файл, а типизированный file of integer;. Для числа типа Integer выделяется по 4 байта, у тебя числа все не более 50, поэтому первые 3 байта в каждом числе = 0, и поэтому пробелы между символами.

[Powerstrie]

Сообщение от type_Oleg

Powerstrie, все правильно сделал. Просто для проверки зря использовал блокнот. Блокнот понимает все байты файла как коды символов. Один байт - один символ ( если Блокнот не в Unicode).
То есть если например будет число 48 , то отобразится не 48, а 0, потому что код символа 0 как раз 48.
А числа от 0 до 31 - это вообще коды всяких управляющих сиволов, типа стрелок, забоя и т.д.

Это не текстовый файл, а типизированный file of integer;. Для числа типа Integer выделяется по 4 байта, у тебя числа все не более 50, поэтому первые 3 байта в каждом числе = 0, и поэтому пробелы между символами.

Какую программу лучше использовать для проверки?

Сообщение от Slym

writeln(noob,IntToStr(o));

"ЛАБА 10.pas(12) : Нельзя преобразовать тип string к integer"

[Serge_Bliznykov]

Powerstrie, вы в коде всё абсолютно верно написали, type_Oleg всё верно вам объяснил.

Ваша ошибка:

После чего я запускаю программу и вижу в текстовом файле след . картину :

Как правильно сказали, у Вас НЕ ТЕКСТОВЫЙ файл.

Какую программу лучше использовать для проверки?

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

program labTest;

var 
   noob:file of integer;
   o:integer;
begin
  assign(noob,'C:\lol.txt');
  reset(noob);
  WriteLn('Число записей (чисел) в файл = ', FileSize(noob));
  WriteLn('Содержимое файла: ');
  while not eof(noob) do begin
     Read(noob,o);
     Write(o,' '); {выводим числа в одну строчку через пробел}
  end;
  WriteLn;
  close(noob);
  Readln; {задержим закрытие программы до нажатия ENTER}
end.

[Powerstrie]

Огромное спасибо за помощь всем отозвавшимся. Вопрос решен.

[ViktorR]

Powerstrie
Если еще появишся тут, то как вариант для просмотра - FAR.
В нем есть возможность просматривать как Hex так и ASCII.
А если все понял, то попробуй создать небольшой типизированный файл, в котором будут смешаны текст и числа, в том числе и, например, с типом real.
Это можно сделать с использованием записей (record).

Покопайся FAR'ом...



Как-то так, ...

[type_Oleg]

Сообщение от ViktorR

Powerstrie
Если еще появишся тут, то как вариант для просмотра - FAR. ...

Я кстати тоже хотел предложить для просмотра байтов, но только DiscoCommander ( сам пользуюсь по привычке), или Norton.. или Volkov.. Кнопка F3. Правда там в 16-ричном коде.