Pascal - Graficzne

Flaga Szwajcarii

Flaga Szwajcarii
Pascal - Graficzne

Program: wyświetlający flagę Szwajcarii.

Wszystkie elementy domu pochodzą z kodu.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program flaga_szwajcarii;
uses Crt, Graph;
var  driver, mode:integer;
begin
     driver:=DETECT;
     InitGraph(driver, mode, 'C:\Progra~1\TP\BGI');
     setfillstyle(1,red);
     bar(100,150,400,300);
     setfillstyle(1,white);
     bar(230,180,260,270);
     setfillstyle(1,white);
     bar(190,213,300,238);
     setcolor(red);
     settextstyle(4,0,6);
     outtextxy(250,350,'Szwajcaria!');
     repeat until KeyPressed;
     CloseGraph;
end.