Процедура удаления пробелов в строке

Astal · 19.10.2011, 16:58

Дана задача написать программу для простого вычисления числа. Из особенностей: "В первой строке входного файла записано арифметическое выражение в виде <число> <операция> <число> =. Операция - это один из знаков +, - или *. В начале строки, в конце строки, а также между числами и знаком операции, числом и = может быть любое число пробелов. Гарантируется, что длина строки не превышает 200 символов."
Сама программа написана, но работает только при условии отсутствия пробелов (в противном случае выходной файл остается пустым). Мне нужна помощь в написании процедуры, которая будет удалять пробелы из строки. Например чтобы входная строка " 567 " преобразывалась в строку "567". Буду благодарен за любые мысли и помощь.

Vladimir_S · 19.10.2011, 17:07

Как-то не вижу большой проблемы.
1. Открываем 2 файла - один исходный f1 (на чтение) другой f2 - без пробелов (на запись).
2. Считываем содержимое f1 построчно. Пусть, например, мы считали строку S.
3. Записываем посимвольно очередную строку в файл f2 по следующему алгоритму:

Код:

For i:=1 to Length(S) do
  If S[i]<>' ' then write(f2,S[i]);
writeln(f2);

И в чем загвоздка?

Astal · 20.10.2011, 07:47

Загвоздка в том, что во второй файл нужно записать результат вычислений. Но за подсказку спасибо, буду копать в этом направлении.
З.Ы. А не получится ли, что символы во второй строке будут располагаться в той же позиции, что и в первой, ведь i в цикле у них будет одинаков - и не получу ли я все то же самое, что и первой? Это так, для ознакомления...

Rossomaxa · 20.10.2011, 08:01

i сдесь используется толлько для обращения к символу в строке S. команда write последовательно пишет в файл символы строки, причем все кроме пробелов - то что вам и надо

Astal · 20.10.2011, 08:16

Все, проверил метод, все работает. Еще раз всем огромное спасибо.

19.10.2011, 16:58	#1 (permalink)
Astal Member Регистрация: 05.11.2010 Сообщений: 22 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Процедура удаления пробелов в строке Дана задача написать программу для простого вычисления числа. Из особенностей: "В первой строке входного файла записано арифметическое выражение в виде <число> <операция> <число> =. Операция - это один из знаков +, - или *. В начале строки, в конце строки, а также между числами и знаком операции, числом и = может быть любое число пробелов. Гарантируется, что длина строки не превышает 200 символов." Сама программа написана, но работает только при условии отсутствия пробелов (в противном случае выходной файл остается пустым). Мне нужна помощь в написании процедуры, которая будет удалять пробелы из строки. Например чтобы входная строка " 567 " преобразывалась в строку "567". Буду благодарен за любые мысли и помощь.

19.10.2011, 17:07	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Как-то не вижу большой проблемы. 1. Открываем 2 файла - один исходный f1 (на чтение) другой f2 - без пробелов (на запись). 2. Считываем содержимое f1 построчно. Пусть, например, мы считали строку S. 3. Записываем посимвольно очередную строку в файл f2 по следующему алгоритму: Код: For i:=1 to Length(S) do If S[i]<>' ' then write(f2,S[i]); writeln(f2); И в чем загвоздка?

20.10.2011, 07:47	#3 (permalink)
Astal Member Регистрация: 05.11.2010 Сообщений: 22 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Загвоздка в том, что во второй файл нужно записать результат вычислений. Но за подсказку спасибо, буду копать в этом направлении. З.Ы. А не получится ли, что символы во второй строке будут располагаться в той же позиции, что и в первой, ведь i в цикле у них будет одинаков - и не получу ли я все то же самое, что и первой? Это так, для ознакомления...

20.10.2011, 08:01	#4 (permalink)
Rossomaxa Лесник Регистрация: 11.10.2011 Сообщений: 338 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 771	i сдесь используется толлько для обращения к символу в строке S. команда write последовательно пишет в файл символы строки, причем все кроме пробелов - то что вам и надо

20.10.2011, 08:16	#5 (permalink)
Astal Member Регистрация: 05.11.2010 Сообщений: 22 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Все, проверил метод, все работает. Еще раз всем огромное спасибо.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070