Figury ze znakow

Odpowiedz Nowy wątek
2006-12-02 16:55
marchewek
0

Moglby mi ktos pomoc w napisaniu kwadratu, w ktorym deklarujemy z jakiej litery ma byc utworzony oraz o dlugosci jego boku, a nastepnie aby zaznaczyl, takze wczesniej zdeklarowanym znakiem jego srodek (w przypadku parzystej dlugosci boku ma wstawic w miejscu srodka kwadracik 2x2).

Pozostało 580 znaków

2006-12-02 17:19
0

Przypuśćmy, że zadeklarowaliśmy zmienną bok =długość boku. Aby narysować wypełniony kwadrat w miejscu (x, y) możesz napisać:

bk :=y +bok; {bk jest tego samego typu co bok}
repeat
GotoXY (x, y);
for i :=1 to bok do Write (Znak); {i to BYTE; Znak to CHAR}
Inc (y);
until y =bk;

Aby w ten sam sposób narysować pusty kwadrat w miejscu (x, y):

bk :=y +bok -1;
GotoXY (x, y);
for i :=1 to bok do Write (Znak);
Inc (y);
if bok >2 then
repeat
GotoXY (x, y);
Write (Znak, Znak:(bok -2));
Inc (y);
until y =bk;
GotoXY (x, y);
for i :=1 to bok do Write (Znak);

Oba kody rysują figurę przy użyciu znaku zapisanego w zmiennej Znak. Dopasuj to do własnych potrzeb ;)

Pozdrawiam.

Pozostało 580 znaków

2006-12-02 19:42
marchewek
0

bylbym wdzieczny gdybys wkleil kod od samego poczatku do konca, bo jestem w tym zielony. Da sie to narysowac bez uzycia funkcji GotoXY, a wylacznie dzieki petlom?

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0