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

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

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

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

program okr;

uses graphabc;

var t:integer;

begin

for t:=15 downto 1 do

circle(300,220,t*10);

end.

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

2. Пример программы, рисующей окружность в квадрате
   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.

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

Program Figurka;

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: Нарисовать такую фигуру

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

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