Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Запись фунции и её ОДЗ https://www.cyberforum.ru/ turbo-pascal/ thread838383.html
Я пытался ввести форумулу , и посале того как её ввел паскаль видает Invalid Ploating Point Все пересмотрел все скобочки но ошибки так и не нашел И второй вопрос, какая область допустимих значений...
Вставить нулевую строку в середину матрицы Turbo Pascal
Двухмерные массивы. Дана матрица MxN, используя датчик случайных чисел. вставить нулевую строку в середину матрицы... Массив сформировать у меня получилось, по логики вещей я пыталась разделить на...
Turbo Pascal для Windows 8 Turbo Pascal
Скачал недавно паскаль для win 8 , запустился удачно, но когда например пишешь любую программу, то pascal выводит окно сохранения, он естественно ее сохраняет а программу саму не запускает. Что я не...
Turbo Pascal В двухмерном массиве исключить столбец с заранее заданным индексом 1. Ввести двухмерный массив поэлементно с помощью клавиатуры или получить его, используя генератор случайных чисел. Двухмерный массив может быть целочисленного или вещественного типа. Количество... https://www.cyberforum.ru/ turbo-pascal/ thread838328.html
Turbo Pascal Множества https://www.cyberforum.ru/ turbo-pascal/ thread838294.html
Задана строка текста длиной не менее двадцати символов и задан одни отдельный символ. Вычислит, какое максимальное количество расположенных подряд таких отдельных символов имеется в строке текста.
Turbo Pascal Определить, принадлежит ли точка окружности
Написать программу, которая запрашивает координаты точки и выводит на экран сообщение, принадлежит ли эта точка окружности с центром в начале координат и радиусом 10.
Turbo Pascal Выполнить суммирование членов бесконечного ряда
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной точности Δ=10^-4...10^-10 или пока не будет...
Turbo Pascal Файл: Замена текста в файле Здравствуйте! Столкнулась с такой задачей: есть два файла, с именами, допустим, 1.txt и 2.txt. нужно скопировать определенную часть текста из файла 1.txt. Затем, открыть файл 2.txt, и заменить часть... https://www.cyberforum.ru/ turbo-pascal/ thread838180.html
Turbo Pascal Массив: Вычислить сумму чисел, порядковые номера которых являются нечетными числами. https://www.cyberforum.ru/ turbo-pascal/ thread838169.html
Задана последовательность N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются нечетными числами. Помогите!
Turbo Pascal Работа с записями и файлами 1. Подготовить исходные данные в текстовом файле (не менее 10 строк). Исходные данные хранятся в текстовом файле. Каждая строка данных занимает отдельную строку файла. Отдельные элементы строки... https://www.cyberforum.ru/ turbo-pascal/ thread838160.html
422 / 422 / 338
Регистрация: 25.06.2012
Сообщений: 668
Завершенные тесты: 1
15.04.2013, 16:50 0

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

15.04.2013, 16:50. Просмотров 1028. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.04.2013, 16:50
Готовые ответы и решения:

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

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

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

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

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