Bu sayfadaki yazılar
Sayfanın metni
Sayfa 31
C 128 Püf Noktalarının Programları
PROGRAM 1
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 30
else ,terimyer ) end; (* while *) end; Ck terimaku 4)
begin (* ıfadeoku *) While artı) ör (ifadekr 5 eksi) da begin toplama ıfadekr; karekterakulıfadekr,ıfadeyer); ım); 1f toplama * artı then ıfadedeger :5 ifadedeger * sonterim else ıfadedeger - sonterim end; Ck while *) end; (* 1fadeoku *)
hegin Ck hesapmakınası *) sonyer O; while sonkr <> Bitim do begin netice); ı1f (sonkr 5 ayrac) or <(sonkr & bıtım) then begin sonkr —ayrac then ) end (C* then *) else end <* while *) end. Ct heesapmakınası *)