• /Для среды PascalABC
    uses graphABC;
    const k=6;
    var
    n,x,y:integer;
    procedure snow (x0,y0,r,n:integer);
    const t=2*pi/k;
    var
    i,x,y:integer;
    begin
    for i:=1 to k do
    begin
    x:=x0+round(r*cos(i*t));
    y:=y0-round(r*sin(i*t));
    line(x0,y0,x,y);
    if n>1 then snow(x,y,r div 3,n-1);
    end;
    end;
    begin
    repeat
    writeln('Glubina rekursii do 6:');
    readln(n);
    until n in [1..6];
    x:=WindowWidth div 2;
    y:=WindowHeight div 2;
    snow(x,y,100,n);
    end.
    Помогите пожалуйста! Что с этой программой не так? Нужно нарисовать снежинку рекурсией. Программа запускается, а снежинку не рисует!

Ответы 4

  • Мне нужно решение на языке Паскаль. Рекурсия.
    • Автор:

      zion2
    • 6 лет назад
    • 0
  • Или здесь что-то не то?
    • Автор:

      brewer
    • 6 лет назад
    • 0
  • Я уже замучилась эту задачу сюда добавлять
    • Автор:

      buds
    • 6 лет назад
    • 0
  • Вы уверены, что используете правильные функции для рисования?
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years