Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC В двух последовательностях замените все элементы, следующие за элементом с максимальным значением, на значение минимального элемента https://www.cyberforum.ru/ pascalabc/ thread321073.html пусть дан фрагмент программы: var S: set of char; c,d: char присвойте переменной перечисленные ниже множества: пустое множество, множество строчных гласных латинских букв (a,e,i,o,u) ; множество...	Pascal ABC Из множества целых чисел 1..100 выделить множество чисел, являющихся, в свою очередь, квадратами целых чисел. помогите, я в множествах не силен Из множества целых чисел 1..100 выделить множество чисел, являющихся, в свою очередь, квадратами целых чисел.
Pascal ABC Найти количество столбцов,содержащих хотя бы один отрицательный элемент. Помогите пожалуйста решить задачки. 1.Дан двумерный массив целых чисел состоящий из n строк и m столбцов заполненных случайным образом числами из промежутка .Сформировать из элементов этого массива...	Pascal ABC Найти число вхождений в предложение некоторого буквосочетания 1.Задание Дано предложение. Определить: а) число вхождений в него буквосочетания "ро"; б) число вхождений в него некоторого буквосочетания из двух букв; в) число вхождений в него некоторого... https://www.cyberforum.ru/ pascalabc/ thread321028.html
Pascal ABC Исправьте ошибку https://www.cyberforum.ru/ pascalabc/ thread321022.html Привет всем помогите решить ну или найти ошибку Имеется текстовый файл.Напечатать: а) первый символ первой строки; б)пятый символ первой строки; в)первые 10 символов первой строки; г)символы с...	Pascal ABC два массива, в чем ошибка ? В области 20 районов. Площади, засеянные пшеницей (в гектарах), и урожай, собранный в каждом районе (в центнерах), хранятся в двух массивах. Определить среднюю урожайность пшеницы по каждому району и...
Pascal ABC Перевод кода с FreePascal в PascalABC Доброго времени суток! Существует программа, работающая в FreePascal, мне нужно изменить её так, чтобы она сработала в PascalABC. Программа состоит из девяти процедур. После каждой из них, АБС выдает...	Pascal ABC Как удалить строки? дана вещественная матрица А(n,m) где n<10,m<10. разработайте программу, которя удаляет все строки, содержащие только отрицательные элементы. выведите на экран исходную матрицу и матрицу-результат или... https://www.cyberforum.ru/ pascalabc/ thread320937.html
Pascal ABC Дан текст.определить на какую букву чаще всего начинаются в тексте на delphi 7.0 https://www.cyberforum.ru/ pascalabc/ thread320905.html Дан текст.определить на какую букву чаще всего начинаются в тексте на delphi 7.0	Pascal ABC Заменить в нем все вхожения буквосочетания "да" на "не". Дано предложение. Заменить в нем все вхожения буквосочетания "да" на "не". Uses crt; Var str:string; I:byte; Begin Writeln(‘введите предложение’); readln(str); For i:=1 to length(str) do if... https://www.cyberforum.ru/ pascalabc/ thread320883.html

4epToBc4uHa

26 / 26 / 16

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

Сообщений: 76

16.06.2011, 23:48

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

16.06.2011, 23:48. Просмотров 3671. Ответов 4

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

Ответ

Pascal

var s:string; n,i:integer;
begin
writeln ('введите текст с пробелами '); readln(s);
repeat
inc(i);
n:=length(s);
if (s[i]=' ') and ((s[i+1]=' ')) then  begin
delete (s,i,1);dec(i);end;
until i=n;
writeln ('удалены лишние пробелы ');writeln(s);
end

насколько я помню функция pos ищет позицию первого включения. вероятно поэтому программа не работала

Вернуться к обсуждению:
Дан текст, состоящий из слов, разделенных произвольным числом пробелов. Удалить из текста лишние пробелы, оставив по одному между словами

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

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

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

16.06.2011, 23:48

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

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

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

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

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

__________________
Помогаю в написании курсовых работ и дипломов здесь.

Наверх