Помогите написать пожалуйста
Нужно нарисовать елочку через координаты(gotoxy) используя символ например "*".
Я нарисовал, но код некрасивый, учитель сказал нужно зациклить, как не пытаюсь не получается, помогите пожалуйста. Вот мой код с елочкой: program tema; uses crt; var x,y:byte; begin clrscr; textcolor(10); gotoxy(40,5); writeln('*'); gotoxy(39,6); writeln('***'); gotoxy(38,7); writeln('*****'); gotoxy(37,8); writeln('*******'); gotoxy(40,9); writeln('*'); gotoxy(39,10); writeln('***'); gotoxy(38,11); writeln('*****'); gotoxy(37,12); writeln('*******'); gotoxy(40,13); writeln('*'); gotoxy(39,14); writeln('***'); gotoxy(38,15); writeln('*****'); gotoxy(37,16); writeln('*******'); textcolor(6); gotoxy(39,17); writeln('***'); gotoxy(39,18); writeln('***'); readln; end. |
Цитата:
Код:
program tema; |
Благодарю:tehnari_ru_203:
|
Часовой пояс GMT +4, время: 09:29. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.