Презентация, доклад на тему Урок информатики в 9 классе Графические возможности языка программирования Pascal ABC

Содержание

Язык программирования Паскаль был разработан в 1967 г. профессором Никлаусом Виртом.Язык назван в честь французского учёного Блеза Паскаля, внесшего вклад в развитие средств вычислительной техники.Язык программирования Pascal

Слайд 1Графические возможности языка программирования Pascal ABC
Презентацию выполнила:
учитель информатики
МБОУ-Гулёвской ООШ
Клинцовского

района Брянской области
Антоненко Мария Владимировна
Графические возможности языка программирования Pascal ABCПрезентацию выполнила: учитель информатики МБОУ-Гулёвской ООШ Клинцовского района Брянской области Антоненко Мария

Слайд 2Язык программирования Паскаль был разработан в 1967 г. профессором

Никлаусом Виртом.

Язык назван в честь французского учёного Блеза Паскаля, внесшего
вклад в развитие средств вычислительной техники.

Язык программирования Pascal

Язык программирования Паскаль был разработан в 1967 г. профессором Никлаусом Виртом.Язык назван в честь французского учёного

Слайд 3Любой естественный язык (русский, английский) состоит из символов, слов, словосочетаний и

предложений.
В любом языке программирования имеются аналогичные структурные элементы: символы, слова, выражения и операторы (предложения).
Символы языка программирования – это элементарные знаки, используемые при составлении любых текстов. Набор таких символов называют АЛФАВИТОМ ЯЗЫКА.

Основные средства языка

Любой естественный язык (русский, английский) состоит из символов, слов, словосочетаний и предложений. В любом языке программирования имеются

Слайд 4Алфавит языка Pascal
1. Все латинские прописные и строчные

буквы (A-Z, a-z)
2. Арабские цифры 0-9
3. Знаки + - * / \ < > ^, . ; : () _ и др.
4. Служебные слова
Алфавит языка Pascal 1. Все латинские прописные и строчные буквы (A-Z, a-z) 2. Арабские

Слайд 5program - имя_программы;
(Название программы пишется слитно либо через «_»)

Uses (подключение модулей)
Var

(Раздел описания переменных)

Begin (Тело программы)

end. (конец программы)


Структура программы

program - имя_программы;(Название программы пишется слитно либо через «_»)Uses (подключение модулей)Var (Раздел описания переменных)Begin

Слайд 6 Любой модуль подключается после заголовка программы


Program grafika;
Uses graphABC;
Графический модуль Uses GraphABC.

Любой модуль подключается после заголовка программыProgram grafika;Uses graphABC;Графический модуль Uses GraphABC.

Слайд 7SetWindowSize

Program grafika;
Uses graphABC;
Begin
SetWindowSize (600,240);
End.



Установка размера окна

SetWindowSizeProgram grafika;Uses graphABC;BeginSetWindowSize (600,240);End.Установка размера окна

Слайд 8 clBlack – черный clPurple – фиолетовый clWhite – белый clRed –

красный clGreen – зеленый
clLime – ярко-зеленый clBrown – коричневый clBlue – синий clYellow – желтый    clOlive – оливковый clFuchsia – сиреневый clGray – серый

Цвет пера SetPenColor

Program grafika;
Uses graphABC;
Begin
SetWindowSize (600,240);
SetPenColor (clBlack );
SetBrushColor (clBlue);

End.

Цвет кисти SetBrushColor

clBlack – черный clPurple – фиолетовый clWhite – белый clRed – красный clGreen

Слайд 9Прямоугольник rectangle (регтэнгл)
Program grafika;
Uses graphABC;
Begin
SetWindowSize (600,240);
SetPenColor (clBlack );
rectangle(40,80,200,160);
End.

Прямоугольник rectangle (регтэнгл)Program grafika;Uses graphABC;BeginSetWindowSize (600,240);SetPenColor (clBlack );rectangle(40,80,200,160);End.

