Odpowiedzi

2009-11-19T20:52:09+01:00
USES CRT, Graph;
var
ster,tryb:integer;




procedure dom;
begin
rectangle(82,110,400,400);
end;

procedure dach;
begin
line(250,20,30,110);
line(250,20,450,110);
line(30,110,450,110);
end;

procedure okno;
begin
rectangle(120,145,190,220);
end;

procedure drzwi;
begin
rectangle(331,260,400,400);
end;

begin
ster:=VGA; tryb:=vgahi;
InitGraph(ster,tryb,'C:\');

dom;
dach;
okno;
drzwi;

readLn;
end.


uwaga: w InitGraph to w apostrofach (tam gdzie ja mam podane 'C:\') to musisz sam sobie zmienić najlepiej na to co Ci Pan podał, bo może się tak zdarzyć że kompilator ci nie skompiluje programu a u mnie poprawnie działa;) (używam FreePascal)

edit: w załączniku skrypt jest odpowiednio sformatowany:P
2009-11-19T21:11:10+01:00
Jeżeli chodzi ci o rysowanie w trybie tekstowym, to można to zrobić za pomocą symbolów gwiazdki. Zadanie nie jest łatwe - jako iz nie posiadam TP pod ręką i piszę na FreePascalu, mogą być błędy.
Sorki za bardzo nieprofesjonalny kod, ale teraz już niewiele pamiętam z TP i zrobiłem dość lamerskie rozwiązanie :D
Tutaj kod:
http://wklej.org/id/210464/
Jak kod się spodoba to daj najlepszą odp. (chociaż wątpię zeby kod był najlepszy, pewnie ktoś da inny, lepszy :x)
1 5 1