![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Kenzo |
![]() ![]()
Сообщение
#1
|
![]() Группа: Пользователи Сообщений: 6 Пол: Женский Репутация: ![]() ![]() ![]() |
У меня такое задание:
нужно зашифровать сообщения, записывая все слова в предложении наоборот и все буквы в слове также наоборот. Составить программу, зашифровывающую и расшифровывающую любое сообщение составленное таким образом. В программе Pascal я все это сотавила: uses crt;
var s: string;
i: integer;
begin
clrscr;
write('Введите строку: ');
readln(s);
for i:=length(s) downto 1 do write(s[i]);
writeln;
for i:=1 to length(s)-1 do
if(s[i]='')and(s[i+1]<>'') then
writeln
else write(s[i]);
readln;
end.
Все прекрасно работает: МАМА МЫЛА РАМУ и наоборот соответственно УМАР АЛЫМ АМАМ Нужно реализовать это в Delphi. Я так понимаю необходимо 3 поля МЕМО - в 1 само сообщение, во 2 - оно зашифровывется, в 3 - расшифровывется. Вот как это сделать, вывести в поле мемо сообщение о расшифровке и дешифровке я не знаю. Подскажите, пожалуста! Сообщение отредактировано: volvo - 6.11.2009 22:31 |
![]() ![]() |
![]() |
Текстовая версия | 25.07.2025 23:09 |