Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/18: Рейтинг темы: голосов - 18, средняя оценка - 4.89
3 / 3 / 2
Регистрация: 20.05.2011
Сообщений: 57
1

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

16.06.2011, 22:50. Просмотров 3557. Ответов 4
Метки нет (Все метки)

Преобразования строк. Обработка строк с применением циклов
Дан текст, состоящий из слов, разделенных произвольным числом пробелов. Удалить из текста лишние пробелы, оставив по одному между словами.
сегодня не получилось,завтра надо сдать программу ПАСКАЛЬ, помогите

Добавлено через 1 час 38 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
PROGRAM Prim3; 
Var
T1,T:string; 
i:byte; 
BEGIN
Writeln ('введите текст');
Readln (T);
if T[length(T)]<>' ' then T:=T+' ';
i:=1; T1:=' ';
while i<=length(T) do
begin
While Pos (' ', T) <> 0 do 
Begin
i:= Pos (' ' , T);
Delete (T, i, 1);
End;
Writeln (T);
END;end.
помогите мне исправить
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.06.2011, 22:50
Ответы с готовыми решениями:

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

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

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

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

4
26 / 26 / 16
Регистрация: 02.06.2011
Сообщений: 76
16.06.2011, 23:48 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
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 ищет позицию первого включения. вероятно поэтому программа не работала
2
298 / 298 / 150
Регистрация: 07.05.2011
Сообщений: 592
17.06.2011, 07:55 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
// Преобразования строк. Обработка строк с применением циклов
// Дан текст, состоящий из слов, разделенных произвольным числом пробелов. 
// Удалить из текста лишние пробелы, оставив по одному между словами.
// 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.
2
3 / 3 / 2
Регистрация: 20.05.2011
Сообщений: 57
17.06.2011, 21:59  [ТС] 4
БОЛЬШОЕ СПАСИБО
0
Модератор
62531 / 46709 / 32193
Регистрация: 18.05.2008
Сообщений: 113,031
18.06.2011, 10:09 5
Pascal
1
2
while pos('  ',s)>0 do 
delete(s,pos('  ',s),1);
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.06.2011, 10:09

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

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

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

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

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