Помогите с паскалем. с клавиатуры вводится строка заменить все точки на звёздочки если можно пишите задачу полностью

01.01.2001

помогите с паскалем. с клавиатуры вводится строка заменить все точки на звёздочки если можно пишите задачу полностью

  • var s:string; k:integer;
    begin
    readln(s);
    for k:=1 to length(s) do if s[k]='.' then s[k]:='*';
    writeln(s); readln
    end.
  • Ещё проще (меняем звёздочки на точки -- читал невнимательно) :

    var
    c: char;
    begin
    while not eof do
    begin
    read(c);
    if c = '*' then
    write('.')
    else
    write(c);
    end;
    end.

    Проверка связи:

    $ echo a*b*c | ./ast
    a.b.c

    PS: Крутизна моей проги в том, что через неё можно гонять терабайты символов.

    PPS: Раз пошла такая пьянка -- sed рулит:

    $ echo a.b.c.d.e | sed s/\\./*/g
    a*b*c*d*e

  • $s =~ /\./*/
    В перле вообще прекрасно.

Вас заинтересует