Помощь - Поиск - Пользователи - Календарь
Полная версия: программа шифрования текстовых файлов
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Delphi
snejinka
Разработать программу шифрования текстовых файлов. Программа должна выполнить следующие действия: организовать построчное чтение данных из файла, уменьшить на 5 код каждой согласной буквы строки, записать зашифрованную строку в выходной файл. Предоставить возможность просмотра исходного и закодированного файлов. Каждое действие оформляется как подпрограмма. Главная программа реализует только диалоговый цикл взаимодействия с пользователем.
Не понимаю особенно как организовать построчное чтение данных из файла... Заранее спасибо!
sheka
readln(file, stringg);
Lapp
Немного дополню, что сказал sheka.

const
Consonant= ['b','c','d','f','g','h','k','l','m','n','p','q','r','s','t','v','w','x','z'];
Shift= 5;
...

while not EoF(f) do begin
ReadLn(f,s);
for i:=1 to Length(s) do if s[i] in Consonant then Dec(s[i],Shift);
WriteLn(g,s)
end;


Набор согласных проверь, мог ошибиться )).
snejinka
окей=) всё норм, спасибо!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.