crancv » 12.02.2014 15:30:54
Вот текст программы, но в результате ее работы создается файл допустим с именем .inc (Безусловно при наличии файла допустим Main.inc в текущей директории).
Кто знает как избавиться от точки, добавить после inc цифру 15 и установить расширение к примеру .doc
Program One;
uses Utils;
type Resurses=record
Index:byte;
Kol_vo:uint64;
end;
var
Input:file;Output:text;Path:string;InputFileName:string;
Massive:array[0..255] of Resurses;
a:byte;
i:uint64;
Lenght:uint64;
//Вот кусок кода в котором нужно что-то добавить !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Begin
Writeln('Пожалуйста, введите имя файла');
Read(Path);
Assign(Input,Path);
if FileExists(Path) = False then
Writeln('File ',Input,' not found')
else
Begin
Assign(Output,ExtractFileExt(Path));
Reset(Input);
Writeln('File ',Path, ' open succeful !!!');
Lenght:=FileSize(Input);//Сохраним размер файла в переменной
Writeln('Размер файла равен : ',Lenght,' байт');
Rewrite(Output);//Открыть файл на запись
Writeln(Output,ExtractFileName(Path));//Запись имени файла
Writeln(Output,FileSize(Input));//Запись размера файла
Writeln(Output);//Пропустить строку в файле
//После этого ничего добавлять ненадо !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
///---------------------------------------------------------////
// Это область для экспериментов
for i:=1 to Lenght do
Begin
Read(Input,a);
inc (Massive[a].Kol_vo);
end;
for i:=0 to 255 do
begin
Massive[i].Index:=i;
writeln(Output,Massive[i].Index,' ',Massive[i].Kol_vo);
end;
//Конец области экспериментов
//Закрываем файлы
Close(Input);
Close(Output);
end;
end.
