Задание на тему "Файлы" в Pascal
Прошу помощи с написанием кода для данного задания: записать в файл с расширением .dat строку (с клавиатуры), содержащую латинские строчные буквы и цифры. Закодировать строку шифром Цезаря (шаг ввести с клавиатуры) и записать в этот же файл.
|
var F:text;
Key,n,x:integer; c:char; s,s1:string; begin Write('Shag: '); Readln(Key); Writeln('String: '); Readln(s); Assign(F,'text.dat'); Rewrite(F); Writeln(F,s); Close(F); s1:=''; for n:=1 to Length(s) do begin x:=Ord(s[n])+Key; if x>255 then x:=x-256+32; c:=Char(x); s1:=s1+c; end; Assign(F,'text.dat'); Append(F); Writeln(F); Writeln(F,s1); Close(F); end. |
Благодарю за вашу помощь, все работает:)
|
Часовой пояс GMT +4, время: 13:26. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.