Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Delphi » Связка символов (Связка символов)
Связка символов
Пожалуйста помогите

Введена связка символов. Присоединить в ее начале и в конце одинаковое количество минимально возможных буквенных А, чтобы её длина стала по крайней мере 2 раза больше.

Пример:
Input: hello
Result: AAAhelloAAA

Спасибо

1 | Автор: snuppy | 2008-11-27, 11:56   |  Репутация: [ + 0 ]
Code
const
           Sumb:Char='A';
var
           A,S:AnsiString;
           n,i:integer;
begin
           n:=(Length(Edit1.Text));
           if (n mod 2<>0) then inc(n);
           n:=round(n/2);
           SetLength(S,n);
           SetLength(A,n*3);
           for i:=1 to n do
           S[i]:=Sumb;
           A:=S+Edit1.Text+S;
           Edit1.Text:=A;
end;


Насколько проще была бы жизнь если бы она была в исходниках
2 | Автор: LofD | 2008-11-27, 19:46 | Изменено: LofD - Чт, 2008-11-27, 19:46   |  Репутация: [ + 14 ]


Насколько проще была бы жизнь если бы она была в исходниках
2 | Автор: LofD | 2008-11-27, 19:46 | Изменено: LofD - Чт, 2008-11-27, 19:46   |  Репутация: [ + 14 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Delphi » Связка символов (Связка символов)
Страница 1 из 11
Поиск: