Сделать большими все буквы в тех словах, длина которых меньше половины длины самого длинного слова строки

@Ksenia78 · Регистрация: 17.03.2014

Студворк — интернет-сервис помощи студентам

Здравствуйте,помогите пожалуйста решить
Сделать большими все буквы в тех словах,длина которых меньше половины длины самого длинного слова строки.
Огромное спасибо!

@CodeR · 22.03.2014, 12:59

Pascal

Const m=[' ',',','.','?','!'];
Var s,sl,max:string;
    i,j,ibegin:byte;
Begin
    write('Введите строку: ');readln(s);
    s:=s+' ';
    For i:=1 to Length(s) do
     if not(s[i] in m) then sl:=sl+s[i]
     else
     Begin
       if Length(sl)>Length(max) then max:=sl;
       sl:='';
     End;
    ibegin:=1;
    For i:=1 to Length(s) do
     if s[i] in m then
     Begin
       if i-ibegin=0 then Continue;
       if i-ibegin<Length(max) div 2 then 
        For j:=ibegin to i-1 do
         s[j]:=UpCase(s[j]);
       ibegin:=i+1;
     End;
    writeln('Полученная строка: ',s);
    readln;
End.

Добавлено через 4 минуты
Только для английских слов (английский алфавит)

@Ksenia78 · 28.03.2014, 10:09 **[ТС]**

СПАСИБО!!!

@Ksenia78 0 / 0 / 0 Регистрация: 17.03.2014 Сообщений: 17
		1
	Сделать большими все буквы в тех словах, длина которых меньше половины длины самого длинного слова строки 20.03.2014, 12:50. Показов 1432. Ответов 2 Метки нет (Все метки) Здравствуйте,помогите пожалуйста решить Сделать большими все буквы в тех словах,длина которых меньше половины длины самого длинного слова строки. Огромное спасибо! 0

@Ksenia78 0 / 0 / 0 Регистрация: 17.03.2014 Сообщений: 17
	28.03.2014, 10:09 [ТС]	3
	СПАСИБО!!! 0

Опции темы

Сделать большими все буквы в тех словах, длина которых меньше половины длины самого длинного слова строки

Решение