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
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)
