kopilkaurokov.ru - сайт для учителей

Создайте Ваш сайт учителя Курсы ПК и ППК Видеоуроки Олимпиады Вебинары для учителей

Графика в ABCPasckal. Урок №2

Нажмите, чтобы узнать подробности

В модуле Графика в Pascal ABC рисование осуществляется в специальном графмческом окне, возможность рисовать в нескольких окнах отсутствует, что однако не мешает создавать сложные рисунки, анимацию,  строить сложные математические модели. Кроме того, в модуле определены простейшие события мыши и клавиатуры, позволяющие создавать элементарные событийные приложения.

Просмотр содержимого документа
«Графика в ABCPasckal. Урок №2»

Серогодская Н.И. ГБОУ школа №118 ЮЗАО Графический режим Учитель информатики ГБОУ школа №118 ЮЗАО Серогодская Н.И. Г.Москва

Серогодская Н.И. ГБОУ школа №118 ЮЗАО

Графический режим

Учитель информатики ГБОУ школа №118

ЮЗАО

Серогодская Н.И.

Г.Москва

Серогодская Н.И. ГБОУ СОШ №1 корпус 2 Урок №2

Серогодская Н.И. ГБОУ СОШ №1 корпус 2

Урок №2

Серогодская Н.И. ГБОУ СОШ №1 корпус 2 ЦЕЛИ Обучающие: познакомить учащихся с программной средой Pascal ABC, со структурой программы; сформировать у учащихся первичные знания по применению изученного материала. Развивающие: учить анализировать, обобщать и систематизировать; Воспитательные: развивать информационную культуру учащихся, способность к самостоятельной и коллективной деятельности, рефлексию.

Серогодская Н.И. ГБОУ СОШ №1 корпус 2

ЦЕЛИ

Обучающие:

познакомить учащихся с программной средой Pascal ABC, со структурой программы;

сформировать у учащихся первичные знания по применению изученного материала.

Развивающие:

учить анализировать, обобщать и систематизировать;

Воспитательные:

развивать информационную культуру учащихся, способность к самостоятельной и коллективной деятельности, рефлексию.

Серогодская Н.И. ГБОУ СОШ №1 корпус 2 Графический режим ABCPascal   задачи Учащиеся должны знать: • основные команды в среде GraphPascal ABC; • правила оформления и работы программы; Учащиеся должны уметь: • разрабатывать программы рисования графических объектов; • производить необходимые действия с программой; • разрабатывать процедуры с параметрами и без них для рисования объектов; • разрабатывать программы на основе типовых конструкций алгоритма;

Серогодская Н.И. ГБОУ СОШ №1 корпус 2

Графический режим ABCPascal задачи

  • Учащиеся должны знать:
  • • основные команды в среде GraphPascal ABC;
  • • правила оформления и работы программы;
  • Учащиеся должны уметь:
  • • разрабатывать программы рисования графических объектов;
  • • производить необходимые действия с программой;
  • • разрабатывать процедуры с параметрами и без них для рисования объектов;
  • • разрабатывать программы на основе типовых конструкций алгоритма;

Серогодская Н.И. ГБОУ СОШ №1 корпус 2 Составить программу  для построения изображения программа

Серогодская Н.И. ГБОУ СОШ №1 корпус 2

Составить программу для построения изображения

программа

Серогодская Н.И. ГБОУ СОШ №1 корпус 2 программа program seventh;  uses graphabc;  begin  line (200,200,400,200); lineto (300,140); lineto (200,200);  floodfill (300,170,clblue);  line (200,200,400,200); lineto (300,260); lineto (200,200);  floodfill (300,230,cllime);  circle (160,200,40);  floodfill (160,200,clred);  circle (440,200,40);  floodfill (440,200,clyellow);  end.

Серогодская Н.И. ГБОУ СОШ №1 корпус 2

программа

program seventh; uses graphabc; begin line (200,200,400,200); lineto (300,140); lineto (200,200); floodfill (300,170,clblue); line (200,200,400,200); lineto (300,260); lineto (200,200); floodfill (300,230,cllime); circle (160,200,40); floodfill (160,200,clred); circle (440,200,40); floodfill (440,200,clyellow); end.

Серогодская Н.И. ГБОУ СОШ №1 корпус 2 Вывод текста в графическое окно TextOut(x,y,’строка’); - выводит строку текста в позицию (x,y) (точка (x,y) задает верхний левый угол прямоугольника, который будет содержать текст). Program text; uses GraphABC; begin TextOut(100,30,'Квадрат');  Rectangle(50,50,200,200);  FloodFill(55,55,clBlue); end.

Серогодская Н.И. ГБОУ СОШ №1 корпус 2

Вывод текста в графическое окно

TextOut(x,y,’строка’); - выводит строку текста в позицию (x,y) (точка (x,y) задает верхний левый угол прямоугольника, который будет содержать текст).

Program text;

uses GraphABC;

begin

TextOut(100,30,'Квадрат');

