Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово https://www.cyberforum.ru/ pascalabc/ thread888925.html
Дана непустая последовательность слов из строчных английских букв; между соседними словами – запятая, за последним словом – точка. Напечатать в алфавитном порядке все гласные буквы, которые входят в...
Pascal ABC Из множества целых чисел 1…20 выделить: множество чисел, делящихся на 6 без остатка
Из множества целых чисел 1…20 выделить: множество чисел, делящихся на 6 без остатка.
Сосчитать количество гласных букв в н-слове, взятом из списка слов Pascal ABC
Сосчитать кол-во гласных букв в n-слове, взятом из списка слов. Размер списка 15 слов. Максимальная длина слова 16 букв.
Pascal ABC Исправить программу Программа с рекурсией для нахождения обратной строки Код: uses crt; var s:string; function obr(s:string;i:integer):string; https://www.cyberforum.ru/ pascalabc/ thread888886.html
Pascal ABC Принадлежит ли точка данной области https://www.cyberforum.ru/ pascalabc/ thread888824.html
Написать программу, которая определяла бы по двум заданным координатам принадлежность точки закрашенной области. http://firepic.org/?v=4.2013-06-03_x9dx0wpqjwh3.jpg
Музыка в Паскале Pascal ABC
Как сделать так, чтобы при окончании 1 песни начиналась другая?
построить графики функций: f1(x)=x*cos(2x), f2(x)=√x^2+2 , f3(x)= f1∙f2 Pascal ABC
Используя графические средства языка Паскаль ABC на одной координатной сетке построить графики функций: f1(x)=x*cos(2x), f2(x)=√x^2+2 , f3(x)= f1∙f2, в диапазоне изменения аргумента x принадлежит .
Pascal ABC Кому не сложно отзовитесь,кто хорошо программирует в Паскале абц очень срочно https://www.cyberforum.ru/ pascalabc/ thread888703.html
Pascal ABC вывести, все гласные, которые входят хотя бы в одно слово, за исключением гласных входящих в первое и последнее слово https://www.cyberforum.ru/ pascalabc/ thread888657.html
Дана не пустая последовательность латинских слов, слова разделены запятыми, после последнего стоит точка, вывести, все гласные, которые входят хотя бы в одно слово, за исключением гласных входящих в...
Pascal ABC графика в АВС, игра помогите, пожалуйста. нужно каким-то невероятным образом добавить графики в эту прогу. нужно что бы вместо очков цифрами, выпадали кости. я не понимаю как это сделать, с графикой пока все сложно у... https://www.cyberforum.ru/ pascalabc/ thread888620.html
3020 / 1908 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
03.06.2013, 09:47 0

Отредактировать предложение, удаляя из него лишние пробелы, оставляя только по одному пробелу между словами

03.06.2013, 09:47. Просмотров 2588. Ответов 1
Метки (Все метки)

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

Решение


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var
  s: String;
BEGIN
Writeln('Введите предложение: ');
Readln(s);
While s[1]=' ' do   {удаляем начальные пробелы}
Delete(s,1,1);
While Pos('  ',s)>0 do  {удаляем лишние между словами}
Delete(s,Pos('  ',s),1);
While s[Length(s)]=' ' do {удаляем конечные пробелы}
Delete(s,Length(s),1);
Writeln('Полученная строка:');
Writeln(s);
END.


Вернуться к обсуждению:
Отредактировать предложение, удаляя из него лишние пробелы, оставляя только по одному пробелу между словами
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.06.2013, 09:47

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

Откорректировать файл, удаляя пустые строки, пробелы в конце и вначале строк и оставляя между словами по одному пробелу
Дан текстовый файл Т. Откорректировать его, удаляя пустые строки, пробелы в конце и вначале строк и...

Откорректировать файл, удаляя пустые строки, пробелы в конце и вначале строк и оставляя между словами по одному пробелу
Помогите пожалуйста. Задание. Дан текстовый файл Т. Откорректировать его, удаляя пустые строки,...

Убрать все лишние пробелы между словами (оставить только по одному пробелу)
Dim St As String, Stl As String Dim P As String * 10, Sym As String * 1 Dim KR As Long, KN As...

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

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