Слайд 10Цвет пера и кисти
Program grafika;
Uses graphABC;
Begin
SetWindowSize (600,240);
SetPenColor (clBlack );
SetBrushColor (clBlue);
rectangle(40,80,200,160);
End.

Цвет пера и кистиProgram grafika;Uses graphABC;BeginSetWindowSize (600,240);SetPenColor (clBlack );SetBrushColor (clBlue);rectangle(40,80,200,160);End.

Слайд 11Круг circle
Program grafika;
Uses graphABC;
Begin
SetWindowSize (600,240);
SetPenColor (clRed );
Circle (300,120,40);
End.

Круг circleProgram grafika;Uses graphABC;BeginSetWindowSize (600,240);SetPenColor (clRed );Circle (300,120,40);End.

Слайд 12Круг circle (сэкл)
Program grafika;
Uses graphABC;
Begin
SetWindowSize (600,240);
SetPenColor (clRed );
SetBrushColor (clYellow );
Circle (300,120,40);
End.

Круг circle (сэкл)Program grafika;Uses graphABC;BeginSetWindowSize (600,240);SetPenColor (clRed );SetBrushColor (clYellow );Circle (300,120,40);End.

Слайд 13Program grafika;
uses graphABC;
begin
setWindowSize (600,200);
SetPenColor (clBlack );
SetBrushColor

(clBlue);
rectangle(40,80,200,160);
SetPenColor (clRed );
SetBrushColor (clYellow );
Circle (300,120,40);

end.
Program grafika; uses graphABC; begin setWindowSize (600,200); SetPenColor (clBlack ); SetBrushColor (clBlue); rectangle(40,80,200,160); SetPenColor (clRed ); SetBrushColor

Слайд 14Светофор
Program Svetofor;
uses GraphABC;
begin
setWindowSize(200,240);

SetPenColor(clBlack);
setBrushColor(clGray);
Rectangle(60,20,140,220);
setBrushColor(clRed);
Circle(100,60,28);
setBrushColor(clYellow);
Circle(100,120,28);
setBrushColor(clLime);
Circle(100,180,28);
end.
СветофорProgram Svetofor;uses GraphABC;begin setWindowSize(200,240); SetPenColor(clBlack); setBrushColor(clGray); Rectangle(60,20,140,220); setBrushColor(clRed); Circle(100,60,28); setBrushColor(clYellow);

Слайд 15Эллипс eLLipse
Program grafika;
Uses graphABC;
Begin
SetWindowSize (600,240);
SetPenColor (clRed );
SetBrushColor (clYellow );
eLLipse (100, 80,540,160);
End.

Эллипс eLLipseProgram grafika;Uses graphABC;BeginSetWindowSize (600,240);SetPenColor (clRed );SetBrushColor (clYellow ); eLLipse (100, 80,540,160);End.

Слайд 16Толщина линии
setPenWidth
Линия Line
Program grafika;
Uses graphABC;
Begin
SetWindowSize (600,240);
SetPenColor (clRed );
Line (80, 40,500,40);
End.
Program grafika;
Uses graphABC;
Begin
SetWindowSize

(600,240);
SetPenColor (clRed );
setPenWidth (5);
Line (80, 40,500,40);
End.
Толщина линииsetPenWidthЛиния LineProgram grafika;Uses graphABC;BeginSetWindowSize (600,240);SetPenColor (clRed );Line (80, 40,500,40);End.Program grafika;Uses graphABC;BeginSetWindowSize (600,240);SetPenColor (clRed );setPenWidth (5);Line (80,

Слайд 17Пирамидка

Пирамидка

Слайд 18Стили пера и кисти
Графические возможности языка программирования Pascal ABC

Стили пера и кистиГрафические возможности языка программирования Pascal ABC

Слайд 19Стиль цвета кисти
SetBrushStyle
Устанавливает стиль кисти, задаваемый параметром bs: integer;

Стиль цвета кистиSetBrushStyleУстанавливает стиль кисти, задаваемый параметром bs: integer;

Слайд 20SetBrushStyle (bsDiagCross )
Program shrihovka;
Uses GraphABC;

var
bs: integer;

Begin
SetWindowSize(320,340);
SetPenColor(clBlue);
setBrushColor (clRed);
SetBrushStyle(bsDiagCross);
SetPenWidth(4);
Circle(140,80,60);

end.

SetBrushStyle (bsDiagCross ) Program shrihovka;Uses GraphABC;varbs: integer;BeginSetWindowSize(320,340);SetPenColor(clBlue);setBrushColor (clRed);SetBrushStyle(bsDiagCross);SetPenWidth(4);Circle(140,80,60);end.

Слайд 21SetBrushStyle (bsBDiagonal )
Program shrihovka;
Uses GraphABC;

var
bs: integer;

Begin
SetWindowSize(320,340);
SetPenColor(clBlue);
setBrushColor (clBlue);
SetBrushStyle (bsCross);
SetPenWidth(4);
Circle(140,80,60);

end.

SetBrushStyle (bsBDiagonal )Program shrihovka;Uses GraphABC;varbs: integer;BeginSetWindowSize(320,340);SetPenColor(clBlue);setBrushColor (clBlue);SetBrushStyle (bsCross);SetPenWidth(4);Circle(140,80,60);end.

Слайд 22Ракетка
Program raketka;
Uses GraphABC;

var
bs: integer;

Begin
SetWindowSize(320,340);
SetPenColor(clBlue);
setBrushColor (clBlue);
SetBrushStyle (bsCross);
SetPenWidth(4);
Circle(140,80,60);
line (140,140,140,300);

end.

РакеткаProgram raketka;Uses GraphABC;varbs: integer;BeginSetWindowSize(320,340);SetPenColor(clBlue);setBrushColor (clBlue);SetBrushStyle (bsCross);SetPenWidth(4);Circle(140,80,60);line (140,140,140,300);end.

Слайд 23SetPenStyle
Устанавливает стиль пера, задаваемый параметром (ps: integer);
Program punktir;
Uses GraphABC;

var
ps: integer;
Begin
SetWindowSize(320,340);
SetPenColor(clBlue);
SetPenStyle

(psDash);
rectangle(40,80,200,160);

end.
SetPenStyleУстанавливает стиль пера, задаваемый параметром (ps: integer); Program punktir;Uses GraphABC;varps: integer;BeginSetWindowSize(320,340);SetPenColor(clBlue);SetPenStyle (psDash);rectangle(40,80,200,160);end.

Слайд 24SetPenStyle (psDashDot); 
Program punktir;
Uses GraphABC;
var
ps: integer;

Begin
SetWindowSize(320,340);
SetPenColor(clBlue);
SetPenStyle (psDashDot);
rectangle(40,80,200,160);


end.

SetPenStyle (psDashDot); Program punktir;Uses GraphABC;varps: integer;BeginSetWindowSize(320,340);SetPenColor(clBlue);SetPenStyle (psDashDot);rectangle(40,80,200,160);end.

Слайд 25Написать программу
Эмблема олимпиады

Написать программуЭмблема олимпиады

Слайд 26Program Olimpiada;
Uses GraphABC;
Begin
SetWindowSize(520,340);
SetPenColor(clBlue);
SetPenWidth(4);
Circle(140,200,60);
SetPenColor(clBlack);
Circle(280,200,60);
SetPenColor(clRed);
Circle(420,200,60);
SetPenColor(clYellow);
Circle(220,240,60);
SetPenColor(clGreen);
Circle(340,240,60);
end.

Program Olimpiada;Uses GraphABC;BeginSetWindowSize(520,340);SetPenColor(clBlue);SetPenWidth(4);Circle(140,200,60);SetPenColor(clBlack);Circle(280,200,60);SetPenColor(clRed);Circle(420,200,60);SetPenColor(clYellow);Circle(220,240,60);SetPenColor(clGreen);Circle(340,240,60);end.

Слайд 27Program Olimpiada;
Uses GraphABC;
var
bs: integer;
Begin
SetWindowSize(520,340);
SetPenColor(clBlue);
SetBrushStyle (bsClear);
SetPenWidth(4);
Circle(140,200,60);
SetPenColor(clBlack);
Circle(280,200,60);
SetPenColor(clRed);
Circle(420,200,60);
SetPenColor(clYellow);
Circle(220,240,60);
SetPenColor(clGreen);
Circle(340,240,60);
end.

Program Olimpiada;Uses GraphABC;varbs: integer;BeginSetWindowSize(520,340);SetPenColor(clBlue);SetBrushStyle (bsClear);SetPenWidth(4);Circle(140,200,60);SetPenColor(clBlack);Circle(280,200,60);SetPenColor(clRed);Circle(420,200,60);SetPenColor(clYellow);Circle(220,240,60);SetPenColor(clGreen);Circle(340,240,60);end.

Слайд 28Цвет фона окна СlearWindow
Program zakrash;
Uses GraphAbc;

Begin
SetWindowSize (500,300);
clearWindow (clSkyBlue);

End.

Цвет фона окна СlearWindow Program zakrash;Uses GraphAbc;BeginSetWindowSize (500,300);clearWindow (clSkyBlue);End.

Слайд 29Замкнутые области
Program treugolnik;
Uses GraphAbc;
Begin
SetWindowSize (500,500);
SetPenWidth(5); //Установка толщины пера
SetPenColor

(clRed) ; //Установка красного цвета пера
Line(150,400,300,100); //Рисование отрезка красным цветом
SetPenColor (clGreen); //Установка зеленого цвета пера
Line(300,100,450,400); //Рисование отрезка зеленым цветом
SetPenColor (clBlue); //Установка синего цвета пера
Line(450,400,150,400); //Рисование отрезка синим цветом
End.
Замкнутые областиProgram treugolnik;Uses GraphAbc;BeginSetWindowSize (500,500);SetPenWidth(5); //Установка толщины пераSetPenColor (clRed) ; //Установка красного цвета

Слайд 30Заливка замкнутых областей кистью FLoodFiLL
Program treugolnik;
Uses GraphAbc;

Begin
SetWindowSize (500,500);
SetPenWidth(5);
SetPenColor (clRed);
Line(150,400,300,100);
SetPenColor

(clGreen);
Line(300,100,450,400);
SetPenColor (clBlue);
Line(450,400,150,400);
FloodFill(350,300, clYellow);

End.
Заливка замкнутых областей кистью FLoodFiLLProgram treugolnik;Uses GraphAbc;BeginSetWindowSize (500,500);SetPenWidth(5); SetPenColor (clRed);Line(150,400,300,100); SetPenColor (clGreen); Line(300,100,450,400); SetPenColor (clBlue);

Слайд 31Написать программу изображения паровозика, используя графические возможности языка программирования Pascal

Домашнее задание:

Написать программу изображения паровозика, используя графические возможности языка программирования PascalДомашнее задание:
Скачать презентацию

Похожие презентации

Презентация по информатике и ИКТ Подготовка к ЕГЭ по теме Электронные таблицы и Базы данных Презентация по информатике и ИКТ Подготовка к ЕГЭ по теме Электронные таблицы и Базы данных 212
Презентация Информационный объём сообщения. Решение 13 задачи ЕГЭ Презентация Информационный объём сообщения. Решение 13 задачи ЕГЭ 356
Презентация учащихся 11 А класса Запорожцева Дмитрия и Задоян Дианы на тему YouTube Презентация учащихся 11 А класса Запорожцева Дмитрия и Задоян Дианы на тему YouTube 175
Робототехнические системы Робототехнические системы 619
Проект Шахматы в реальной жизни Проект Шахматы в реальной жизни 459
Презентация по ИKT на тему Графический редактор Презентация по ИKT на тему Графический редактор 179

Что такое shareslide.ru?

Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.

Для правообладателей

Яндекс.Метрика

Обратная связь

Email: Нажмите что бы посмотреть