Witajcie, mam problem z zadaniem z informy. Mam utworzyć procedurę "kafelki". Oto zdjęcie jak to wygląda. Z góry dzięki za wszelką pomoc: http://img178.imageshack.us/img178/3299/20101007243.jpg

Witajcie, mam problem z zadaniem z informy. Mam utworzyć procedurę "kafelki". Oto zdjęcie jak to wygląda. Z góry dzięki za wszelką pomoc: http://img178.imageshack.us/img178/3299/20101007243.jpg
Odpowiedź

moze nie ergonmiczne ale .. :   to b setpc[ 255 255 255] setfloodcolor [ 255 255 255] repeat 3 [ fd 25 rt 90 fd 25 lt 90] rt 180 fd 25 lt 90 fd 25 rt 90 repeat 2 [ fd 25 rt 90 fd 25 lt 90] fd 25 rt 90 fd 25 rt 90 fd 25 lt 90 fd 25 rt 90 fd 1 rt 90 fd 1 fill back 1 lt 90 back 1 end   to b2 pu fd 100 pd b pu fd 1 rt 90 fd 1 fill back 1 lt 90 back 1 pd end   to kafelki setpc [ 0 0 0] kwadrat k rt 90 pu fd 100 pd lt 90 k pu rt 90 fd 200 pd lt 90 k ht end   to k pu fd 25 pd b b2 b2 pu setpos[0 0] pd end   to kwadrat repeat 4 [fd 300 rt 90] fd 300 rt 90 fd 20 rt 90 fd 10 setfloodcolor [0 0 0 ] fill home end       procedure wywolujesz wpisujac "kafelki"   Zrobione jest to w MSW Logo w razie prośby o inne języki programowania prosze pisać pw

Dodaj swoją odpowiedź