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).
0
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.
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?