Question

Составить программу в Pascal ABC ( GraphABC). Буду очень признателен. Вот основа программы, нужно нарисовать рисунок.
uses GraphABC;
const s='Этот рисунок создан с помощью Паскаль АВС';
begin
Window.Clear(clAquamarine);
Font.Name:='Colibry';
Font.Size:=14;
Font.Style:=fsItalic;
Brush.Color:=clWhite;
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.

Answer 1

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

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.

Answer 2

У Вас программа запустилась?

Answer 3

Можете эти камни нормального размера сделать и рыбу доделать. И я буду счастлив

Answer 4

да конечно PascalABC.Net 3.1 последняя сборка

Answer 5

вот как раз делать размеры это самое долгое. подбирай

Answer 6

вот так оно и делается, меняешь цифры, запускаешь, смотришь результат, опять меняешь цифры и тд