Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Оля123456
0 / 0 / 0
Регистрация: 11.04.2013
Сообщений: 3
1

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

15.04.2013, 14:19. Просмотров 970. Ответов 1
Метки нет (Все метки)

Сделать большими все буквы в тех словах, которые начинаются с той же буквы, что и последнее слово строки.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.04.2013, 14:19
Ответы с готовыми решениями:

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

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

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

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

1
Reveng
422 / 422 / 338
Регистрация: 25.06.2012
Сообщений: 668
Завершенные тесты: 1
15.04.2013, 16:50 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
 
var
  Text : string;
  i, j : integer;
 
begin
  Write('Введите текст: ');
  Readln(Text);
  i := Length(Text);
  if i > 1 then  while (Text[i] <> ' ') and (i > 1) do    dec(i) else
    begin
      Writeln('Введите нормальный текст!');
      exit;
    end;
  if i <> 0 then
    begin
      if (Text[1] = Text[i + 1]) then Text[1] := UpCase(Text[1]);
      for j := 2 to Length(Text) do
        if (Text[j] = Text[i + 1]) and (Text[j - 1] = ' ') then Text[j] := upCase(Text[j]);
    end;
  Writeln(Text);
  Readln;
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.04.2013, 16:50

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

Переписать текст в файл, удалив из него все слова, начинающиеся с той же буквы ,что и последнее слово последней строки
Здравствуйте,помогите пожалуйста решить.Работа с файлами. Файл input.dat содержит несколько...

Выведите на экран слова из списка, которые оканчиваются и начинаются с одной и той же буквы
не понимаю динамику неlp :wall: вот она . Дан список слов. Выведите на экран слова из списка,...

Найти число групп букв (в группе только буквы), которые начинаются и оканчиваются одной и той же буквой
Дана строка. Найти такое число групп букв(в группе только буквы), которые начинаются и оканчиваются...

Дан список слов. Выведите на экран слова списка которые оканчиваются и начинаются с одной и той же буквы
Дан список слов.Выведите на экран слова списка которые 1)Оканчиваются и начинаются с одной и той...


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

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

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