Задать вопрос
ИнформатикаИнформатика
19 февраля, 05:02

Тем, кто работает с 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.

+5
Ответы (1)
  1. 19 февраля, 05:29
    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)
Нужен ответ
Найдите координаты точки, через которую проходят графики функций y=kx - 2k-3 при любых значениях параметра k
Нет ответа
Расстояние между двумя пунктами 40 км. Из одного из них в другой одновременно въезжают автобус и велосипедист. Скорость автобуса 50 км в час, велосипедиста 10 км в час.
Нет ответа
Вычислите (3-2 5/9) : 1/12 = 2) (7/18+5/12-2/3) * 0,9 = 3) (1,35-4/15) * 3/13+2 5/12 = 4) 0,1: (2 1/15+1/3) =
Нет ответа
Решите уравнение (x^2-5x+7) ^2 - (x-2) (x-3) = 1
Нет ответа
дан параллелограм АВСD. O-точка пересечения диагоналей. Найдите векторы OD-OC, 2BO + DA, CD+DB+BA
Нет ответа
Главная » Информатика » Тем, кто работает с 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);
Регистрация Забыл пароль