Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Вводится строка текста на русском языке, заканчивающаяся точкой. Подсчитать, сколько раз встречается в тексте слово "то". https://www.cyberforum.ru/ turbo-pascal/ thread124333.html
Вводится строка текста на русском языке, заканчивающаяся точкой. Подсчитать, сколько раз встречается в тексте слово "то". Добавлено через 11 минут Вводится строка текста на русском языке,...
Двумерный массив: обмен, вставка и удаление строк и столбцов Turbo Pascal
Помогите написать программу. Дан двумерный массив с размерностью 8*7,заполненный случайным образом. -заменить все элементы первых трех столбцов на их абсолютные значения. -вставить между средними...
Сформировать массив, каждый элемент которого равен количеству отрицательных элементов соответствующего столбца Turbo Pascal
Дан двухмерный массив. Сформулировать одномерный массив, каждый элемент которого равен количеству элементов соответствующему столбцу двухмерного массива, больших числа N. Кто это сделает того я...
Turbo Pascal Для тех кто знает и паскаль и с++ у меня есть программа на с, нужно её на паскаль переписать, просто с этим языком я мало знаком, а так вот все задание а ниже программа написаная на с Пусть N - числитель, M - знаменатель ( N < M... https://www.cyberforum.ru/ turbo-pascal/ thread124256.html
Turbo Pascal Дан текст. Найти сумму всех имеющихся в нём чисел https://www.cyberforum.ru/ turbo-pascal/ thread124252.html
Дан текст. Найти сумму всех имеющихся внём чисел. ОГРОМНОЕ УВОЖЕНИЕ тому кто сделает это.
Гласные буквы Turbo Pascal
Дано предложение. Определить сколько в енм гласных букв. Зарание ОГРОМНОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО
Turbo Pascal Определить число вхождений в предложение некоторого буквосочетания из 2-х букв
Дано предложение. Определить число вхождений в него некоторого буквосочетания из 2-х букв. Всем зарание БЛАГО ДАРСТВУЮ.
Turbo Pascal Путём замены букв получить из слова "тетрадь" слово "дневник" Путём замены букв получить из слова "тетрадь" слово "дневник".Зарание спасибо. https://www.cyberforum.ru/ turbo-pascal/ thread124245.html
Turbo Pascal Вывести на экран 1-ую половину слова https://www.cyberforum.ru/ turbo-pascal/ thread124242.html
Условие: Дано слово, состоящие из чётного числа букв. Вывести на экран его 1-ую половину,неиспользуя оператор цикла. Зарание спасибо.
Turbo Pascal Удалить из матрицы столбцы, номер которых кратен 3. Дан двухмерный массив. Удалить из него столбцы номер которых кратен 3. зарание спасибо,благодарю!!! https://www.cyberforum.ru/ turbo-pascal/ thread124239.html
Платежеспособный зверь
8737 / 4159 / 1604
Регистрация: 28.10.2009
Сообщений: 11,263
02.05.2010, 12:13 0

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

02.05.2010, 12:13. Показов 4636. Ответов 1
Метки (Все метки)

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

Решение

Цитата Сообщение от r4c0r3 Посмотреть сообщение
Дан текст, состоящий из N строк. Слова разделены несколькими пробелами. Требуется удалить лишние пробелы, оставив только по одному между словами.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
s:array[1..100]of string;
n,i:integer;
begin
writeln('vvedite kolichestvo strok');
readln(n);
for i:=1 to n do
begin
writeln('vvedite ',i,' stroku');
readln(s[i]);
while pos('  ',s[i])>0 do delete(s[i],pos('  ',s[i]),1);
end;
writeln('novyj text');
for i:=1 to n do
writeln(s[i]);
readln;
end.


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

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

Программа удаляющая из файла все комментарии и лишние пробелы между словами, оставив только один пробел
Разработать программу, Удаляющий из файла все комментарии и лишние пробелы между словами, оставив...

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

Удалить лишние пробелы между словами.
Здравствуйте все! Написал программу, которая удаляет лишние символы в введённой строке, но...

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

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