Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Другие методич. материалы / 9-сынып Паскль, графика, есептер мысалы
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

9-сынып Паскль, графика, есептер мысалы

библиотека
материалов

Примеры программы

  1. Начертить на экране 15 окружностей уменьшающегося радиуса, чтобы радиус

был в 10 раз больше номера окружности. Результат выполнения программы

program okr;hello_html_235ef338.png

uses graphabc;

var t:integer;

begin

for t:=15 downto 1 do

circle(300,220,t*10);

end.

Пример графической программы:




  1. Пример программы, рисующей окружность в квадрате
    program graf_1;

    uses graphABC;
    begin
      SetWindowSize(300,300);     //установка размера окна
      SetPenColor(clred);              // установка цвета линий
      SetPenStyle(psdash);           // установка стиля линий
      SetPenWidth(10);                // установка толщины линий
      Rectangle(50,50,250,250);   // рисование прямоугольника
      Circle(150,150,50);              // рисование окружности
    end.
    http://3.bp.blogspot.com/-8i4aG95M7vw/UM1ujqC_TLI/AAAAAAAAAPk/4I4mIyFvSXA/s1600/kvadrat_krug_punktir.gif




3. Программа, рисующая фигурку:

Program Figurka;hello_html_1316de66.png

uses GraphABC;

begin

SetWindowSize(500,500); //задаѐм размер графического окна

SetPenWidth(3); //устанавливаем стиль пера

SetBrushColor(clFuchsia); //устанавливаем цвет кисти

Circle(225,160,50); //рисуем окружность

Line(225,160,225,180); //рисуем линии

Line(210,190,240,190);

Line(225,210,225,250);

Line(100,100,200,260);

Line(200,260,400,260);

Line(210,350,200,480);

Line(240,350,250,480);

Rectangle(200,230,250,350); //рисуем прямоугольник

SetBrushColor(clLime);

FillRect(0,480,500,500); //рисуем закрашенный прямоугольник

SetBrushColor(clWhite);

Circle(205,150,10);

Circle(245,150,10);

end.





4: Нарисовать такую фигуруhello_html_75776a52.png

Program pr;

uses GraphABC;

Begin

SetWindowSize(600,400);

Line (200,200,400,200);

Line (200,200,300,100);

line (300,100,400,200);

FloodFill (300,170,clblue);

Line (200,200,400,200);

Line (200,200,300,300);

Line (300,300,400,200);

FloodFill (300,230,cllime);

circle (160,200,40);

FloodFill (160,200,clred);

circle (440,200,40);

FloodFill (440,200,clyellow);

End.



Самостоятельно

Задание 1

Используя конструкцию цикла со счетчиком, самостоятельно составьте программу рисования детской игрушечной пирамидки (вид сбоку). hello_html_m50cbc366.png





Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Автор
Дата добавления 25.02.2016
Раздел Информатика
Подраздел Другие методич. материалы
Номер материала ДВ-483289
Получить свидетельство о публикации
Похожие материалы

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