Задание:Надо написать прогу которая читает текст из одного файла и меняет(кодирует) каждую букву на следующую букву алфавита, при этом должен использоваться еще один текстовый файл, в котором написанно какие буквы из текста меняются на другие. Т.е. вид примерно такой:
а:=б
б:=в
в:=г
ну и.т.д. Я попытался сделать, но не получается, символы из файла, где содержится выше указзанный тип кодировки, не распазнаются как текст, а получаются место букв всякие сердечки и квадратики и.т.д. Хелп кто знает как это пишется.
Вот код моей проги, которую я попробовал написать.
Код
uses CRT;
var
F,fs:text; переменных}
Buf:array[1..4096] of Char;
St,sts:String[255];
str:string;
i,y:longint;
begin
ClrScr;
str:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
Assign(fs,'C:\shifr.txt'
reset(fs);
while not eof(fs) do begin
readln(fs,sts);
end;
Assign(f,'C:\Text.txt');
SetTextBuf(f,Buf);
Reset(f);
While not EOF(F)do
begin
readln(F,St);
for i:=1 to Length(St) do begin
if St[i]='a' then St[i]:=Sts[y];
write(ST[i]);
end;
end;
B) :P