last played
«
»

Inicializace grafiky, domeček jedním tahem :-)

Filed under: škola — 7. Říjen 2006 Comments (7)

Oh, tak si zase malujeme. Tentokrát opravdu vážně. ;-)
Domeček jedním tahem

 uses Graph, Crt;

var
 grDriver: Integer;
 grMode: Integer;
 ErrCode: Integer;

begin
 grDriver := Detect;
 InitGraph(grDriver, grMode,' ');
 ErrCode := GraphResult;
 if ErrCode = grOk then
 begin  { domecek jednim tahem}
   MoveTo (round (GetMaxX/2),     round (GetMaxY/2));
   LineTo (round (GetMaxX/2)+100, round (GetMaxY/2));
   LineTo (round (GetMaxX/2)+100, round (GetMaxY/2)-100);
   LineTo (round (GetMaxX/2)+50,  round (GetMaxY/2)-100-50);
   LineTo (round (GetMaxX/2),     round (GetMaxY/2)-100);
   LineTo (round (GetMaxX/2)+100, round (GetMaxY/2)-100);
   LineTo (round (GetMaxX/2),     round (GetMaxY/2));
   LineTo (round (GetMaxX/2),     round (GetMaxY/2)-100);
   LineTo (round (GetMaxX/2)+100, round (GetMaxY/2));
   Readln;
   CloseGraph;
 end
 else
   Writeln('Graphics error:', GraphErrorMsg(ErrCode));

repeat until KeyPressed;
end.

Komentáře: 7 »

  1. 1 — kajinek — 22.09, 7. Říjen 2006

    Co ej tohle za domecek???
    Jooo to za mejc mladejch let byl domecek se slunickem, stromeckem, kominkem, strechou, s taskama, travnickem, okynkem se zavesem, dverma s klikou… no proste super dilo!!

  2. 2 — kajinek — 22.09, 7. Říjen 2006

    Teda ne ze bych ten tvuj chtel nejak hanit… z toho uz se asi nevykecam co?

  3. 3 — Lynn — 22.16, 7. Říjen 2006

    Máme Benedikoviče, studenti u Péti přirozeně dělali vše, co popisuješ :-)
    Krásně nám všechno vysvětloval, proč to tak je… takže konečně třeba vím, jaký je rozdíl mezi TP a BP (pokud nekecal :-) )

    a tohle je taky super dílo ;-) Zvlášť, když já úplně sama! :lol:

  4. 4 — JKHT — 23.08, 10. Říjen 2006

    Nevím ti proč, ale připomíná mi to mé začátky v pascalu….. :-) ))))))))))

  5. 5 — Lynn — 6.27, 11. Říjen 2006

    Připomíná Ti to celkem správně. :-) Já začínám pořád… ;-)

  6. 6 — SF — 13.06, 30. Listopad 2007

    Víte kolika způsoby lze tento domeček nakreslit jedním tahem ?

  7. 7 — Lynn — 14.41, 30. Listopad 2007

    Víc než jedním. :-D

Napsat komentář