Строка

["Эльнара"]

Привет!!Помогите пожалуйста.
В строке заменить все двоеточия( точкойс запятой(.
Подсчитать колличество замен.

[Utkin]

Язык программирования Lisp? Или OCaml...

["Эльнара"]

Насчет этого не чего не говорили нам((

[Korben5E]

нет слов...

[Utkin]

Сообщение от "Эльнара"

Насчет этого не чего не говорили нам((

Мда, придется ломать мозг, так как свою шапочку телепата я вчера постирал и она еще не высохла.
Итак, начнем с того, что ты с Оренбурга. В принципе, мог бы и сам догадаться, что если ты с Оренбурга, то не то что языка, но и даже его наименования ты знать не должн(а). Далее, Оренбург славится полной апатией к С/С++/С# и сплошь и рядом в институтах преподают Паскаль и Дельфи. Знать это что-то паскалевидное. Назови мне институт и факультет, тогда я скажу какой язык тебе нужен.

["Эльнара"]

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

Мда, придется ломать мозг, так как свою шапочку телепата я вчера постирал и она еще не высохла.
Итак, начнем с того, что ты с Оренбурга. В принципе, мог бы и сам догадаться, что если ты с Оренбурга, то не то что языка, но и даже его наименования ты знать не должн(а). Далее, Оренбург славится полной апатией к С/С++/С# и сплошь и рядом в институтах преподают Паскаль и Дельфи. Знать это что-то паскалевидное. Назови мне институт и факультет, тогда я скажу какой язык тебе нужен.

ОГУ финансово-экономический факультет,
Паскаль )))

[Utkin]

1. Читаешь строку
2. В цикле проверяешь символ строки
Если это двоеточие, то заменяешь на точку с запятой и здесь же в дополнительной переменной ведешь подсчет изменений
3. Выводишь измененную строку
4. Выводишь число замен

Это еще не программа, это алгоритм пока . Тоже запиши, чтобы препод видел твои творческие муки .

["Эльнара"]

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

1. Читаешь строку
2. В цикле проверяешь символ строки
Если это двоеточие, то заменяешь на точку с запятой и здесь же в дополнительной переменной ведешь подсчет изменений
3. Выводишь измененную строку
4. Выводишь число замен

Это еще не программа, это алгоритм пока . Тоже запиши, чтобы препод видел твои творческие муки .

ок!а блок -схему не поможешь??

[Grag]

Вот как-то так напрашивается:

Count:=0;
while Pos(':',Line)<>0 do
  begin
    Line[Pos(':',Line)]:=';';
    Inc(Count)
  end;

[Serge_Bliznykov]

вариант Grag абсолютно верный.

хотя, с точки зрения обучения, мне кажется вариант по алгоритму Utkin предпочтительней (без использования Pos)

как то так:

Count:=0;
for i:=1 to Length(S) do
  if S[i]=':' then begin
       S[i] :=';';
       Inc(Count); 
  end;