Составить программу в Pascal ABC ( GraphABC). Буду очень признателен. Вот

9
Ответов - 1
Составить программу в Pascal ABC ( GraphABC). Буду очень признателен. Вот основа программы,

Вопрос задал ученик
Категории: Информатика

Ответы


Гость
Вот тут есть камни и зачаток рыбки, осталось подобрать координаты и будет на рыбу похоже

uses GraphABC;
const
    s = Этот рисунок создан с помощью Паскаль АВС;

begin
    Window.Clear(clAquamarine);
       
    //камни
    Brush.Color := clRed;
    Ellipse(100,Window.Height-20,200,Window.Height);
    Ellipse(500,Window.Height-60,650,Window.Height);
    Brush.Color := clGreen;
    Ellipse(300,Window.Height-30,480,Window.Height);
    Ellipse(200,Window.Height-40,300,Window.Height);
    
    //рыбка 1
    Brush.Color := clBlanchedAlmond;
    var FishBody1: array of Point := (new Point(150,150), new Point(50,170), new Point(100,100));
    Polygon(FishBody1); //триугольное тело
    Pie(160,160,50,50,270); //хвост
    Pie(180,180,10,50,270); //плавник
    
    //надпись
    Font.Name := Colibry;
    Font.Size := 14;
    Font.Style := fsItalic;
    Brush.Color := ARGB(50,255,255,255);
    rectangle(Window.Width div 2 - TextWidth(s) div 2, Window.Height - TextHeight(s),
    Window.Width div 2 + TextWidth(s) div 2, Window.Height);
    textout(Window.Width div 2 - TextWidth(s) div 2, Window.Height - TextHeight(s), s);
end.
Добавить ответ
Похожие вопросы
Топ Комментарии Архив
TerryChorm пишет:
Наш Сервисный центр "ВиТехно" начинал свою деятельность в 2007 году, когда полным ходом развивалась механизированная
MichaelNib пишет:
Искусственное озеленение офиса актуально в случае недостаточного освещения, его преимущество- это отсутствие
Geraldfus пишет:
А1212 МАСТЕР ультразвуковой дефектоскоп общего применения. А1212 МАСТЕР относится к ручным дефектоскопам и обеспечивает
BobbyDat пишет:
Все устройства рано или поздно выходят из строя. Проблема может быть как в расходных материалах, так и из-за более
«    Май 2022    »
ПнВтСрЧтПтСбВс
 1
2345678
9101112131415
16171819202122
23242526272829
3031 
Теги