Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Free Pascal Вывод трёхмерного объекта https://www.cyberforum.ru/ free-pascal/ thread887815.html
Подскажите, пожалуйста, как перевести координаты точек (x,y,z) трехмерного объекта в координаты (x,y) для вывода на экран?
Free Pascal НОК элементов массива
Помогите, пожалуйста, составить программу вычисления наименьшего общего кратного элементов целочисленного массива A(N), что расположены перед первым нулевым элементом данного массива. Pascal. очень...
Free Pascal Главная диагональ матрицы https://www.cyberforum.ru/ free-pascal/ thread887531.html
Вектор X получить с главной диагонали матрицы циклическим смещением ее элементов на К позиций вправо, если парные столбцы имеют одинаковое количество отрицательных элементов, иначе за компоненты...
Free Pascal Проверить является ли матрица А(n,n) диагональной, единичной или нулевой https://www.cyberforum.ru/ free-pascal/ thread887503.html
Помогите пожалуйста курсач горит! Проверить является ли матрица А(n,n) диагональной (все элементы нули, кроме главной диагонали), единичной (все элементы нули, на главной диагонали только единицы)...
Free Pascal Прочитать файл за один проход
Помогите понять, как решить такую задачу. Отмечено, что она на тему "рекурсия", но как её здесь применить? Дан текстовый файл, содержащий около сотни целых чисел. Написать программу, которая...
Free Pascal Вывод двумерного массива https://www.cyberforum.ru/ free-pascal/ thread886597.html
Всем доброго времени суток! Cоставил программу нахождения элементов массива по формуле ai,j=f1(i,j)/f2(i,j)*f3(i,j). При выводе выводит одну строку вместо трех при n:=3. var A : array of...
Free Pascal перевод hextoint барахлит Что не так со второй частью моего калькулятора? USES CRT; function step(n:integer):integer; var k,i: integer; begin k:=1; for i:=1 to n do k:=k*16; end; function IntToHex(N : integer):string; https://www.cyberforum.ru/ free-pascal/ thread885760.html Free Pascal Создания динамического объекта
Объект: Прямоугольный параллелепипед Методы: конструкторы Найти: периметр, площадь, диагональ, высоту Помогите пожалуйста решить методом конструкторизации. именно на Free Pascal Lazarus От...
Free Pascal Помощь с бестиповыми файлами https://www.cyberforum.ru/ free-pascal/ thread885373.html
Написал модуль для записи\чтения нужных мне типов данных в\из бестипового файла.Также сделал программу,тестирующую этот модуль. В общем входные данные не соответствуют выходным. Модуль: unit...
Free Pascal Графы - По системе односторонних дорог определить, есть ли в ней город, из которого можно добраться до каждого из остальных городов https://www.cyberforum.ru/ free-pascal/ thread885061.html
Пожалуйста помогите) По системе односторонних дорог определить, есть ли в ней город, из которого можно добраться до каждого из остальных городов, проезжая не более 100 км. язык программирования free...
Free Pascal Я пишу программу на языке Pascal. Подскажите пожалуйста, как мне записать в блок-схему мои 18 if?
Я пишу программу на языке Pascal. Подскажите пожалуйста, как мне записать в блок-схему мои 18 if-ов? Вот листинг процедуры: procedure TForm1.Prov(Sender: TObject); begin if...
Free Pascal Непонятный фрагмент программы https://www.cyberforum.ru/ free-pascal/ thread884545.html
procedure Run(exitcode:Integer); var i, command, findcom,l,r,m:Integer; a:array of integer; begin if command_count<>0 then repeat //выводим меню writeln; writeln('Выберите...
0 / 0 / 1
Регистрация: 25.11.2012
Сообщений: 14
0

Дан текстовый файл, удалить лишние пробелы кроме одного - Free Pascal - Ответ 4655622

02.06.2013, 12:05. Показов 1040. Ответов 1
Метки (Все метки)

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

подскажите как исправить

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program rgr1_1;
uses crt;
var f,g:text; s:string; n:integer;
begin
assign (f,'C:\pasc\new.txt');
assign (g,'С:\pasc\past.txt');
reset (f);
rewrite (g);
while not eof (f) do
begin
  readln(f,s);
  n:=pos(' ');
  while n>0 do
 begin
  delete (s,n,1);
  n:=pos(' ');
end;
  writeln (g,s);
end;
close (f);
close (g); 
end.


Вернуться к обсуждению:
Дан текстовый файл, удалить лишние пробелы кроме одного Free Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2013, 12:05
Готовые ответы и решения:

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

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

Если после знака препинания более одного пробела, то лишние пробелы удалить
разобрать модуль, содержащий функции для обработки строковых данных: - если перед знаками...

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2013, 12:05
Помогаю со студенческими работами здесь

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

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

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru