0 / 0 / 0
Регистрация: 12.12.2014
Сообщений: 3
1

Вывести на экран в столбик все слова введённого текста, исправить опечатки и напечатать исправленный текст

20.12.2014, 00:37. Показов 1632. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста..При вводе текста могут быть допущены следующие опечатки: в некоторых словах первая буква набрана два или более раз; вместо одного пробела между словами введено несколько; лишние пробелы введены в начале и в конце текста.
Вывести на экран в столбик все слова введённого текста, исправить опечатки и напечатать исправленный текст
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.12.2014, 00:37
Ответы с готовыми решениями:

Считать из файла текст; вывести на экран все слова текста, упорядочив их по размеру
Ребят, помогите с задачей пожалуйста. Нужно считать текст из файла, потом вывести все слова этого...

Напечатать в столбик отдельные слова введённого предложения
Строка содержит несколько слов — предложение. · Напечатать в столбик отдельные слова введённого...

Считать текст из файла и вывести на экран все слова текста, начинающиеся с гласной буквы
Напиcать программу, которая считывает текст из файла и выводит на экран все слова текста,...

Дан текст. Напечатать все слова текста
Дан текст. Напечатать все слова текста, предварительно выполнив преобразования их по правилу:...

1
Эксперт Pascal/Delphi
6797 / 4559 / 4814
Регистрация: 05.06.2014
Сообщений: 22,438
20.12.2014, 11:12 2
Лучший ответ Сообщение было отмечено Grandback как решение

Решение

вместо одного пробела между словами введено несколько; лишние пробелы введены в начале и в конце текста.
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
27
28
var
  st:string;
 
function DelSpaces(s: string):string;
{ (C) Hidalgo08 }
 
var
  i:integer;
begin
  i:=1;
  while i+1<=length(s) do
    begin
      if (s[1]=' ') or ((s[i]=' ') and (s[i+1]=' ')) then
        begin
          delete(s,i,1);
          dec(i);
        end;
        inc(i);
    end;
  DelSpaces:=s;
end;
 
begin
  st:='  мама,    ела  кашу     ';
  writeln(st);
  writeln(DelSpaces(st));
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.12.2014, 11:12
Помогаю со студенческими работами здесь

Вывести на экран в столбик все слова, которые содержат четное количество символов
Ввести строку, состоящую из слов, разделенных пробелами (в начале, в конце строки и между словами...

Напечатать в столбик слова этого текста от последнего слова до первого
Ввести текст, слова которого разделены одним или несколькими пробелами. В начале и в конце текста...

Из введенного текста вывести на экран только те слова, которые симметричны (RADAR, ANNA)
Из введенного текста вывести на экран только те слова, которые симметричны (RADAR, ANNA). ...

Считать текст из файла и вывести на экран только предложения, начинающиеся с введенного с клавиатуры слова
Доброго времени суток! Помогите, пожалуйста, дописать код. Вот задание: Написать программу,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru