Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  quang
Language: PASCAL
Code:
program quang;
uses graph;
var x1,x2,y1,i:integer;
    c:char;
procedure thietlapdohoa;
var gd,gm,gr:integer;
begin
        detectgraph(gd,gm);
        initgraph(gd,gm,'');
        gr:=graphresult;
        if gr<>grOK then
                begin
                        writeln('Loi do hoa:',grapherrormsg(gr));
                        halt(1);
                end;
end;
begin
        thietlapdohoa;
        setlinestyle(0,4,3);
        rectangle(0,0,60,60);
        rectangle(390,90,870,630);
        x1:=390; y1:=90; x2:=870; 
        for i:=1 to 8 do
                begin
                        y1:=y1+60;
                        line(x1,y1,x2,y1);
                end;
        y1:=90;
        for i:=1 to 7 do
                begin
                        x1:=x1+60;
                        line(x1,y1,x1,y1+240);
                        line(x1,y1+300,x1,y1+540);
                end;
        c:=#206;
        settextstyle(0,0,2);
        x1:=450; y1:=210;
        outtextxy(x1,y1,c);
        readln
end.
Comments: