Как сделать пробелы в паскале

10.06.2010, 17:56. Просмотров 4575. Ответов 1

Есть задача:
Дана строка, состоящая из нескольких слов, между соседними словами не менее одного пробела, за последним словом - точка. Во все слова, за первым символом, вставить пробел.
т.е нужно создать файл stroka.txt и после расстановки пробелов результат записать в файл rezult.txt
я тут парюсь никак не выходит...
вот сама задача которую нужно выполнить с помощью файлов
Pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 uses strings; Var str1,str2:array[0..50] of char; i,k,n:integer; begin writeln('vvedite stroku:'); readln(str1); n:=strlen(str1); k:=0; while как сделать пробелы в паскале (str1[k]<>'.') and (k<n) do k:=k+1; n:=k-1; str2[0]:=str1[0]; k:=0; if str1[0]<>' ' then k:=k+1; str2[k]:=' '; for i:=1 to n do begin k:=k+1; str2[k]:=str1[i]; if (str1[i]<>' ') and (str1[i-1]=' ') then begin k:=k+1; str2[k]:=' ';end; end; writeln(str2); readln; сделать end. и практически такаяже:
Строка символов представляет собой текст, слова в котором разделены одним или более пробелами. Преобразовать эту строку так, чтобы все слова разделились ровно одним пробелом, а ведущие и хвостовые пробелы отсутствовали.
Pascal 1 2 3 4 5 6 7 8 9 10 11 12 var s:string; begin readln(s); while pos(' ',s)<>0 do delete(s,pos(' ',s),1); while s[1]=' ' do delete(s,1,1); while s[length(s)]=' ' do delete(s,length(s),1); writeln(s) end.
Источник: http://www.cyberforum.ru/pascal/thread143872.html


Рекомендуем посмотреть ещё:


Закрыть ... [X]

А Как Как вывести текст или значение переменной в Pascal? Все авторы афоризмов и цитат



Как сделать пробелы в паскале Урок 2. Тема: Ввод и вывод данных в Паскаль. : - Онлайн
Как сделать пробелы в паскале Удаление всех пробелов - Форум «Всё о Паскале»
Как сделать пробелы в паскале Операторы ввода вывода в Паскале
Как сделать пробелы в паскале Поставить пробелы - Pascal (Паскаль)
Как сделать пробелы в паскале Примеры на Паскале
IML отследить посылку Post2Go отслеживание посылок Автоматика для теплиц: автоматизация своими руками, установка Благодарность за поздравления с днем рождения в прозе Грустные статусы. Со смыслом и до слез грустные афоризмы, цитаты и К чему снится грызть ногти и нервничать? Модные косы 2017 образы 104 фото Наборы для вышивания Овен (страница 3) Отпуск по уходу за ребенком до достижения им возраста трех лет