Rectangle(50,50,200,200);

FloodFill(55,55,clBlue);

end.

Серогодская Н.И. ГБОУ СОШ №1 корпус 2 Действия со шрифтом SetFontName(‘name’) -  устанавливает       наименование шрифта. SetFontColor(color ) - устанавливает цвет      шрифта. SetFontSize(sz)  - устанавливает  размер      шрифта  в пунктах. SetFontStyle(fs) - устанавливает  стиль      шрифта.

Серогодская Н.И. ГБОУ СОШ №1 корпус 2

Действия со шрифтом

SetFontName(‘name’) - устанавливает наименование шрифта.

SetFontColor(color ) - устанавливает цвет шрифта.

SetFontSize(sz) - устанавливает  размер шрифта в пунктах.

SetFontStyle(fs) - устанавливает  стиль шрифта.

Серогодская Н.И. ГБОУ СОШ №1 корпус 2 Название шрифта По умолчанию установлен шрифт, имеющий наименование MS Sans Serif. Наиболее распространенные шрифты – это Times, Arial и Courier New .  Наименование шрифта можно набирать без учета регистра. Пример:  SetFontName(‘Times’);

Серогодская Н.И. ГБОУ СОШ №1 корпус 2

Название шрифта

По умолчанию установлен шрифт, имеющий наименование MS Sans Serif.

Наиболее распространенные шрифты – это Times, Arial и Courier New .

Наименование шрифта можно набирать без учета регистра.

Пример:

SetFontName(‘Times’);

Серогодская Н.И. ГБОУ СОШ №1 корпус 2 Стиль шрифта Задается именованными константами: fsNormal – обычный; fsBold – жирный; fsItalic – наклонный; fsBoldItalic – жирный наклонный; fsUnderline – подчеркнутый; fsBoldUnderline – жирный подчеркнутый; fsItalicUnderline – наклонный подчеркнутый; fsBoldItalicUnderline – жирный наклонный      подчеркнутый.

Серогодская Н.И. ГБОУ СОШ №1 корпус 2

Стиль шрифта

Задается именованными константами:

fsNormal – обычный;

fsBold – жирный;

fsItalic – наклонный;

fsBoldItalic – жирный наклонный;

fsUnderline – подчеркнутый;

fsBoldUnderline – жирный подчеркнутый;

fsItalicUnderline – наклонный подчеркнутый;

fsBoldItalicUnderline – жирный наклонный подчеркнутый.

