типизированные файлы

[Тамерлан Абилов]

хочу дать цикл от 1 го до транк(n) в типизированном реале для чтение файлов последовательно.вот файл 6 2 3 4 5 6 7 8 9 10 11 - если так то цикл будет 1 до 6-ти последовательна начиная с числа 2.но транк не робит именно при чтений с файла тип. реала.

Var F,f1 : file of real;   i,j:integer;  s:longint; x,n:real;
Begin
Assign(F, 'd:/TEST.TXT');
reset(f);
assign(f1,'d:/resulllll.txt');
rewrite(f1);
read(f,n);
s:=1;
writeln(trunc(n));  { диагностическая печать выдает 0 }
for i:=1 to trunc(n) do begin
read(f,x); end;

[s-andriano]

Типизированный и текстовый - это разные типы файлов.
Вы уж решите, с каким именно Вы хотите работать.

[Stilet]

Тамерлан Абилов

А файл то как создается с исходными данными?

[Тамерлан Абилов]

Извините а где у меня там текстовый файл?у меня он типизированный ведь file of real.или я чего то не догоняю?тест.тхт?из-за этого?просто все работает нормально без проблем только транк не робит у мну вот с типизированными файлами когда читаю из файла.
Файл я создавал сам первый. исходные данные наверху как написал.

[s-andriano]

Тамерлан Абилов, тот файл, что Вы создали сами (в ноутпаде или другом редакторе) - текстовый. Читать его как типизированный нельзя.
Отсюда и все последующие ошибки.

Если хотите, считайте числа из текстового файла (а не как из типизированного) и запишите их в типизированный. При этом при попытке просмотре такого файла глазами ничего вразумительного Вы не увидите - так и должно быть.
Текст - это тот вид представления чисел, к которому привык человек. А компьютер хранит и использует числа совсем в другом виде.

[Poma][a]

А тогда как вогнать в типизированный файлик числа?

[Stilet]

Файл я создавал сам первый.

Вотъ. Я и хочу увидеть код создания сего файла )

[Тамерлан Абилов]

klernhsd,я не могу там качать залейте на другой файлообменник пжл
s-andriano,аа.исправил)все понятно спасибо большое))
Stilet,сам вручную создавал его обычный текстовый файл)впихнул эти числа назвал тест.тхт)
Poma][a,просто объявляешь типизированный файл например file of real)как у меня наверху)вот он и типизированный.в паскале ты можешь с ним работать как и с обычным текстовым разница в коде маленькая почитай статью)

[ViktorR]

Poma][a

А тогда как вогнать в типизированный файлик числа?

Опишите тип файла с указанием типа данных, например:

var fh : file of real;
     a : real;

Записывайте обычной командой:

write(fh, a);

Закрываете командой:

Close(fh);

При просмотре такого файла Вы не увидите числа. Там будут их бинарные эквиваленты.
Конечно, писать так каждое число в файл не всегда хорошо, но так можно записывать и целый массив.
Просто:

type  mas = array[1..100] of real;
   var a, b : mas;
    fh : file of mas;

и далее,

write(fh, a, b);

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

[s-andriano]

Сообщение от Poma][a

А тогда как вогнать в типизированный файлик числа?

Если умеете - то HEX-редактором.
Если это слишком сложно (да и не нужно), то ввести в память компьютера каким-либо доступным способом* нужные числа, после чего создать файл как типизированный и записать эти числа в него.

*примечание: например, прочитать из текстового файла или забить как константы прямо в текст программы. Но в любом случае - Вы создаете именно текст, не важно, в текстовом редакторе или редакторе кода, а программа (написанная Вами или компилятор) преобразует текст во внутреннее представление компьютера.