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

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





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


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