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

[Astal]

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

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

 

[Vladimir_S]

Как-то не вижу большой проблемы.
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]

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

 

[Rossomaxa]

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

 

[Astal]

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