Free Pascal

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

Войти

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

Другие темы раздела
Free Pascal запуск форм https://www.cyberforum.ru/ free-pascal/ thread260121.html я установил IDE Lazarus раньше был Delphi и не могу запустить вторую форму с помошью Form2.ShowModal; ???	Free Pascal Составить модуль который содержит подпрограммы определения характеристик числовой матрицы Помогите пожалуйста, никогда не писал модули, разве что простейшие Вот задание: составить модуль который содержит подпрограммы определения характеристик числовой матрицы, размером не больше, чем...
Free Pascal Процедуры и Функции https://www.cyberforum.ru/ free-pascal/ thread259773.html Создать программу,содержащую функцию расчета одного слагаемого и процедуру расчета всей суммы целиком: g(x,t)=((-1)^(i-1))((i-1)/i!)x^i. f(x)=1+(ряд от i=1 по n)*g(x,i). Кроме того программа...	Free Pascal Найти номер максимального отрицательного элемента, расположенного правее первого элемента, равного Т https://www.cyberforum.ru/ free-pascal/ thread259723.html Задан целочисленный одномерный массив А из N элементов. Найти номер максимального значения среди отрицательных элементов, расположенных правее первого элемента, равного Т...помогите плиз,лабу надо...
Построить цветные и движущиеся концентрические окружности Free Pascal Построить концентрические окружности, закрасив каждую новым цветом+движение.	Free Pascal Найти сумму диагоналей, параллельных главной в квадратном двумерном массиве. Вводится квадратный двумерный массив. Рассмотрим все его диагонали, параллельные главной. Найти сумму элементов на каждой из таких диагоналей, а затем среди полученных сумм найти наибольшую. https://www.cyberforum.ru/ free-pascal/ thread259194.html
Free Pascal Про скобки в строке https://www.cyberforum.ru/ free-pascal/ thread259193.html Пишу прямо как записано) дана строка. Удалить из неё последовательности символов, расположенных между скобками. скобки также удалить. После первой открывающейся скобки другие скобки игнорируются....	Free Pascal сумма N первых простых чисел Дано натуральное число N. Найти сумму N первых простых чисел.
Free Pascal Количество цифр в десятичной записи N https://www.cyberforum.ru/ free-pascal/ thread259189.html Дано натуральное число N. найти количество цифр в десятичной записи числа N.	*Free Pascal Произведение xy только сложением** https://www.cyberforum.ru/ free-pascal/ thread259175.html Даны натуральные числа x,y. Вычислить x*y, пользуясь только операцией сложения.
Free Pascal Функция MessageDlg Пожалуйста, подскажите, как вывести в одной строке координаты 4-х точек, т.е. 4 пары чисел типа real. Пытаюсь это сделать с помощью функции "MessageDlg" , вот так: MessageDlg('Линии пересекаются в...	Free Pascal Изобразить узор https://www.cyberforum.ru/ free-pascal/ thread259101.html помогите пожалуйста!!! надо нарисовать вот такой рисунок

Puporev

Почетный модератор

64277 / 47576 / 32739

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

Сообщений: 115,182

19.03.2011, 17:01

Удалить из текста лишние пробелы - Free Pascal - Ответ 1466255

19.03.2011, 17:01. Показов 2330. Ответов 1

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

Сообщение было отмечено Памирыч как решение

Решение

Можно и без строк, раз строковые функции нельзя.

Pascal

uses crt;
var s:array[1..1000] of char;
    n,i,j:integer;
    c:char;
begin
clrscr;
writeln('Введите текст, содержащий пробелы, окончание ввода точка');
n:=0;
repeat
c:=readkey;
write(c);
n:=n+1;
s[n]:=c;
if c='.' then writeln;
until c='.';
i:=1;
while i<n do
if(s[i]=' ')and((i=1)or(s[i+1]=' '))then
 begin
  for j:=i to n-1 do
  s[j]:=s[j+1];
  n:=n-1;
 end
else i:=i+1;
writeln('Текст без лишних пробелов:');
for i:=1 to n do
write(s[i]);
readln
end.

Вернуться к обсуждению:
Удалить из текста лишние пробелы Free Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

19.03.2011, 17:01

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

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

Удалить все лишние пробелы, оставив по одному между словами
Задание "Написать программу, в которой вводится строка из слов с некоторым количеством пробелов...

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

19.03.2011, 17:01

Помогаю со студенческими работами здесь

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

В каждой строке удалить лишние пробелы и поставить ее по центру.
Дано N строк текста: в каждой строке удалить лишние пробелы и поставить ее(строку) по центру....

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

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

Наверх