Дана строка, состоящая из русских слов, набранных заглавными бук- вами и разделенных пробелами (одним или несколькими). Преобразо

[nadyaH]

Дана строка, состоящая из русских слов, набранных заглавными бук- вами и разделенных пробелами (одним или несколькими). Преобразовать каждое слово в строке, заменив в нем все последующие вхождения его первой буквы на символ «.» (точка). Например, слово «МИНИМУМ» на- до преобразовать в «МИНИ.У.». Количество пробелов между словами не изменять.
даже не знаю с чего начать программу.

[Stilet]

c:=s[1];
s:=StringReplace(s,c,'.',[rfreplaceall]); 
s[1]:=c;

Годится идея?

[nadyaH]

var
s:string;
c:char;
begin
c:=s[1];
s:=StringReplace(s,c,'.',[rfreplaceall]);
s[1]:=c;
end;
edit2.text:=c;/// а как заменить эту строку?
end.

[Stilet]

как заменить эту строку?

Какую строку?
Ты идею даже не попыталась понять, поэтому обьясняю на пальцах: Есть функция StringReplace, в стандартном Делфи, Фрипаскале и где-то возможно еще.
Что она делает? Она заменяет все совпадения в строке, которые характеризируются вторым параметром на то что передается третим параметром. Если указан флаг rfreplaceall, замена происходит по всей строке, везде где только будет найдено то что во втором параметре. После замены она возвращает новую строку с уже замененными элементами.

А теперь хорошенько посмотри на свой код и ответь - что у тебя не так.

[Poma][a]

Фрипаскале

Stilet
Зная, что она есть в Фри, ты молчал?
Я то по старинке ручками всё менял.. А тут..
Огроменное спасибо!

c:=s[1];
s:=StringReplace(s,c,'.',[rfreplaceall]);
s[1]:=c;

Предлагаю так :

s := s[1] + StringReplace (Copy (s, 2, Length(s), c, '.', [rfReplaceAll]);

[Stilet]

ты молчал?

Ты не спрашивал.
И потом я не знаю насколько чистая Фраха отличается от Лазаря, в лазаревском паке эта функа есть.

[Poma][a]

Ты не спрашивал.

Тоже верно... НО..

И потом я не знаю насколько чистая Фраха отличается от Лазаря

В модуле SysUtils в Фришечке есть..
(Ушел за Лазарем..)

[nadyaH]

function Length ( const SourceString : string ) : Integer;
var
d:string;
i:integer;
o:String; // ðåçóëüòèðóþùàÿ ñòðîêà
S:char; // ïåðâûé ñèìâîë ñëîâà
begin
d:=edit1.Text;
S:=D[1];
for i:=1 to length(D) do
begin
if D[i]=S then O:=S;
 IF D[i]=S THEN o:=o+'.'
 else o:=o+D[i];
if (D[i]=' ')and(D[i+1]<>' ') then S:=D[i+1];
end;
BEGIN
edit2.Text:=O;
END;END.

НАПИСАЛА ТАК. ОШИБКА В КОНЦЕ ГДЕ-ТО. НЕ ЗНАЮ ИЗ-ЗА ЧЕГО

[Stilet]

ОШИБКА В КОНЦЕ ГДЕ-ТО

Каково проявление ошибки? В чем она выражается?

[nadyaH]

END не нравится в конце программы.ошибку выдаёт.