Задача на Паскаль
Есть код прорисовки прямоугольника.
uses crt;
var i:integer;
begin
TextSize(16);
TextBold;
textcolor (4);
for i:=1 to 25 do begin
gotoxy(27+i,1);
write('*');
gotoxy(27+i,23);
write('*');
gotoxy(27,i);
write('*');
gotoxy(52,i);
write('*');
end;
end.
Нужно аналогично нарисовать равнобедренный треугольник.
Ответы (1 шт):
Автор решения: MBo
→ Ссылка
Примерно так - на каждом шаге рисуется звёздочка слева от центральной линии и справа, и заполняется часть нижней стороны.
gotoxy(25,1); {вершина}
write('*');
for i:=2 to 25 do begin
gotoxy(25-i+1,i);
write('*');
gotoxy(25+i-1,i);
write('*');
gotoxy(i,25); {нижняя горизонталь}
write('*');
gotoxy(51-i,25);
write('*');
end;