Ai biết viết chương trình con để vẽ hình trong pascal không ạ. Càng nhiều hình càng tốt ạ

0 bình luận về “Ai biết viết chương trình con để vẽ hình trong pascal không ạ. Càng nhiều hình càng tốt ạ”

1. Program FNG;
   Uses crt;

   Procedure hinhtamgiac;
   Var i,j: longint;
   Begin
           For i:=1 to 5 do
           Begin
                   For j:=1 to i do
                           Write(‘*’);
                   Writeln;
           End;
   End;

   Procedure hinhchunhat;
   Var i,j: longint;
   Begin
           For i:=1 to 5 do
           Begin
                   For j:=1 to 7 do
                           Write(‘*’);
                   Writeln;
           End;
   End;

   Procedure hinhvuong;
   Var i,j: longint;
   Begin
           For i:=1 to 5 do
           Begin
                   For j:=1 to 5 do
                           Write(‘*’);
                   Writeln;
           End;
   End;

   Begin
           Clrscr;
           hinhtamgiac;
           Writeln;
           hinhvuong;
           Writeln;
           hinhchunhat;
           Readln
   End.

   Bình luận

2. * Chương trình 1: Vẽ các đường thẳng bất kì.
   PROGRAM DUONG_THANG;
        USES Crt, Graph;
        VAR Gd, Gm: integer;
         BEGIN
              Gd:= Detect;
              Initgraph (Gd, Gm,’ ‘);
              Randomize;
              REPEAT
                    Line (Tandom(200), Random(200), Random(200), Random(200));
              UNTIL KeyPressed;
              Readln;
              Closegraph;
   END.

   * Chương trình 2: Vẽ các đường gấp khúc bất kì.
   PROGRAM GAP_KHUC;
        USES Crt, Graph;
        VAR Gd, Gm: integer;
        BEGIN
             Gd:= Detect;
             Initgraph (Gd, Gm,’ ‘);
             Randomize; {1}
             REPEAT
                  Lineto (Random(200), Random(200)); {2}
             UNTIL KeyPressed;
             Readln;
             Closegraph;
        END.
   * Chương trình 3: Vẽ một đường tròn với viền màu trắng bên trong tô xanh.
   PROGRAM DUONG_TRON;
        USES Graph;
        VAR Gd, Gm: integer;
        BEGIN
             Gd:= Detect;
             Initgraph (Gd, Gm,’ ‘);
             Setcolor (100,100,80);
             SetFillStyle (100,100,white);
             Readln;
             Closegraph;
        END.
   * Chương trình 4: Viết chương trình đổi màu màn hình một cách ngẫu nhiên khi có một phím được bấm, còn nếu bấm ‘T’ thì kết thúc chương trình.
   PROGRAM THU_MAU_NEN;
        USES CRT, GRAPH;
        VAR Gd, Gm: integer;
              YK: char;
         BEGIN
              Gd:= Detect;
              Initgraph (Gd, Gm,’ ’);
              Randomize;
              REPEAT
                   SetBKColor (Random(GetMaxColor));
                   C:= ReadKey;
              UNTIL UpCase(C) = T.;
              Closegraph;
          END.

   * Chương trình 5: Vẽ các thanh hình chữ nhật tô màu xanh lá cây.
   PROGRAM THANH_CHU_NHAT;
        USES CRT, GRAPH;
        VAR Gd, Gm: integer;
              I: integer;
         BEGIN
              Gd:= Detect;
              Initgraph (Gd, Gm,’ ‘);
              FOR I .:= 1 TO 10 DO
                   Begin
                       SetFillStyle(1,2).;
                       Bar (I/* 10, I * 10, I * 10+100, I * 10+50);
                   End;
              Readln;
              Closegraph;
        END.
   * Chương trình 6: Vẽ một đa giác đểu
   PROGRAM VEJDA_GIAC_DEU;
        USES Graph;
        VAR Gd. Gm: integer;
              K, N: integer;
              Arcco: Arcoords type;
        BEGIN
             Write (‘Muon ve dã giac bao nhieu canh:’);
             Readin (N);
             Gd:= Detect;
             Initgraph (Gd, Gm,’ ’);
             SetBKColor (Blue);
             Center X:= GetMax X div 2;
             Center Y:= GetMax Y div 2;
             Step:= 360 div N;
             FOR K:= 1 TO N DO
                 Begin
                      SetColor (0);
                     Arc(Center X, Center Y, (K – l)*Step, K*Step, Center Y);
                     GetArcCoords (ArcCo);
                     SetColor (1);
                    WITH Arcco Do
                         Line (XStart, YStart, Xend, Yend);
                End;
          Closegraph;
   END.

   Bình luận