Версия для печати темы

Автор: Kenzo 7.11.2009 1:28

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

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

В программе 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 - расшифровывется. Вот как это сделать, вывести в поле мемо сообщение о расшифровке и дешифровке я не знаю.

Подскажите, пожалуста!

Автор: Client 7.11.2009 16:57

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;

Автор: volvo 7.11.2009 18:22

uses StrUtils;

// ...
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.Text := ReverseString(Memo1.Text);
end;

Автор: Lena 15.11.2013 22:00

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

Автор: nishaknapp 16.01.2023 7:17

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. https://mezoka.com/mistakes-to-avoid-when-gambling/