Строка

[AchtungPanzer]

Дана строка. Преобразовать ее, заменив точками все двоеточия (, встречающиеся среди первых n/2 символов, и заменив точками все восклицательные знаки, встречающиеся среди символов, стоящих после n/2 символов. Это нужно сделать на Delphi.

[macomics]

if s[i]=replace then s[i]:='.';
if i = n/2 then replace:='!';

[AchtungPanzer]

Можно пожалуйста полный код, а то я не знаю как это делать

[macomics]

p := '.';
r := ':';
for i := 1 to n / 2 to if s[i] = r then s[i] := p;
l := Length(s);
r := '!';
for i := n / 2 + 1 to l do if s[i] = r then s[i] := p;

Это все. в шаблон сами добавьте. Ввод/вывод тоже сами.

[Arigato]

Код целиком:

uses
  SysUtils;

var
  n, n2: integer;
  s: string;
begin
  n := 10;
  s := 'a:b:c:d:e:f:g:h:i';
  writeln(s);
  n2 := n div 2;
  s := StringReplace(copy(s, 1, n2), ':', '.', [rfReplaceAll]) +
       StringReplace(copy(s, n2 + 1, length(s) - n2), ':', '!', [rfReplaceAll]);
  writeln(s);
  readln;
end.

[macomics]

  s := StringReplace(copy(s, 1, n2), ':', '.', [rfReplaceAll]) +
       StringReplace(copy(s, n2 + 1, length(s) - n2), ':', '!', [rfReplaceAll]);

Потом удивляешься, почему современным программам на те же действия не хватает уже 4 Гб памяти.

[AchtungPanzer]

А через какие объекты можно ввести переменную s, когда нужно без write(ln)?

[digitalis]

Вопрос вопросов...
А что, если набраться храбрости и завести Memo, в который и влохматить анальнизируемую строку?
s := Memo1.Text ;
Вроде для этого оно и существует.
А вообще я написал бы смешнее:

type
  R = record
     case Vrnt : byte of
       0:  ( ii : array [0..99] of byte);
       1 : ( ss : string[100]);
   end;
var
  Form1: TForm1;
  str: R ;
........................
procedure TForm1.Button1Click(Sender: TObject);
var i,n,n2:integer;
begin
  str.ss := Edit1.Text ;
  n := str.ii[0];
  n2 := n div  2 ;
  for i := 1 to n do
     if ( (str.ss[i]=':') and (i <= n2) ) or  ( (str.ss[i]='!') and (i > n2) )
         then str.ii[i] := Ord('.')  ;
  Edit1.Text := str.ss ;
end;

[northener]

Сообщение от digitalis

А вообще я написал бы смешнее:

А где тут смеяться?

[digitalis]

Ну не знаю... Я это писал как бы в шутку. record для простейшей задачи. Зато - никаких StringReplace. И работает, наверно, на пару мкс быстрее