profile
Опубликовано 4 года назад по предмету Информатика от ggxsvb

Нужно нарисовать что нибудь в програме pascal abc

  1. Ответ
    Ответ дан Vladimir648

    program pr;
    uses crt, graphABC;
    var driver,
    mode :integer;
    begin
    setwindowwidth(1024);
    setwindowheight(600);
    setpencolor(clBlack);
    rectangle(100,100,400,400);
    rectangle(150,150,200,300);
    rectangle(300,150,350,300);
    rectangle(375,99,340,10);
    line(100,100,250,10);
    line(250,10,400,100);
    circle(600,50,50);
    floodfill(600,50,clBlue);
    circle(250,65,30);
    floodfill(250,65,clRed);
    setpencolor(clblue);
    rectangle(225,150,275,300);
    line(250,150,250,300);
    line(175,150,175,300);
    line(325,150,325,300);
    setpencolor(clred);
    circle(600,300,25);
    circle(575,340,25);
    circle(625,340,25);
    circle(550,380,25);
    circle(600,380,25);
    circle(650,380,25);
    end.

    незнаю подойдет или нет

     

     

Другие вопросы
Lenusik
Математика - 4 дня назад

10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?

321
Математика - 1 неделя назад

На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?

bkmz
Математика - 1 неделя назад

Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг

lesiunia
Физика - 1 неделя назад

Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч

Kiril
Физика - 1 неделя назад

Сколько часов и минут в -1,3ч и -2,75ч

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.