ОБЧИСЛЕННЯ ВИРАЗІВ У ПРОГРАМУВАННІ

ip : case tempc of

'0'..'9' : begin

v := v*10 + ord(tempc) - ord('0');

tempc := getc

end;

'.' : begin

cp := fp; tempc := getc

end

else cp := out

end;

fp : case tempc of

'0'..'9' : begin

d := d/10;

v := v + (ord(tempc) - ord('0'))*d;

tempc := getc

end

else cp := out

end

end; { оператора case cp of та циклу while}

getcon := v

end

Функція getnam записується аналогічно й залишається для самостійної розробки.

9.5. Читання символів

Нарешті ми уточнимо, як читаються символи виразу з тексту, написавши функцію getc добування наступного символу.

Її розробку почнемо з уточнення задання виразу. Нехай вираз записано в текстовому файлі, у кількох рядках, довжини яких не більше 80. Ознакою кінця виразу є кінець файла. Суміжні лексеми відокремлюються довільними послідовностями пропусків, можливо, порожніми.