Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово https://www.cyberforum.ru/ pascalabc/ thread888925.html Дана непустая последовательность слов из строчных английских букв; между соседними словами – запятая, за последним словом – точка. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово.	Pascal ABC Из множества целых чисел 1…20 выделить: множество чисел, делящихся на 6 без остатка Из множества целых чисел 1…20 выделить: множество чисел, делящихся на 6 без остатка.
Pascal ABC Сосчитать количество гласных букв в н-слове, взятом из списка слов https://www.cyberforum.ru/ pascalabc/ thread888923.html Сосчитать кол-во гласных букв в 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 Принадлежит ли точка данной области Написать программу, которая определяла бы по двум заданным координатам принадлежность точки закрашенной области. http://firepic.org/?v=4.2013-06-03_x9dx0wpqjwh3.jpg	Pascal ABC Музыка в Паскале https://www.cyberforum.ru/ pascalabc/ thread888823.html Как сделать так, чтобы при окончании 1 песни начиналась другая?
*Pascal ABC построить графики функций: f1(x)=xcos(2x), f2(x)=√x^2+2 , f3(x)= f1∙f2** https://www.cyberforum.ru/ pascalabc/ thread888705.html Используя графические средства языка Паскаль ABC на одной координатной сетке построить графики функций: f1(x)=x*cos(2x), f2(x)=√x^2+2 , f3(x)= f1∙f2, в диапазоне изменения аргумента x принадлежит .	Кому не сложно отзовитесь,кто хорошо программирует в Паскале абц Pascal ABC очень срочно
Pascal ABC вывести, все гласные, которые входят хотя бы в одно слово, за исключением гласных входящих в первое и последнее слово https://www.cyberforum.ru/ pascalabc/ thread888657.html Дана не пустая последовательность латинских слов, слова разделены запятыми, после последнего стоит точка, вывести, все гласные, которые входят хотя бы в одно слово, за исключением гласных входящих в первое и последнее слово.	Pascal ABC графика в АВС, игра помогите, пожалуйста. нужно каким-то невероятным образом добавить графики в эту прогу. нужно что бы вместо очков цифрами, выпадали кости. я не понимаю как это сделать, с графикой пока все сложно у меня, помогите(((( Игра. Угадай мошенника. Компьютер играет одной единственной костью и бросает ее столько раз, сколько требует игрок. Далее играющий сообщает верит ли он, что кости неподдельные и если... https://www.cyberforum.ru/ pascalabc/ thread888620.html
Pascal ABC Выписать гласные,которые входят хотя бы в одно слово Все гласные,которые входят хотя бы в одно слово,за исключением гласных входящих в первое и последнее слово	Pascal ABC Массив записей содержит сведения о фамилиях и экзаменационных оценках 1.Умова задачи: Заданий масив записов, што содержат в себе сведения о фамилиях и екзаминационних оценках. Создать програму которая знаходит и печатает фамилии людей б што одержали данную оценку! Официальными языками форума являются русский и английский https://www.cyberforum.ru/ pascalabc/ thread888568.html

Kodzaev

3030 / 1916 / 1649

Регистрация: 30.04.2011

Сообщений: 3,060

03.06.2013, 09:47

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

03.06.2013, 09:47. Показов 4621. Ответов 1

Метки (Все метки)

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

Решение

Pascal

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.

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

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

03.06.2013, 09:47

Готовые ответы и решения:

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

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

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

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

	03.06.2013, 09:47

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...

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

Наверх