IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Ввод данных в МЕМО1, вывод в МЕМО2
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Женский

Репутация: -  0  +


У меня такое задание:

нужно зашифровать сообщения, записывая все слова в предложении наоборот и все буквы в слове также наоборот. Составить программу, зашифровывающую и расшифровывающую любое сообщение составленное таким образом.

В программе 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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






Помогите решить эту же задачу только в виде функции
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 22:49
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name