|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.04.2012, 14:30 | #1 |
Новичок
Джуниор
Регистрация: 20.04.2012
Сообщений: 1
|
Перевод кода с паскаля на си++.
Uses
crt; Function decrypt(a:string):string; Var i,k:integer; Begin For i:=1 to length(a) do If (a[i] = 'А') or (a[i] = 'а') then Begin k:=ord(a[i])+31; a[i]:=chr(k); End else If a[i] in ['Б'..'Я','б'..'я'] then Begin k:=ord(a[i])-1; a[i]:=chr(k); End; decrypt:=a; End; Function encrypt(a:string):string; Var i,k:integer; Begin For i:=1 to length(a) do If (a[i] = 'Я') or (a[i] = 'я') then Begin k:=ord(a[i])-31; a[i]:=chr(k); End else If a[i] in ['А'..'Ю','а'..'ю'] then Begin k:=ord(a[i])+1; a[i]:=chr(k); End; encrypt:=a; End; Var a:string; mode:byte; Begin Readln(a); Repeat Write('Выберите режим (1-шифрование, 2-расшифрование): '); Readln(mode); Until (mode = 1) or (mode=2); Case mode of 1:writeln(encrypt(a)); 2:writeln(decrypt(a)); End; End. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевод с Паскаля на С++.... | Solnze2 | Помощь студентам | 0 | 20.05.2011 23:13 |
Нужен перевод кода с паскаля на фортран. | Cheeelios | Помощь студентам | 1 | 06.03.2011 14:27 |
перевод из паскаля в с++ | dANIL282 | Помощь студентам | 2 | 21.01.2011 00:05 |
Перевод с Паскаля на С | RamilFaz | Общие вопросы C/C++ | 3 | 08.04.2010 14:40 |
Перевод с Паскаля на С++ | MrJenika | Помощь студентам | 2 | 20.11.2009 20:42 |