Қош келдіңіздер! Добро пожаловать! Welcome!
Вторник, 22.07.2025, 19:41
Приветствую Вас Гость | RSS

Сайт-портфолио Жумабековой Альмиры Аденбековны

Форма входа
Категории раздела
Уроки по ЛогоМирам в 5 классе [1]
Разработки уроков
Уроки по Логомирам в 6 классе [1]
Разработки уроков
Уроки по PascalABC [1]
Разработки уроков
Плеер

Каталог статей

Главная » Статьи » Уроки по спец.курсу » Уроки по PascalABC

Экранның графиктік режимі
Сабақ тақырыбы: Экранның графиктік режимі 
Сабақ мақсаты:
1. Білім берушілік Экранның графиктік режимі. Графиктік операторларды қолдану бойынша
  білімдерін қалыптастыру.
2. Дамытушылық ойлау, есте сақтау қабілетін дамыту
  
3. Тәрбиелік пәнге қызығушылығын тәрбиелеу

Графиктік режимде жұмыс істеу үшін қолданылатын процедуралар:

procedure PutPixel(x,y: integer; c: Color); 
  координаталары (x,y) түсі c болатын нүктені салу
procedure LineTo(x,y: integer; c: Color); 
  Ағымдағы нүктеден бастап с түспен (x,y) нүктесіне дейін сызық салу  
procedure Line(x1,y1,x2,y2: integer; c: Color); 
  (x1,y1) нүктесінен бастап (x2,y2) нүктесіне дейін с түспен сызық салу процедурасы  
procedure DrawCircle(x,y,r: integer); 
Центрі (x,y) және радиусы r болатын шеңбер салу процедурасы
procedure DrawEllipse(x1,y1,x2,y2: integer); 
(x1,y1) және (x2,y2) қарама-қарсы төбелерінің координаталары бойынша эллипстің шекарасын салу процедурасы
procedure DrawRectangle(x1,y1,x2,y2: integer); 
  (x1,y1) және (x2,y2) қарама-қарсы төбелерінің координаталары бойынша төртбұрыш салу
procedure DrawRoundRect(x1,y1,x2,y2,w,h: integer); 
  (x1,y1) және (x2,y2) төртбұрыштың қарама-қарсы төбелері және w ,h – эллипстің ені мен биіктігі бойынша төрт бұрышы дөңгелектенген төртбұрышты салу процедурасы
procedure Arc(x,y,r,a1,a2: integer); 
  Центрі (x,y) , радиусы r және ОХ осімен a1 және a2 бұрыштар жасайтын шеңбер доғасын салу процедурасы 

Мысалы:

uses GraphABC; 
begin 
  Window.Title := 'Демонстрация прозрачности‘;  
  Brush.Color := clRed; 
  FillRectangle(50,50,100,Window.Height - 50); 
  Brush.Color := clGreen; 
  FillRectangle(150,50,200,Window.Height - 50); 
  Brush.Color := clBlue; 
  FillRectangle(250,50,300,Window.Height - 50); 
  Brush.Color := ARGB(127,255,0,0); 
  FillRectangle(20,100,420,150); 
  Brush.Color := ARGB(63,0,127,0); 
  FillRectangle(20,200,420,250); 
  Brush.Color := ARGB(31,0,0,255); 
  FillRectangle(20,300,420,350); 
end.



Категория: Уроки по PascalABC | Добавил: Almira (19.11.2011) | Автор: Almira E W
Просмотров: 618 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:
Социальные закладки
Праздники дня
Наш опрос
Единицы измерения информации:
Всего ответов: 55
Мини-чат
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Поиск

Жумабекова Альмира 2011 г.