program filetype;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
Tp=array[1..100] of integer;
var
aFile: File of Tp;
i,n:integer;
begin
randomize;
write('Razmer massiva A n=');
readln(n);
writeln('Ishodnyj:');
Assign(aFile, 'nbsm.dat');
Rewrite(aFile);
{$i+}
if IOResult <> 0 then write('file not')
else
for i:=1 to n do
begin
write(aFile, random(20));
end;
end.
Работа с файлами
во общем нужно создать файл с целыми числами а потом переместить эти числа в другой файл ну или просто преобразовать так что бы десятичные цифры были записаны в обратном порядке(я так понял 10 -> 01). подскажите в каком направление двигаться? Какой тип файловой переменной лучше взять? если не сложно то набросайте работу и обращение к файлу. И ещё интересует можно ли напрямую из файловой переменной на экран выводить?
пока вот что то такое получается(бред :)):
пока вот что то такое получается(бред :)):
Код: