Заполните треугольник высотой n строк цифрами от 0 до 9 (циклически) с последовательно меняющимися цветами - Pascal

Узнай цену своей работы

Формулировка задачи:

Заполните треугольник высотой n строк цифрами от 0 до 9 (циклически) с последовательно меняющимися цветами сверху вниз по следующему шаблону ---------0----------- --------321---------- -------87654---------
Почти разобрался только цифры в неправильном порядке выводит
uses crt;
var len: integer; {количество цифр в текущей строке}
i,j: integer; {счетчики цикла}
digit: integer; {цифра}
color: integer; {цвет}
pos: integer; {начальная позиция в строке}
n: integer; {размер}
  begin
clrscr;
writeln ('Рисование треугольника');
repeat
write ('Введите его высоту от 1 до 10: ');
readln (n);
if (n<1)or(n>10) then writeln ('Введена неправильная высота');
until (n>=1)and(n<=10);
clrscr;
len:=(n+1)-n;digit:=0;pos:=18;color:=1;
for i:=1 to n do
begin
for j:=pos to len+pos-1 do
begin
gotoxy (j,i);
textcolor(color);
write (digit);
color:=color+1;
if color>15 then color:=1;
digit:=digit+1;
if digit>9 then digit:=0;
end;
pos:=pos-1;
len:=len+2;
end;
readln
end.
Помогите пожалуйста исправить код

Решение задачи: «Заполните треугольник высотой n строк цифрами от 0 до 9 (циклически) с последовательно меняющимися цветами»

textual
Листинг программы
for i:=1 to n do
 begin
  for j:=len+pos-1 downto pos do
   begin

Объяснение кода листинга программы

  1. Создается цикл от 1 до значения переменной n.
  2. Вложенный цикл запускается от значения переменной len + pos - 1 до значения переменной pos.

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы