Удвоить каждый символ строки, потом перевернуть строку

[Didi]

Помогите пожалуйста с заданием - Вводится строка. Удвоить каждый ее символ, потом перевернуть.

[Stilet]

Ну и как ты это себе представляешь? И на чем?

[Didi]

на delphi ...

[merax]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function str_long(str : string) : string;
var
   i : integer;
begin
 for i := 0 to Length(str) do
 begin
   write(str[i] + ' ');
 end;
end;

function str_rev(str : string) : string;
var
   i : integer;
begin
   for i := Length(str) downTo 1 do
   begin
     write(Copy(str,i,1));
   end;
end;


begin
  try
  str_long('abcb');
  writeln('');
  str_rev ('abcd');
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;

end.

[SERG1980]

function Dstr(S:string):string;
 var i:integer;
     s1:string;
 begin
   if S='' then exit;
   Result:='';
   s1:='';
   for i := 1 to Length(S) do s1:=s1+S[i]+S[i];
   for i:= Length(s1) downto 1  do Result:=Result+s1[i];
 end;

Применить можно так:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit1.Text:=Dstr(edit1.Text);
end;

moderator: Используйте тег <CODE>

[puporev]

Удвоить символы:

n:=length(s);
for i:=n downto 1 do
   begin
     insert(s[i],s,i+1);
     n:=n+1;
   end;

Перевернуть:

for i:=n downto 1 do
write(s[i]);

[AlDelta]

Для автора темы: А вы задумывались почему в этом разделе все названия нормальные?

Закрыто.