Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
_Astarta_
0 / 0 / 0
Регистрация: 12.03.2013
Сообщений: 31
#1

Обработка строк - Turbo Pascal

10.06.2016, 21:29. Просмотров 309. Ответов 2
Метки нет (Все метки)

Дан произвольный текст. Преобразовать его по следующим правилам: все буквы «о» заменяются на «оа», все пробелы заменяются символом «_», а запятые удаляются.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2016, 21:29
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Обработка строк (Turbo Pascal):

Обработка текстовых строк - Turbo Pascal
Ребята прошу помощи в написании программы, если можно попроще) Спасибо заранее дана строка из символов St длиной не более 72 Дана...

Обработка строк и символов - Turbo Pascal
Определить, является ли заданный текст палиндромом (пробелы во внимание не принимать).

Обработка строк. Циклы - Turbo Pascal
Вывести на экран прописные буквы английского алфавита от A до Z построчно, с увеличением количества букв в строке (как на картинке). Цикл...

обработка строк как сделать - Turbo Pascal
2. Задано предложение, состоящее из слов, разделённым одним или несколькими пробелами. Найти самое длинное слово в предложении

Обработка строк и строковые функции - Turbo Pascal
Задача 1: Из данного предложения вычеркнуть слова, встречающиеся больше одного раза. Задача 2: В заданный непустой текст входят...

Обработка строк, множеств и записей - Turbo Pascal
Дана строка-предложение на латинском языке. Вывести самое короткое слово в предложении. Если таких слов несколько, то вывести первое из них

2
Peoples
1245 / 750 / 464
Регистрация: 06.02.2016
Сообщений: 2,029
Записей в блоге: 14
Завершенные тесты: 4
10.06.2016, 22:15 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program pr;
var
  s: string;
  n,i: integer;
begin
  writeln('Введите текст');
  readln(s);
  for i := 1 to length(s) do
    if s[i] = 'о' then
    begin
      n := i;
        insert('а', s, n + 1);
    end;
  for i := length(s) downto 1 do
  begin
    if s[i] = ' ' then
      s[i] := '_';
    if s[i] = ',' then
      delete(s, i, 1);
  end;
  writeln(s);
end.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3749 / 2446 / 1306
Регистрация: 22.11.2013
Сообщений: 6,786
11.06.2016, 17:13 #3
Peoples,
проще, проход по строке с конца творит чудеса:
Pascal
1
2
3
4
5
6
  for i:=Length(s) downto 1 do
    case s[i] of
    'o': Insert('a',s,i);
    ' ': s[i]:='_';
    ',': Delete(s,i,1);
    end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2016, 17:13
Привет! Вот еще темы с ответами:

Обработка строк с использованием оператора цикла с параметром - Turbo Pascal
Привет! Помогите с задачкой! Составить программу, которая печатает заданное слово, начиная с последней буквы... обязательно...

Обработка матриц с небольшим количеством строк и столбцов - Turbo Pascal
Составить алгоритм и программу для решения задачи с использованием одномерных и двумерных (матриц) массивов. Дана матрица из 2 строк и 10...

Обработка строк. Найти самую длинную группу знаков - Turbo Pascal
Растраматриваеться не пустая строка,содержащая не более 80 символов.Каждый символ строки,может быть малой английской буквой,цифрой или...

Обработка строк. После каждого пропуска вставить символ * - Turbo Pascal
1)После каждого пропуска вставить символ * 2) написать программу которая вставляет указанное слово после указанного номером слова.


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

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

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