Технический форум - Ребят, помогите, пожалуйста, с Pascal

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Ребят, помогите, пожалуйста, с Pascal (http://www.tehnari.ru/f41/t52340/)

Alyona

27.05.2011 19:33

Ребят, помогите, пожалуйста, с Pascal

Есть условие задачи, но возникла проблема с полями (выдает ошибку, т.к. типы полей разные). Помогите, пожалуйста, написать!:tehnari_ru_121:З

Задача:
Написать функцию, заменяющую каждые 4 пробела на *.

(Если в строке между словами 10 пробелов, то должно быть 2 звездочки и 2 пробела)

Заранее огромное спасибо!!!=*

Vladimir_S

27.05.2011 21:35

Цитата:

Сообщение от Alyona (Сообщение 527940)

Задача: Написать функцию, заменяющую каждые 4 пробела на *.

Код:

Const

 Sp:String='*';

 Spp:String='    ';

VAR

 S:String;

 i,i1:Byte;

BEGIN

 WriteLn('Enter the string:');

 ReadLn(S);

 i:=0;

 Repeat

  Inc(i);

  i1:=Pos(Spp,S);

  If i1>0 then

   begin

    Delete(S,i1,4);

    Insert(Sp,S,i1);

   end;

 Until i1=0;

 WriteLn(S);

 ReadLn;

END.

Alyona

27.05.2011 21:39

Спасибо!

Огромное спасибо, Владимир!!!
С меня шоколадка!:tehnari_ru_288:

Часовой пояс GMT +4, время: 02:49.