Narysuj domek w Turbo Pascalu. Nie w sposób graficzny ale procedurami.Mam stworzyć to na podstawie linii, prostokątów. Domek z trójkątnym dachem, oknem i drzwiami.
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
0 votes Thanks 0
aso
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)
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
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)