Programowanie W TP - Domek

Dym14 [ C L I N I C ]

Używając readln 'rysujesz' domek. Składnia readln('tekst a w twoim przypadku znaki');

Piotrus1pan [ ZbiQ2 ]

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(94,120,120,360);
end;

Begin
ster:=VGA; tryb:=VGAHi;
InitGraph(ster, tryb, 'C:\Documents and Settings\Student\Moje dokumenty\Pobieranie\TP\TP\BGI' );

dom;
dach;
okno;
drzwi;

readLn;
end.

pomóżcie... jak ustawić drzwi żeby byly op środku i jak są ustalone x1,y1,x2,y2 bo nie mogę tego rozkminić... z góry dzięki

Narmo [ nikt ]

i jak są ustalone x1,y1,x2,y2
x1 i y1 to w wypadku kwadratów/prostokątów współrzędne lewego, górnego rogu (gdzie x=0 i y=0 to punkt leżący w lewym górnym rogu okna/monitora), a x2 i y2 to współrzędne prawego, dolnego rogu.

Piotrus1pan [ ZbiQ2 ]

Dzięki :P

Dym14 [ C L I N I C ]

Trzeba było mówić że chodzi o moduł graph...

Piotrus1pan [ ZbiQ2 ]

Cholercia ... Muszę jeszcze do tego dorzucić księżyc,ludzik,drogę i płotek ...Jakieś nakierowane ? Bo znalazłem na necie taki programik...



i nie wiem jak zabrać się do tego...

Dym14 [ C L I N I C ]

A w czym masz problem dokładnie? Bo nie wiem znów o czym pisać... Czy nie znasz poleceń czy nie masz pomysłu na narysowanie jakiegoś elementu?

Dym14 [ C L I N I C ]

Nudziło mi się to dorysowałem Ci te elementy :P


Możesz poprawić ludzika dodać mu twarz, zmienić na normalny tułów zamiast patyczakowatego i wypełnić elementy kolorem (np.księżyc). Przesuń ewentualnie komin i pokrzyw sobie drogę :P

Niestety podany przez ciebie program u mnie nie działa ale ja używam free pascal bo turbo nie chodzi na 64 bitach :(