Цитата:
Сообщение от SEBASTIAN
Нужно нарисовать елочку через координаты(gotoxy) используя символ например "*". Я нарисовал, но код некрасивый, учитель сказал нужно зациклить, как не пытаюсь не получается, помогите пожалуйста.
|
Ну, это совсем не трудно. Пожалуйста:
Код:
program tema;
uses crt;
var
x,y,i,j,k:byte;
begin
clrscr;
textcolor(10);
for j:=1 to 3 do
begin
x:=41;
y:=4+(j-1)*4;
for i:=1 to 4 do
begin
x:=x-1;
y:=y+1;
gotoxy(x,y);
for k:=1 to 2*i-1 do
write('*');
end;
end;
textcolor(6);
for i:=0 to 1 do
begin
gotoxy(39,5+j*4+i);
writeln('***');
end;
readln;
end.