Bu sayfadaki yazılar
Sayfanın metni
Sayfa 29
PROGRAM 3
Klavyeyle gezinmek için ← ve → tuşları.
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);