• пожалустааааааааааааа!!!!!!!!!!!
    вот ёлочка в паскале аbс надо сделать чтобы она росла
    Program elochka;
    uses GraphABC;
    var m,i:integer;
    begin
    m:=50;
    ClearWindow;
    SetPenColor(ClGreen);
    for i:=1 to 3 do
    begin
    MoveTo(WindowWidth div 2,m);
    LineTo((WindowWidth div 2)-m,2*m+10);
    LineTo((WindowWidth div 2)+m,2*m+10);
    LineTo((WindowWidth div 2),m);
    FloodFill(WindowWidth div 2,m+12,ClGreen);
    inc(m,50);
    end;
    FloodFill(WindowWidth div 2,m+12,ClGreen)
    end.

Ответы 4

  • Блиин
    • Автор:

      angela
    • 6 лет назад
    • 0
  • Сори тогда не чем помочь не могу(
  • жааааль(((
    • Автор:

      libby87
    • 6 лет назад
    • 0
  • Таак.uses GraphABC;procedure P1(x,y:integer);begincircle(x,y,10);floodfill(x,y,clyellow);ellipse(x-15,y+10,x+15,y+70);floodfill(x,y+20,clyellow);line(x,y+70,x-15,y+100);line(x,y+70,x+15,y+100);end;procedure P2(x,y:integer);begincircle(x,y,10);floodfill(x,y,clyellow);ellipse(x-15,y+10,x+15,y+70);floodfill(x,y+20,clyellow);line(x,y+70,x,y+100);end;var x,y,i:integer;beginx:=40;y:=100;i:=1;repeat LockDrawing; ClearWindow(clgreen); setpenwidth(3);  if odd(i) then P1(x,y)  else P2(x,y); setpenwidth(10);  line(0,y+100,windowwidth,y+100); Redraw; Sleep(500); x:=x+5; i:=i+1;until x>=windowwidth-20;end.Вроде так как то)
  • Добавить свой ответ

Войти через Google

или

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

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

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