PascalABC.NET

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

Войти

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

Другие темы раздела
PascalABC.NET Решение нелинейных уравнений методом Ньютона https://www.cyberforum.ru/ pascalabc-net/ thread1478242.html Ребят, нужна помощь. Делаю лабу по выч мату, нужно написать прогу в паскале для нахождения корня нелинейного уравнения на отрезке . Вот код проги, написан по образу и подобию кода на с++, но выдает...	Дать понятия терминам Стек, список, очередь PascalABC.NET Ребята, помогите! Стек, список, очередь! Что это такое и с чем их едят? Объясните пожалуйста максимально доходчивым языком, без заумностей, желательно с примерами.
PascalABC.NET Задать расположение элементов двумерного массива Нужно написать программу на паскале, в которой элементы двумерного массива будут располагаться следующим образом. Заранее благодарю.	PascalABC.NET Найти минимальный и максимальный элемент массива Написала программу для данной задачи:"Описать функцию Min(A,N) и Max(A,N) вещественного типа, находящую минимальный и максимальный элемент массива A, состоящего из N вещественных чисел. " program... https://www.cyberforum.ru/ pascalabc-net/ thread1477908.html
PascalABC.NET Ошибка времени выполнения: Индекс находился вне границ массива https://www.cyberforum.ru/ pascalabc-net/ thread1477688.html Программа должна считать максимальный компонет из файла f, при запуске выдает ошибку "Ошибка времени выполнения: Индекс находился вне границ массива" var f: Text; a: array Of Integer; i,...	PascalABC.NET Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой Прошу о помощи... Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой. Код программы чтобы был очень прост и понятен. Сделал все 34 задания из практики, кроме...
PascalABC.NET Создать список, стек или очередь; предусмотреть удаление и добавление элементов Создать список ИЛИ стек ИЛИ очередь. Предусмотреть удаление и добавление: PROGRAM Lr_11_1; CONST N=4; TYPE ANKETA=RECORD Prizv:string; MA:integer; Pr:integer; OC:integer;	PascalABC.NET Используя задачу по обработке типизированных файлов написать программу с использованием технологии ООП Используя задачу по обработке типизированных файлов написать программу с использованием технологии ООП: Const n=4; Type Zap=Record Prizv:string; Oc, ma, prog, alg:integer; end; Var ... https://www.cyberforum.ru/ pascalabc-net/ thread1477166.html
PascalABC.NET Обработка результатов экзаменационной сессии https://www.cyberforum.ru/ pascalabc-net/ thread1477159.html Используя задачи по обработке результатов экзаменационной сессии с использованием записей и процедур, написать программу с использованием технологии ООП: PROGRAM Lr_11_1; CONST N=4; TYPE ...	PascalABC.NET Найти скалярное произведение вектора Составить программу в стиле ООП для выполнения действий над вектором, описав при этом тип объекта Vector и использовав методы: - Инициализации вектора; - Нахождение длины вектора; - Скалярное... https://www.cyberforum.ru/ pascalabc-net/ thread1477151.html

JuriiMW

4250 / 2036 / 2091

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

Сообщений: 7,830

15.06.2015, 10:58

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

15.06.2015, 10:58. Просмотров 1350. Ответов 1

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

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

Решение

Pascal

const
  fromName = 'Война и мир. Том 1-4.txt';
  toName   = 'Война и мир. Том 1-4 (correct).txt';
  Enc      = Encoding.Default;
begin
  var S := System.IO.File.ReadAllText(fromName, Enc);
  var L : Integer;
  repeat
    L := S.Length;
    S := S.Replace(#32#32, #32);
  until L = S.Length;
  System.IO.File.WriteAllText(toName, '"' + S + '"', Enc);
end.

Сжалось с размера 3 277 533 байт до 3 085 858 ;–)

P.S. Лев Николаевич бы умер со стыда за такое:
„Выручайте делаю лабораторные и вот такая задача“

Вернуться к обсуждению:
Отредактировать текст, удаляя из него лишние пробелы. Заключить весь текст в кавычки

Programming

Эксперт

94731 / 64177 / 26122

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

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

15.06.2015, 10:58

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

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

Отредактировать текст, удаляя лишние пробелы между словами
В текстовом файле хранится некоторый текст. Отредактировать текст, удаляя лишние пробелы между...

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

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

Наверх