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

lamed

298 / 298 / 150

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

Сообщений: 592

17.06.2011, 07:55

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

17.06.2011, 07:55. Просмотров 3671. Ответов 4

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

Ответ

Pascal

// Преобразования строк. Обработка строк с применением циклов
// Дан текст, состоящий из слов, разделенных произвольным числом пробелов. 
// Удалить из текста лишние пробелы, оставив по одному между словами.
// PascalABC.NET
var
  s: string;
  n: integer;
begin
  write('Введите текст ');
  readln(s);
  s:= trim(s);
  n:= pos('  ',s);
  while n<>0 do
    begin
      delete(s,n,1);
      n:= pos('  ',s);
    end;
  writeln('После удаления ', s, ' длина ', length(s));
end.

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

17.06.2011, 07:55

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

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

Из строки слов разделенных пробелами удалить лишние пробелы оставив по одному.
program Project1; {$APPTYPE CONSOLE} uses SysUtils; const max=255; vowel=; label...

Из строки слов разделенных пробелами, удалить лишние пробелы, оставив по одному
Помогите сделать. Срочно нужно сдать. Из строки слов разделенных пробелами,удалить лишние...

Наверх