Блог для маленьких школьников и их родителей
ШколаЛа

Сделайте пжж в PascalABC

Автор:
Предмет: Информатика
Уровень: студенческий

сделайте пжж в PascalABC

Ответов к вопросу: 1
  • ldmllmdbmml
    07.11.2024 | 17:46

    Ответ:
    program z1;

    uses graphABC;

    begin

    SetWindowSize(900,550);

    SetWindowTitle(‘Паровоз’);

    SetBrushColor(clBlue);

    FillRectangle(150,200,500,450);

    FillRectangle(500,100,850,450);

    SetBrushColor(clwhite);

    FillRectangle(550,150,800,300);

    SetPenColor(clYellow);

    Line(50,450,150,450);

    Line(50,450,150,300);

    FloodFill(100,400,clYellow);

    SetBrushColor(clBlack);

    FillRectangle(200,100,250,200);

    FillRectangle(300,50,350,200);

    SetPenColor(clBlack);

    MoveTo(200,450);

    LineTo(200,400);

    LineTo(250,350);

    LineTo(250,350);

    LineTo(300,350);

    LineTo(350,400);

    LineTo(350,450);

    LineTo(300,500);

    LineTo(250,500);

    LineTo(200,450);

    FloodFill(300,435,clBlack);

    FloodFill(300,455,clBlack);

    MoveTo(500,450);

    LineTo(500,400);

    LineTo(550,350);

    LineTo(550,350);

    LineTo(600,350);

    LineTo(650,400);

    LineTo(650,450);

    LineTo(600,500);

    LineTo(550,500);

    LineTo(500,450);

    FloodFill(600,435,clBlack);

    FloodFill(600,455,clBlack);

    MoveTo(700,450);

    LineTo(700,400);

    LineTo(750,350);

    LineTo(750,350);

    LineTo(800,350);

    LineTo(850,400);

    LineTo(850,450);

    LineTo(800,500);

    LineTo(750,500);

    LineTo(700,450);

    FloodFill(800,435,clBlack);

    FloodFill(800,455,clBlack)

    end.

    Объяснение:
    картинка

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.