Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 17.03.2014
Сообщений: 17
1

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

20.03.2014, 12:50. Просмотров 994. Ответов 2
Метки нет (Все метки)

Здравствуйте,помогите пожалуйста решить
Сделать большими все буквы в тех словах,длина которых меньше половины длины самого длинного слова строки.
Огромное спасибо!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.03.2014, 12:50
Ответы с готовыми решениями:

Сделать большими все буквы в тех словах, длина которых меньше половины длины самого длинного слова строки
на Тurbo Pascal с использованием множеств, процедур и функций

Сделать большими все буквы в тех словах, длина которых меньше половины длины самого длинного слова
программа с множествами, процедурами и функциями на turbo pascal Работать с символами и со...

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

Удалить из файла все слова, длина которых меньше половины длины самого длинного слова второй строки
Переписать текст в файл output.txt, удалив из него все слова, длина которых меньше половины длины...

2
Фрилансер
3402 / 2799 / 3000
Регистрация: 08.02.2012
Сообщений: 7,656
Записей в блоге: 1
22.03.2014, 12:59 2
Лучший ответ Сообщение было отмечено Ksenia78 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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 минуты
Только для английских слов (английский алфавит)
0
0 / 0 / 0
Регистрация: 17.03.2014
Сообщений: 17
28.03.2014, 10:09  [ТС] 3
СПАСИБО!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.03.2014, 10:09

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.