Форум программистов, компьютерный форум, киберфорум
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
3 / 3 / 2
Регистрация: 20.05.2011
Сообщений: 57
0

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

16.06.2011, 22:50. Просмотров 3671. Ответов 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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.