var
f1,f2,f3:text;
s:char;
{1. открываем исходный файл
2. создаем новый файл
3. считываем символы из исходного файла и записываем новый символ со смещением
в новый файл
4. открываем зашифрованный файл и расшифровываем его в новый файл }
BEGIN
{1.}
{$I-}
assign(f1,'text1.txt');
reset(f1);
{$I+}
if ioresult<>0 then
begin
writeln('Создайте текстовый файл text1.txt и запустите программу снова!');
readln;
halt;
end;
{2.}
assign(f2,'text2.txt');
rewrite(f2);
while not eof(f1) do
begin
{3.}
read(f1,s); {считываем один символ в s}
write(f2,chr(ord(s)+9)); {получаем код символа ord(s),
прибавляем к коду символа число 9,
записываем в файл f2 символ с кодом ord(s)+9)}
end;
close(f1);
close(f2);
writeln('Создан зашифрованный файл text2.txt');
writeln;
{4.}
reset(f2);
assign(f3,'text3.txt');
rewrite(f3);
while not eof(f2) do
begin
read(f2,s);
write(f3,chr(ord(s)-9));
end;
close(f2);
close(f3);
writeln('Создан расшифрованный файл text3.txt из зашиврованного файла text2.txt');
writeln;
readln;
END.
Похожие записи/страницы:
- Дан файл f , компоненты которого являются целыми числами.Записать в файл g все чётные числа файла f,а в файл h…
- Создать файл, компоненты (
- Дан текстовый файл. Удалить между словами лишние пробелы, оставив только один. Результат записать во второй файл…
- Дан вектор Vn заполненный произвольно натуральными числами.Нужно переписать этот вектор в файл .txt и, внимание,…
- Составить программу, которая создает текстовый файл, состоящий из N значений. Прочитать файл и определить есть…
- Заполнить файл F целыми числами, полученными с помощью генератора случайных чисел. Найти количество удвоенных…
- Дан текстовый файл, содержащий несколько строк. Программа должна отредактировать файл так, чтобы удалились…
- Из файла F1 сформировать файл F2, в котором содержаться символы из А1 в обратном порядке. (Замечание: учесть,…