program DoHoa; uses graph; procedure KhoiDong; var grDriver: Integer; grMode: Integer; ErrCode: Integer; begin grDriver := Detect; InitGraph(grDriver, grMode,' '); ErrCode := GraphResult; if ErrCode <> grOk then begin { Do graphics } Writeln('Graphics error:', GraphErrorMsg(ErrCode)); halt(1); end; end; {-----------------------------} { CHUONG TRINH CHINH } {-----------------------------} BEGIN KhoiDong; readln; closegraph; END. Ghi chú: Có thể down tập tin maudohoa.pas dưới đây về. Đây là sườn của một chương trình đồ hoạ |