анализ текстового файла, выбрать и преобразовать слова в числа Опции

[Denny61]

Доброе время суток! Задача: Сост программу обеспечивающую ввод текста вида "Мама на рынке купила три килограмма бананов по цене тридцать пять рублей за килограмм... " ну и т.д в файл, а затем анализируя текст вывести сумму всех покупок (т.е сколько денег мама потратила) так вот преобразовать слова в цифры понятно как, а вот как сделать так что бы пр-ма складывала в два массива рубли к рублям а килограммы к килограммам не понятно, сделал это на Си препод не принял... только на Паскале (((

[мисс_граффити]

Т.е например в FoxPro насколько я помню можно писать так

речь же была про С, правда?
ну, если уж на то пошло, в паскале можно писать так:

if pos('какая-то строка', 'какая-то другая строка')<>0 then

Если это необходимо то могу сбросить в течении трех дней, дело в том что живу я в Уфе и исходник на домашней машинке

а как ты ее пытался сдавать???

Добавлено через 15 мин.
по поводу второй: после каких твоих действий вылетает?
и какой компилятор... проверила в Делфи и TP7, ошибки разные, но компилироваться не хочет ни там, ни там.
в TP был какой-то странный глюк. откомпилировалось.
какая ошибка была по мнению делфи - выяснила.
жду ответов...

Сообщение отредактировано: мисс_граффити - 27.06.2007 0:56

[Denny61]

Ну на счет Фокса это я просто к примеру...
На счет первой задачи то я решил поступить примерно так:
Считал текст в Массив строк с таким условием что последнее букво сочетание 'руб', т.е в каждой строке по одному кг и одному руб, теперь каждую строку я разбиваю на слова (тоже в массив по признаку пробела) и теперь в цикле обхожу все ячейки до pos('кг.') и если в этом интервале есть ячейка соответствующая цифре то суммирую их в отдельное значение (т.е я заранее задал соответствие например val (триста, 300, 0 )) а затем уже записываю значение этой переменной в еще один массив и потом уже от pos('кг.') и до ('руб.') делаю тоже самое с рублями. Вобщем вот такой огород...
Ходил к аспирантам на кафедре они бьются об заклад что препод и сам не знает как это сделать и что на паскаль это сделать не очень просто, сидели над этим минут 20 но ни к чему не пришли сказали только что я на првильном пути) Но все таки сложновато все. Может есть способ попроще? Да сам код что-то не идет, цикл на цикле сидит и массивом погоняет)))
А первую задачу сделал, экзамен сдал (отл). Но задачку все таки интересно добить)))