Question

muszę zrobić program w turbo pascalu taki żeby powstał samochód

Answer 1

nie podales czy ma to byc w trybie graficznym czy nie i jak ma powstawac ten samochod czy ma on zostac po prostu wyswitlony na ekranie ??

domyslam sie ze chodzilo o to :

 

uses graph,crt;

var a,b:integer;

c:string;

begin

initgraph(a,b,c);



{karoseria}

setfillstyle(1,red);

bar(100,300,300,350);

{szyby}

setcolor(blue);

line(125,300,175,260);
line(175,260,245,260);
line(245,260,275,300);
line(125,300,275,300);
setfillstyle(6,blue);
floodfill(200,277,blue);
{kola}
setcolor(7);
circle(125,350,20);
circle(125,350,10);
setfillstyle(1,7);
floodfill(125,339,7);
circle(275,350,20);
circle(275,350,10);
setfillstyle(1,7);
floodfill(275,339,7);
readkey;
end.