Задача на строки в Delphi.

[Ksushka93]

Решите пожалуйста. Я не понимаю как написать эту программу.... С Delphi только начали работать.

Текст задачи: Дана последовательность слов в виде некоторого текста. К каждому слогу в словах текста добавить по новому слогу "NO". Слова в исходном тексте разделяются, по крайней мере, хотя бы одним пробелом. Вывести исходный текст и результат обработки текста.

[D@rkD@iver]

сделаю за умеренную плату

[baster128]

Некий текст он на русском или на каком другом?

[cheef]

Можно по индуски решить:

readln(s);//Строка со словами
for i:=1 to length(s) do begin
if (s[i]='а')or(s[i]='A') then begin 
s[i]:='N'; s[i+1]:='O'; 
end;
end;

И так перебрать все гласные

[_-Re@l-_]

И так перебрать все гласные

Зачем же так?
Можно вот так:

readln(s);//Строка со словами
for i:=1 to length(s) do begin
if s[i] in ['у','е','ы','а','о','э','я','и','ю','ё'] then
begin 
s[i]:='N'; s[i+1]:='O'; 
end;
end;

[Mad_Cat]

Можно вот так:

и из слова 'MAMA' вместо NOMANOMA
получите MNMNO либо Out of range

[_-Re@l-_]

и из слова 'MAMA' вместо NOMANOMA

Ну и чё?
Зато красивей.

[cheef]

А какая команда в паскале, делфи перевести символ в строчный, из заглавного забыл что-то.?

[baster128]

Сделал так, что вставляет NO после каждой гласной. Может как поправить чтобы после слогов. Неохота больше ковыряться с этим.

[xrob]

преNOвеNOд, креNOвеNOдкоNO, яNO меNOдвеNOд!!!
baster128, прикольнуло!
щас я в эту прогу попробую xxx_movie.avi загрузить...