Сабақ тақырыбы Есептеу эксперименті Сабақтың тақырыбы


Компьютердегі тәжірибелік жұмыс



жүктеу 2,85 Mb.
бет6/6
Дата19.11.2018
өлшемі2,85 Mb.
#21393
түріСабақ
1   2   3   4   5   6

Компьютердегі тәжірибелік жұмыс.
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.

Program Domik;

uses Graphabc; //подключение модуля GraphABC



begin

SetWindowWidth(800); //ширина окна программы

SetWindowHeight(600); //высота окна программы

SetPenWidth(3); //толщина пера

SetFontSize(18); //размер шрифта

SetFontColor(clRed); //цвет шрифта

SetFontStyle(fsBold); //жирный стиль шрифта

TextOut(100,100,'Домик'); //текст

Rectangle(200, 300, 600,600); //дом

Circle(400,225, 40); //круг

SetBrushColor(clAqua); //цвет заливки окна

FillRect(300, 400,500,500); //процедура заливки окна

rectangle(300,400,500,500); //окно

Line(400,400,400,500); // окно

Line(300,450,500,450); //окно

Line(200,300,400,150); //крыша

Line(400,150,600,300); //крыша

Line(480,210,480,160); //труба

Line(480,160,520,160); //труба

Line(520,160,520,240); //труба

end.


Program domik_2;

uses GraphABC;

var i: integer;

st:string;

begin


SetWindowSize(500, 500);

SetPenWidth(2); {Коричневая стена}

SetBrushColor(clBrown);

FillRect(100,50,150,100);

SetPenColor(clBrown); {Крыша желтого цвета}

Line(125,25,80,75);

Line(125,25,170,75);

FloodFill(125, 30,clYellow);

SetPenColor(clGreen); {Крона дерева}

SetBrushColor(clGreen);

Ellipse(100,150,150,200);

SetBrushColor(clBrown); {ствол дерева}



FillRect(120,200,130,230);

end.
жүктеу 2,85 Mb.

Достарыңызбен бөлісу:
1   2   3   4   5   6




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау