• Главная
  • Блог
  • Пользователи
  • Форум
  • Литературное творчество
  • Музыкальное творчество
  • Научно-техническое творчество
  • Художественно-прикладное творчество

Презентация "Язык программирования "Паскаль" "

Опубликовано Муравин Анатолий Александрович вкл 28.01.2015 - 22:42
Муравин Анатолий Александрович
Автор: 
Измайлов Илья Александрович

В данной презентации в справочной форме  изложены основы языка программирования "Паскаль" и показана демонстрация программ, выполненных с помощью модуля Graph. 

Скачать:

ВложениеРазмер
Файл paskal.rar1.24 МБ

Подписи к слайдам:

Паскаль Сидоровская средняя общеобразовательная школаИзмайлов Илья 11 классРуководитель – Муравин Анатолий Александрович Модуль CRT
Модуль GRAPH
Работа с файлами
Начать изучение с 1 урока
Я хочу…
Демонстрация
Модуль CRT
вернуться
ГЛАВНОЕ МЕНЮ
вернуться
МЕНЮ
Я хочу… инициализировать графикунарисовать……точку, линию…прямоугольник…круг, эллипсзадать координаты изменить цвет создать окно ввести символзвук, задержкупоработать с файламипосмотреть демонстрацию МЕНЮ
назад
1.Инициализация графики InitGraph(device,mode,’c:\bp\bgi’) – инициализация графического режима, где device (лучше присвоить 0 – произойдет автоматическое определение типа видеоадаптера и Паскаль установит самый мощный из допустимых графический режим) - тип видеоадаптера, mode(ничему не присваивать) – номер графического режима, ‘c:\bp\bgi’ – путь к драйверу графического режима. Пример:var device,mode:integer;... Initgraph(device,mode,’c:\bp\bgi’);...if GraphResult <> grOk then Halt(1); - если режим графики активирован правильно, то программа выполняется дальше в противном случае выходитClosegraph – закрытие графики и возвращение к текстовому режиму. x
Dx
y
Dy
1
2
МЕНЮ
назад
Линии PutPixel(x,y,color) – рисует точку с координатами x, y и цветом colorLine(x1,y1,x2,y2) – рисует линию от точки с координатами x1,y1 до точки x2,y2 текущим цветомLineTo(x,y) – рисует линию из текущей точки в точку x, y (при этом текущей точкой становится точка x, y) МЕНЮ
назад
Координаты MoveTo(x,y) – перемещает текущий указатель в точку x, y.MoveRel(Dx,Dy) – перемещает текущий указатель на расстояние, заданное относительными координатами от его текущей позицииGetpixel(x,y) – выдает номер цвета пикселаGetx – выдает горизонтальную координату текущего указателяGety – выдает вертикальную координату текущего указателяGetmaxX – выдает максимальную горизонтальную координату текущего указателяGetmaxY – выдает максимальную вертикальную координату текущего указателя МЕНЮ
пример как использовать fillpoly
назад
Прямоугольники Rectangle(x1,y1,x2,y2) – рисует прямоугольник, где указаны противоположные вершиныBar(x1,y1,x2,y2) – рисует залитый прямоугольникBar3D(x1,y1,x2,y2,tol,top) – рисует параллелепипед, где x1,y1,x2,y2 – координаты вершин, а tol – толщина параллелепипеда, top – признак отображения верхней грани (topon – есть, topoff – нет)Fillpoly(n,var polypoints) – рисует и штрихует многоугольник, содержащий n вершин с координатами в polypoints пример как использовать fillpoly МЕНЮ
назад
Процедура fillpoly uses Graph; const Triangle: array[1..3] of PointType = ((X: 50; Y: 100), (X: 100; Y: 100), (X: 150; Y: 150)); var Gd, Gm: Integer; begin Gd := Detect; InitGraph(Gd, Gm, ''); if GraphResult <> grOk then Halt(1); FillPoly(SizeOf(Triangle) div SizeOf(PointType), Triangle); Readln; CloseGraph; end. fi1
fi2
МЕНЮ
Примеры
назад
Круги и эллипсы Circle(x,y,r) – рисует окружность с центром x,y радиуса rArc(x,y,fi1,fi2,r) – рисует дугу окружности с центром x,y радиуса r от начального угла fi1 до угла fi2Pieslice(x,y,fi1,fi2,r) – рисует залитый сектор круга с центром x,y от угла fi1 до fi2 радиуса rEllipse(x,y,fi1,fi2,rx,ry) - рисует эллипс с центром x,y от угла fi1 до fi2, где rx и ry горизонтальная и вертикальная полуосиFillellipse(x,y,rx,ry) - рисует залитый эллипс с центром x,y, где rx и ry горизонтальная и вертикальная полуоси ry
rx
Залитый (fillellipse)
Fi1,fi2 всегда не отрицательные, поэтому в данном примере fi1=330,fi2=225
fi1
fi2
не залитый (ellipse)
дуга
назад
МЕНЮ
Эллипсы МЕНЮ
назад
Окна Setviewport(x1,y1,x2,y2,clipOn) – Устанавливает прямоугольное окно на экране. При этом точка x1,y1 становится началом координат (0;0). Clipon – отсекать выходящие за окно элементы изображения, clipoff – не отсекать.Clearviewport – очищает окно, закрашивая его в цвет фона. Таблица цветов
Стили линий
Стили заливки
МЕНЮ
назад
Управление цветом и стилем Setcolor(color) – устанавливает цвет линий, color можно писать или название цвета или его десятичный номер.Setbkcolor(color) – устанавливает цвет фонаSetlinestyle(s,1,tolsh) – установить стиль линий, s – стиль прямых отрезков, tolsh – толщина линийSetfillstyle(usor,color) – установить стиль заливки, color – цвет, usor – стильCleardevice – очищает экран, закрашивая его в цвет фона. F
15
White
Белый
E
14
Yellow
Желтый
D
13
LightMagenta
Светло-малиновый
C
12
LightRed
Светло-красный
B
11
LightCyan
Светло-бирюзовый
A
10
LightGreen
Светло-зеленый
9
9
LightBlue
Светло-голубой
8
8
DarkGray
Темно-серый
7
7
LightGray
Светло-серый
6
6
Brown
Коричневый
5
5
Magenta
Малиновый
4
4
Red
Красный
3
3
Cyan
Бирюзовый
2
2
Green
Зеленый
1
1
Blue
Синий
0
0
Black
Черный
Значение константы
Наименование константы
Цвет
вернуться
МЕНЮ
Цвета Тип задается пользователем
12
userfill
Заполнение частыми точками
11
Closedotfill
Заполнение редкими клетками
10
Widedotfill
Заполнение частой клеткой
9
Interleavefill
Заполнение косой клеткой
8
Xhatchfill
Заполнение прямой клеткой
7
Hatchfill
\\\ штриховка
6
Ltbkslashfill
\\\ штриховка толстыми линиями
5
Bkslashfill
/// штриховка толстыми линиями
4
Slashfill
/// штриховка
3
Ltslashfill
Горизонтальная штриховка
2
Linefill
Сплошная штриховка
1
Solidfill
Заполнение цветом фона
0
Emptyfill
назначение
Номер
Название
вернуться
МЕНЮ
Константы шаблона штриховки Пунктирная
3
Dashedln
Сплошная
0
Solidln
2
1
штрихпунктирная
Centerln
Точечная
Dottedln
Стиль (S)
вернуться
МЕНЮ
Нормальная толщина
1
Normwidth
3
Тройная толщина
Thickwidth
Толщина (tolsh)
Линии Начать изучение с 1 урока
Я хочу…
Модуль GRAPH
вернуться
ГЛАВНОЕ МЕНЮ
МЕНЮ
назад
Окна Window(x1,y1,x2,y2) – определяет текстовое окно на экранеClrscr – очищает активное окно и устанавливает курсор в левый верхний уголClreol – очищает строку активного окна от текущей позиции до конца строки без изменения позиции курсораtextmode(mode) – изменение вида отображения текста на экране. Цветной
Цветной
50 строк
+256
Font8x8
Черно-белый
Моно
25x80
7
Mono
Цветной
Цветной
25x80
3
CO80
Черно-белый
Цветной
25x80
2
BW80
Цветной
Цветной
25x40
1
CO40
Черно-белый
Цветной
25x40
0
BW40
Вид Вывода
Тип адаптера
Кол-во строк x символов
Значение mode
Наименованиеmode
назад
МЕНЮ
Изменение вида отображения текста на экране: процедура textmode(mode). МЕНЮ
назад
Координаты Gotoxy(x,y) – перемещает курсор в позицию с координатами x,yWherex – функция, которая возвращает x-координату текущей позиции курсораWherey – функция, которая возвращает y-координату текущей позиции курсора МЕНЮ
назад
Ввод с клавиатуры Repeat … until keypressed – проверяет нажата ли какая-нибудь клавиша, но не удаляет из буфера этот введенный символReadkey – создание паузы до нажатия клавишиC:=readkey – переменной с присваивается значение символа нажатой клавиши, а из буфера удаляется этот символ. Если ничего не было нажато, то создастся пауза до нажатия Таблица цветов
МЕНЮ
назад
Символы и цвет Ord(a) – выдает код символа а.Chr(n) – выдает значение символа по его коду.textattr:=$XY, где X – шестнадцатеричное значение цвета фона, а Y - …шрифта. textattr:=$42 означает зеленые символы на красном фоне. ЕСЛИ НЕ ОТКЛЮЧИТЬ ЗВУК ОН БУДЕТ ПРОДОЛЖАТЬ ЗВУЧАТЬ И ПОСЛЕ ОКОНЧАНИЯ РАБОТЫ ПРОГРАММЫ
МЕНЮ
назад
Звук и задержка sound(Hz) - включает внутренний динамик. Частота – Hznosound - отключает динамикdelay(time) - time – время задержки, выражается в миллисекундах, хотя на «быстрых» компьютерах задержка получается меньше (подбирается методом «научного тыка») МЕНЮ
вернуться
Работа с файлами Assign(f,’c:\.txt’) связывает переменную f (f:text) с файлом.Reset(f) Открывает файл F.Rewrite(f) Создает и открывает файл F.Append(f) Открывает существующий файл для чтения.Close(f) Закрывает файл.Eof Проверяет недостигнут ли конец файла. While not Eof(f) do Делай пока недостигнут конец файла.Erasre(f) Уничтожает файл.Rename(f,’c:\.txt’) Переименовать файл. сборниксекторобъёмтексттраектория
вернуться
Вирусов здесь нет
МЕНЮ
Демонстрация эллипскругинебопетлядвижениечеловек
Поделиться:

Нас с братом в деревню отправили к деду...

Украшаем стену пушистыми кисточками и помпончиками

О путнике

Эта весёлая планета

Человек несгибаем. В.А. Сухомлинский