«Зима 2025»

Программирование на Паскале

готовое программирование на языке Паскаль. Построение графика

Олимпиады: Информатика 1 - 11 классы

Содержимое разработки

ProgramҮй;

uses Graphabc;

begin

SetWindowWidth(800); //терезе ені

SetWindowHeight(600); //терезе биіктігі

SetPenWidth(3); //қылқалам қалыңдығы

Rectangle(200, 300, 600,600); //үй

Circle(400,225, 40); //шеңбер

SetBrushColor(clLime);

FillRect(300, 400,500,500); //терезе бояу әрекеті

rectangle(300,400,500,500); //терезе

Line(400,400,400,500); // терезе

Line(300,450,500,450); //терезе

Line(200,300,400,150); //шатыр

Line(400,150,600,300); //шатыр

end.


Program адам;

uses GraphABC;

begin

SetWindowSize(500, 500); //терезе мөлшерін береміз

SetPenWidth(3); //қылқалам қалындығы

SetBrushColor(clFuchsia); //қылқалам түсі

Circle(225,160,50); //шеңбер

Line(225,160,225,180); //кесінді

Line( 210,190,240,190);

Line( 225,210,225,250);

Line( 100,100,200,260);

Line( 200,260,400,260);

Line( 210,350,200,480);

Line(240,350,250,480);

Rectangle(200,230,250,350); //тіктөртбұрыш

SetBrushColor(clWhite);

Circle(205,150,10);

Circle(245,150,10);

end.





Получите свидетельство о публикации сразу после загрузки работы



Получите бесплатно свидетельство о публикации сразу после добавления разработки


Серия олимпиад «Зима 2025»



Комплекты учителю



Качественные видеоуроки, тесты и практикумы для вашей удобной работы

Подробнее

Вебинары для учителей



Бесплатное участие и возможность получить свидетельство об участии в вебинаре.


Подробнее