Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Создание блок-схемы https://www.cyberforum.ru/ pascal/ thread1124719.html
Здравствуйте,помогите пожалуйста к этой программе составить блок схему!очень благодарна буду! uses crt; const N=5; var a: array of integer; x,y,min,max,xmax,ymax: integer; begin ...
Ошибка при реализации стека Pascal
Здравствуйте! Делал модуль стека, еще неделю назад работал, вчера так и не смог найти ошибку..( unit Unit_Stack; interface type tStack = ^rStack;
Pascal Найти произведение элементов массива с четными номерами
Заполнить одномерный целочисленный массив случайными числами, найти произведение элементов массива с четными номерами.
Pascal Получите все символы, расположенные между первым и вторым двоеточием Пусть даны целое число n, символы S1, S2,..., Sn, среди которых есть двоеточие. Получите все символы, расположенные: между первым и вторым двоеточием; если второго двоеточия нет, то получите все... https://www.cyberforum.ru/ pascal/ thread1124601.html
Pascal Переделать в "пусть одновременно движутся две окружности" https://www.cyberforum.ru/ pascal/ thread1124588.html
Uses graph; Var x,device,Mode:integer; Begin Device:=0 ; InitGraph(Device,Mode,'<C:\TP\BGI>'); readln; x:=40; repeat SetColor(White); Circle(x,100,10);
Pascal Вещественное переполнение, исправить код
помогите пожалуйста, при решении данной матрицы 3 2 10 -7 1 -4 0 1 ...
Pascal Программа выдает неправильный ответ
Для получения результата разработать алгоритм и программу,содержащую функцию, исходными данными которой являются два массива x1,x2..Xn и Y1,Y2..Yn с заданным числом n элементов(или один из них) или...
Pascal Вычислить среднее арифметическое элементов массива Y и отклонение от среднего для каждого элемента буду очень признательна если поможете с решением) дан массив Y(14) вычислить среднее арифметическое элементов массива Y и отклонение от среднего для каждого элемента https://www.cyberforum.ru/ pascal/ thread1124283.html
Pascal Интерполяционный многочлен Лагранжа https://www.cyberforum.ru/ pascal/ thread1124122.html
Дана функция f(x)=\ln\left(1+\sqrt{x} \right)-\cos \left( x\right). Необходимо построить ее график и график ее интерполяционного многочлена Лагранжа. Если первый я построил, то со вторым возникли...
Pascal Вывести на экран все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр Получить все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр Помогите :с https://www.cyberforum.ru/ pascal/ thread1124121.html
Фрилансер
3412 / 2809 / 3000
Регистрация: 08.02.2012
Сообщений: 8,093
Записей в блоге: 1
22.03.2014, 12:59 0

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

22.03.2014, 12:59. Показов 1232. Ответов 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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.03.2014, 12:59

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

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

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

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

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

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