PROGRAMAREACIRCLE;.docVIP

PROGRAM AREACIRCLE; CONST Pi = 3.1416; VAR area , circumference : real; radius : integer; BEGIN write(‘Enter radius: ’) ; readln(radius); area := radius * radius * Pi ; circumference := 2 * Pi * radius ; writeln(‘Circle with radius ’, radius , ‘ has an area of ’ , area) ; writeln(‘The Circle has a circumference of ’ , circumference ) END. PROGRAM, CONST, VAR, BEGIN, END.(程式指定用) (LINE 1) 程式名稱不可同變數或不變數名稱(LINE 3,5,6)相同. LINE 1,3,5,6,8,9,10,11,12的分號(;)用來分開程式statements.如果statement是最後,便不需用 ;. LINE 3 的 (=) 表示給予不變數一個值 LINE 5,6 的 (:) 用於設定變數的數據類型(類型有integer(整數)，real(點數),單字符(character), s