Серогодская Н.И. ГБОУ СОШ №1 корпус 2 Например: Program text; uses GraphABC; begin  SetFontName(‘Arial’);  SetFontSize(20);  SetFontColor(clRed);  TextOut(10,10,‘обычный');  SetFontStyle(fsItalic);  SetFontColor(clBlue);  TextOut(10,50,‘наклонный');  SetFontStyle(fsBold);  SetFontColor(Random(16777215));  TextOut(10,90,‘жирный');  SetFontStyle(fsUnderline);  SetFontColor(Random(16777215));  TextOut(10,130,‘подчеркнутый');  SetFontStyle(fsBoldItalicUnderline);  SetFontColor(Random(16777215));  TextOut(10,170,’жирный, наклонный, подчеркнутый'); end.

Серогодская Н.И. ГБОУ СОШ №1 корпус 2

Например:

Program text;

uses GraphABC;

begin

SetFontName(‘Arial’);

SetFontSize(20);

SetFontColor(clRed);

TextOut(10,10,‘обычный');

SetFontStyle(fsItalic);

SetFontColor(clBlue);

TextOut(10,50,‘наклонный');

SetFontStyle(fsBold);

SetFontColor(Random(16777215));

TextOut(10,90,‘жирный');

SetFontStyle(fsUnderline);

SetFontColor(Random(16777215));

TextOut(10,130,‘подчеркнутый');

SetFontStyle(fsBoldItalicUnderline);

SetFontColor(Random(16777215));

TextOut(10,170,’жирный, наклонный, подчеркнутый');

end.

Серогодская Н.И. ГБОУ СОШ №1 корпус 2 Используемые цвета Цвет можно задавать и с помощью функции  RGB(r,g,b)  где r, g и b – целые числа в диапазоне от 0 до 255. Функция возвращает целое значение, являющееся кодом цвета, который содержит красную, зеленую и синюю составляющие с интенсивностями r, g и b соответственно (0 соответствует минимальной интенсивности, 255 – максимальной).  RGB(255,255,255)  – соответствует белому цвету. RGB(0,0,0)  – соответствует черному цвету.

Серогодская Н.И. ГБОУ СОШ №1 корпус 2

Используемые цвета

Цвет можно задавать и с помощью функции RGB(r,g,b) где r, g и b – целые числа в диапазоне от 0 до 255.

Функция возвращает целое значение, являющееся кодом цвета, который содержит красную, зеленую и синюю составляющие с интенсивностями r, g и b соответственно (0 соответствует минимальной интенсивности, 255 – максимальной).

RGB(255,255,255) – соответствует белому цвету.

RGB(0,0,0) – соответствует черному цвету.

Серогодская Н.И. ГБОУ СОШ №1 корпус 2 Например: Program color; uses GraphABC; begin Clearwindow(rgb(200,150,250)); TextOut(93,30,' Квадрат '); Rectangle(50,50,200,200); FloodFill(55,55,clRed); TextOut(275,30,' Эллипс'); Ellipse(250,50,350,200); FloodFill(250+50,50+50,clYellow); end.

Серогодская Н.И. ГБОУ СОШ №1 корпус 2

Например:

Program color;

uses GraphABC;

begin

Clearwindow(rgb(200,150,250));

TextOut(93,30,' Квадрат ');

Rectangle(50,50,200,200);

FloodFill(55,55,clRed);

TextOut(275,30,' Эллипс');

Ellipse(250,50,350,200); FloodFill(250+50,50+50,clYellow);

end.

Серогодская Н.И. ГБОУ СОШ №1 корпус 2 Вывод текста в графическое окно Текст можно вывести с помощью операторов  Gotoxy(x,y)  и  Write(‘текст’) , подключив дополнительно модуль  Crt . Program text2; uses Crt ,GraphABC; begin  clrscr;  hidecursor; {скрывает текстовый курсор}  gotoXY(12,3);  write(‘Квадрат');  Rectangle(50,50,200,200);  FloodFill(55,55,clYellow); end.

Серогодская Н.И. ГБОУ СОШ №1 корпус 2

Вывод текста в графическое окно

Текст можно вывести с помощью операторов Gotoxy(x,y) и Write(‘текст’) , подключив дополнительно модуль Crt .

Program text2;

uses Crt ,GraphABC;

begin

clrscr;

hidecursor; {скрывает текстовый курсор}

gotoXY(12,3);

write(‘Квадрат');

Rectangle(50,50,200,200);

FloodFill(55,55,clYellow);

end.

Серогодская Н.И. ГБОУ СОШ №1 корпус 2 Список литературы Федоренко Ю.  Алгоритмы и программы на Турбо Паскале .    Фаронов В.В.  Turbo Pascal 7.0. Начальный курс .   - Нолидж, 1998. -620 с.   Грызлов В.И., Грызлова Т.П.  Турбо Паскаль 7.0 .   - М.:

Серогодская Н.И. ГБОУ СОШ №1 корпус 2

Список литературы

  • Федоренко Ю.  Алгоритмы и программы на Турбо Паскале .
  • Фаронов В.В.  Turbo Pascal 7.0. Начальный курс .  - Нолидж, 1998. -620 с.
  • Грызлов В.И., Грызлова Т.П.  Турбо Паскаль 7.0 .  - М.: "ДМК", 2000. - 416 с.
  • Зуев Е.А.  Язык программирования Turbo Pascal 6.0 .  - М.: Унитех, 1992. - 298с.,ил.
  • Зуев Е.А.  Turbo Pascal. Практическое программирование

Серогодская Н.И. ГБОУ СОШ №1 корпус 2 Спасибо за внимание!

Серогодская Н.И. ГБОУ СОШ №1 корпус 2

Спасибо за внимание!


Получите в подарок сайт учителя

Предмет: Информатика

Категория: Презентации

Целевая аудитория: 9 класс

Скачать
Графика в ABCPasckal. Урок №2

Автор: Серогодская Наталья Ивановна

Дата: 18.03.2016

Номер свидетельства: 307218

Похожие файлы

object(ArrayObject)#851 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(43) "Графика в ABCPasckal. Урок №2"
    ["seo_title"] => string(29) "grafika-v-abcpasckal-urok-2-1"
    ["file_id"] => string(6) "307219"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(11) "presentacii"
    ["date"] => string(10) "1458291911"
  }
}
object(ArrayObject)#873 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(28) "Графика в ABCPasckal"
    ["seo_title"] => string(20) "grafika-v-abcpasckal"
    ["file_id"] => string(6) "307214"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(11) "presentacii"
    ["date"] => string(10) "1458291176"
  }
}
object(ArrayObject)#851 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(28) "Графика в ABCPasckal"
    ["seo_title"] => string(22) "grafika-v-abcpasckal-1"
    ["file_id"] => string(6) "307215"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(11) "presentacii"
    ["date"] => string(10) "1458291184"
  }
}

ПОЛУЧИТЕ БЕСПЛАТНО!!!
Личный сайт учителя
Получите в подарок сайт учителя


Видеоуроки для учителей

Курсы для учителей

ПОЛУЧИТЕ СВИДЕТЕЛЬСТВО МГНОВЕННО

Добавить свою работу

* Свидетельство о публикации выдается БЕСПЛАТНО, СРАЗУ же после добавления Вами Вашей работы на сайт

Удобный поиск материалов для учителей

Ваш личный кабинет
Проверка свидетельства