Задать вопрос
ИнформатикаИнформатика
25 марта, 12:20

Тем, кто работает с Pascal ABC! Не заливается хобот у слона. В чем проблема? Program elephant_Meri_13; uses graphABC; begin setwindowsize (500,500); setpenwidth (8); arc (150,300,100,0,180); arc (360,250,80,160,360); arc (370,240,60,160,360); line (443,252,428,242); setbrushcolor (clgray); circle (250,150,100); line (50,300,50,450); line (50,450,140,450); line (140,450,140,400); line (140,400,160,400); line (160,400,160,450); line (160,450,250,450); line (250,450,250,300); line (50,290,10,370); FloodFill (60,400, clgray); setpenwidth (3); circle (150,300,98); circle (250,150,98); setbrushcolor (clwhite); circle (300,180,20); setpenwidth (8); setbrushcolor (clskyblue); circle (300,175,10); end.

+4
Ответы (1)
  1. 25 марта, 15:48
    0
    Program elephant_Meri_13;

    uses graphABC;

    begin

    setwindowsize (500,500);

    setpenwidth (8);

    arc (150,300,100,0,180);

    arc (360,250,80,160,360);

    arc (370,240,60,160,360);

    line (443,252,428,242);

    setbrushcolor (clgray);

    circle (250,150,100);

    line (50,300,50,450);

    line (50,450,140,450);

    line (140,450,140,400);

    line (140,400,160,400);

    line (160,400,160,450);

    line (160,450,250,450);

    line (250,450,250,300);

    line (50,290,10,370);

    FloodFill (60,400, clgray);

    setpenwidth (3);

    circle (150,300,98);

    circle (250,150,98);

    setbrushcolor (clwhite);

    circle (300,180,20);

    setpenwidth (8);

    setbrushcolor (clskyblue);

    circle (300,175,10);

    FloodFill (320,290, clgray);

    end.

    Ошибка исправлена
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Тем, кто работает с Pascal ABC! Не заливается хобот у слона. В чем проблема? Program elephant_Meri_13; uses graphABC; begin setwindowsize ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
Что напечатает следующая программа? program p3; var x, y:integer; procedure p1 (var a, b:integer); begin a:=sqr (a); b:=sqr (a) + a; end; procedure p2 (a, b:integer); begin a:=sqr (a); b:=sqr (b) + b; end; begin x:=2; y:=2; p1 (x, y);
Ответы (1)
6) Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin s : = 0; for n:=4 to 13 do begin s : = s + 15; end; write (s) end.
Ответы (1)
В какой строчке допущена ошибка в программе, написанной на языке PascalABC? Программа должна высчитывать корни квадратного уравнения при заданных значениях коэффициентов a, b, c.
Ответы (1)
Добавить пояснения к каждой строчке задачи Program z1; var i, j: byte; begin for i:=1 to 9 do begin for j:=1 to 9 do write (i*j:4); writeln; end; end.
Ответы (1)
Написать пояснения к каждой строчке задачи Program z3; var i, j, s: word; begin for i : = 1 to 10000 do begin s : = 0; for j:=1 to i div 2 do if i mod j = 0 then s : = s+j; if s = i then write (i,' '); end; writeln; readln; end.
Ответы (1)
Нужен ответ
1. Назовите город, правитель которого начал Троянскую войну. В каком веке это произошло? 2. Сформулируйте историческую причину начала Троянской войны? 3. Сформулируйте мифологическую причину начало Троянской войны?
Нет ответа
Исторический портрет Владимира Мономаха!
Нет ответа
Используя свойство 3 степеней, запишите в виде степениа) (2^2) ^3 б) (3^4) ^2 в) (3^7) ^2 г) (5^3) ^4 д) (10^3) ^5 е) (7^2) ^4
Нет ответа
Решите уравнение 3x-8 (x+2) = -41
Нет ответа
Дети ходили в лес за грибами и ягодами какие однородные члены предложения и как обозначить?
Нет ответа
Главная » Информатика » Тем, кто работает с Pascal ABC! Не заливается хобот у слона. В чем проблема? Program elephant_Meri_13; uses graphABC; begin setwindowsize (500,500); setpenwidth (8); arc (150,300,100,0,180); arc (360,250,80,160,360); arc (370,240,60,160,360);
Регистрация Забыл пароль