Език за програмиране Pascal - графика - компютърни науки, презентации

Тази презентация е предназначена за урок на тема "Език за програмиране Pascal - графики" за 11 клас. Съответства на стандарта FGOS. Презентацията представя теоретичен материал, примери за програми по тази тема, както и задачи за самостоятелна работа на учениците. Тази презентация е за 2 урока. Изучаването на теоретичен материал и изпълнението на практическа работа (консолидиране на придобитите знания).

Преглед на съдържанието на документа "Език за програмиране Pascal - графики"

компютърни

МИНИСТЕРСТВО НА ПРОФЕСИОНАЛНОТО ОБРАЗОВАНИЕ, ОБУЧЕНИЕ И РАБОТА НА ПЕРСОНАЛ НА РЕПУБЛИКА САХА (ЯКУТИЯ)

ДЪРЖАВНА АВТОНОМНА ПРОФЕСИОНАЛНА ОБРАЗОВАТЕЛНА ИНСТИТУЦИЯ НА РЕПУБЛИКА САХА (ЯКУТИЯ)

"РЕГИОНАЛЕН ТЕХНИЧЕСКИ КОЛЕЖ В МИРНОЙ"

Език за програмиране Pascal

език

За да работите вграфичен режимтрябва да свържете модула GraphABC. Използвайте GraphABC;

За работа стекст- модул Crt. Използва crt;

Контрол на екранаSetWindowWidth(w) - Задаваширината на графичния прозорец;

SetWindowHeight(h) - Задавависочината на графичния прозорец;

език

ТочкаSetPixel(x,y,color) – Запълва един пиксел с координати (x,y) с цветен цвят

ЛинииЛиния(x1,y1,x2,y2) - чертае линия, започваща от (x1,y1) и завършваща при (x2,y2). x1,y1

науки

Цвят на линиятаSetPenColor(color) – задава цвета на писалката, определен от параметъра цвят.

pascal

ПравоъгълникПравоъгълник(x1,y1,x2,y2) – чертае правоъгълник, даден от координатите на противоположни върхове (x1,y1) и (x2,y2).x1,y1

компютърни

ПопълнетеcolorFloodFill(x,y,color) – запълва област от същия цвят с цвят, започвайки от точка (x,y).x1,y1 Програма pryamougolnik;

Триъгълник, начертан от процедури Line(x1,y1,x2,y2); LineTo(x,y);

език

КръгКръг(x,y,r) - чертае кръг с център (x,y) с радиус r.

компютърни

Дъга от окръжностArc(x,y,r,a1,a2) – Чертае дъга от окръжност с център в точката (x,y) и с радиус r, затворен между два лъча, образуващи ъгли a1 и a2 с оста OX (a1 и a2 са реални, зададени в градуси и преброени обратно на часовниковата стрелка).

pascal

SetWindowHeight(h); - Задава височината на графичния прозорец

SetWindowWidth(w); - Задава ширината на графичния прозорец

ClearWindow; - изчиства графичния прозорец с бял цвят.

ClearWindow(цвят); - Изчиства графичния прозорец с посочения цвят.

SetPixel(x,y,цвят); - Боядисва един пиксел в (x,y) координати с цвят

LineTo(x,y); - чертае сегмент от текущата позиция на писалката до точката (x, y); координатите на писалката също стават равни на (x,y).

Линия (x1,y1,x2,y2); - чертае отсечка с начало в точка (x1,y1) и край в точка (x2,y2).

SetPenColor(цвят); - задава цвета на писалката, определен от цветовия параметър.

pascal

SetPenWidth(n); - задава ширината (дебелината) на писалката на n пиксела.

Правоъгълник (x1,y1,x2,y2); - чертае правоъгълник, зададен от координатите на срещуположните върхове (x1,y1) и (x2,y2).

FloodFill(x,y,цвят); - запълва област от същия цвят с цвета на цвета, като се започне от точката (x, y).

SetBrushColor(цвят); - задава цвета на четката, запълването на четката се простира до затворен път, чието описание следва процедурата за задаване на цвета на четката.

кръг (x,y,r); - равенстваокръжност с център в точка (x,y) с радиус r.

Елипса(x1,y1,x2,y2); - чертае елипса, зададена от описания правоъгълник с координати на противоположни върхове (x1,y1) и (x2,y2).

език

SetFontName('name'); - задава името на шрифта.

SetFontColor(цвят); - задава цвета на шрифта.

SetFontSize(sz); - задава размера на шрифта в точки.

SetFontStyle(fs); - задава стила на шрифта.

pascal

fsBoldItalic - получер курсив;

fsBoldUnderline - удебелено подчертаване

fsItalicUnderline - подчертаване на курсив;

fsBoldItalicUnderline - подчертаване с удебелен курсив

компютърни

науки

  • Програма Седма; използва GraphABC; Начална линия (200,200,400,200); LineTO(300,140); линияTO(200,200); FloodFill(300,170,clblue); ред(200,200,400,200); LineTo(300,260); LineTo(200,200); FloodFill(300,230,климат); кръг (160,200,40); FloodFill(160 200,clred); кръг (440,200,40); FloodFill(440,200,clyellow); край.
науки

var I,X,Y,D: цяло число;

графика

var I,X,Y,D: цяло число;

за i:=1 до 500 do

език

Движение на топката (без трептене)

var I,X,Y,D: цяло число;

начало X:=20; Y:=30; D:=100;

за i:=1 до 500 do

компютърни

  • използва GraphABC;
  • var I,X,Y,D,X1,X2: цяло число;
  • начало X:=20; Y:=30; D:=70; X1:=350; X2:=500; заключване; за I:=1 до X1-D do // зелената топка се движи, червената стои неподвижно
  • започвам
  • ClearWindow;
  • SetBrushColor(clGreen);
  • Елипса(X+I,Y,X+I+D,Y+D);
  • SetBrushColor(clRed);
  • Елипса(X+X1,Y,X+X1+D,Y+D);
  • Преначертайте;
  • Сън(5);
  • край;
  • за I:=X1 до X2 do // зелената топка остава на място,червената топка се движи
  • започвам
  • ClearWindow;
  • SetBrushColor(clGreen);
  • Елипса (X+X1-D,Y,X+X1,Y+D);
  • SetBrushColor(clRed);
  • Елипса(X+I,Y,X+I+D,Y+D);
  • Преначертайте;
  • Сън(5);
  • край;
  • край.
графика

1. Напишете програма, която показва топка, движеща се вертикално.

2. Напишете програма, която показва две топки на екрана: червената топка стои неподвижно, а зелената се движи хоризонтално към нея. След сблъсъка зелената топка спира на място, а червената топка започва да пада надолу (вертикално движение).

3. Напишете програма, която показва две топки на екрана: червената топка стои неподвижно, а зелената се движи хоризонтално към нея. След сблъсъка зелената топка се движи в обратна посока, а червената топка започва да пада надолу (вертикално движение).

4. Напишете програма, в която окръжността "минава" по периметъра на правоъгълника.

5. Напишете програмата "Кръгове по водата": на екрана на произволно място се появява кръг, който първо се увеличава и след това намалява, след което по същия начин се появяват други кръгове. Началните радиуси на окръжността винаги са различни