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


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

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


procedure TForm2.Button1Click(Sender: TObject);
var
s: string;
i: Integer;
begin
s:=Memo1.Text;
memo2.Text:='';
for i := Length(memo1.Text) downto 1 do
memo2.Text:=memo2.Text+memo1.Text[i];
end;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






uses StrUtils;

// ...
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Text := ReverseString(Memo1.Text);
end;
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






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


Бывалый
***

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

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


Why not settling on games that is fun and at the same time your earning. Well it'll make suspense because the game is well but dude just try it and it gave me hope while pandemic is real rn. Mistakes to Avoid when Gambling
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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