640 нүкте
400 нүкте
Санақ басы – экранның сол жақ жоғарғы бұрышы
Графиктік терезені тазарту
program clear;
uses GraphABC;
begin
ClearWindow;
ClearWindow (clMoneyGreen);
end.
Жасыл ақша түсі
Program liniay;
uses GraphABC;
begin LineTo(300,200);
end.
Program liniay;
uses GraphABC;
begin
line(100,50,500,250);
end.
Program pryamougolnik;
uses GraphABC;
begin
Rectangle(50,50,200,200);
end.
Program pryamougolnik;
uses GraphABC;
begin
Rectangle(50,50,200,200);
FloodFill(100,100,clBlue);
end.
Шеңбер
Program circle;
uses GraphABC;
begin
Circle(500,200,100);
FloodFill(500,200,clred);
end.
x1,y1
r
Program oval;
uses GraphABC;
begin
Ellipse(50,50,200,350);
FloodFill(50+100,50+100,clred);
Ellipse(250,150,550,300);
FloodFill(250+100,150+100,clBlue);
end.
x1,y1
x2,y2
x1,y1
x2,y2
Ү. Сабақты қорытындылау. Кім жылдам?
Сәйкестендіру схемасы.
FloodFill(x,y,color)
– (х, у) нүктесінен бастап берілген аумақтың бір түсін color түсімен бояйды.
–Ортасының координатасы (х, у) және радиусы r болатын шеңберді салу.
Circle(x,y,r)
-эллипсті салу, тіктөртбұрыштың қарама-қарсы төбелерінің координа-талары арқылы (x1,y1) және (x2,y2).
Ellipse(x1,y1,x2,y2) -
(x,y) координаталары бар пикселді color түске бояйды.
SetPixel(x,y,color)
FloodFill(x,y,color)
– (х, у) нүктесінен бастап берілген аумақтың бір түсін color түсімен бояйды.
–Ортасының координатасы (х, у) және радиусы r болатын шеңберді салу.
Circle(x,y,r)
-эллипсті салу, тіктөртбұрыштың қарама-қарсы төбелерінің координа-талары арқылы (x1,y1) және (x2,y2).
Ellipse(x1,y1,x2,y2) -
(x,y) координаталары бар пикселді color түске бояйды.
SetPixel(x,y,color)
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть