Sayfa 28

while not (hatakr & ayrac) or bitim) da

karekterokulhatakr ,hatakryer) end; Ck hataraparu *)

procedure sayıoku (var sayıkr var var sayıdeger

canst nokta sabıt 10; var

sayac,olcu ! integer;

sayıdeger while begin sayıdeger sabıt * sayideger * ); end; Ck while *) 1f sayıkr nokta then begin karekterokulsayıkr ,sayıyer); olcu is O;

sayıkr) and (sayıkr < * sabıt)) da

while sayıkr) and (sayıkr < * sabıt)) da

sayıdeger 5 sabit * sayideger *

karekterokulsayıkr,sayıyer); olcu olcu *i; end; (* while *) far sayac 15 1 ta alcu dü sayıdeger sayideger / sabit end; then *) end; Ck sayıcku *)

procedure ıfadeoku (var ıfadekr ichar; var ıfadeyer var ıfadedeger ireal);