У вас вопросы?
У нас ответы:) SamZan.net

Тема- Складання програм з використанням модулів CRT та GrphBC.

Работа добавлена на сайт samzan.net: 2016-03-13

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 28.4.2025

Лабораторна робота №12

Тема: Складання програм з використанням модулів CRT та GraphABC.

Мета: Відпрацювати навички використання модулів CRT та GraphABC на мові Паскаль.

Обладнання: ПЕОМ.

Порядок виконання роботи

1. Постановка задачі

2. Розробка алгоритму

3. Складання програм

4. Відладка програми

5. Виконання програми

Виконання роботи

  1.  Постановка задачі

Функція

Проміжки

2x^2-7x-1

[1..5]

  1.  Розробка алгоритму

A

початок

Mx:=(windowwidth)/(xk-xn)

X0:=windowwidth div 2

 

My:=(y0-40)/20;

Y0:=windowheight div 2

Line(0,y0,windowwidth,yo)

Xn:=-2*pi;

Xk:=2*pi

A

 

Рис.2.1 Структурна схема головної програми(початок)


str(i,s)

line(x0-round(i*mx),y0-3,x0-round(i*mx),Y0+3)

I:=1,30,1

Line(x0,0,x0,windowheight)

textout(x0+5,y0+10,'0');

 

textout(windowwidth-10,y0-15,'X')

textout(x0+10,10, 'Y')

x:=1;

dx:=0.0001

textout(x0+round(i*mx)-15,y0+10,s)

 

X<=5

textout(x0-round(i*mx),y0+10,'-'+s)

x:=x+dx;

px:=x0+round(x*mx)

I mod 2=0

 

y:=5*x-5*ln(x)-5;py:=y0-round(y*my)

line(x0+3,y0-round(i*my),x0-3,y0-round(i*my))

putpixel(px,py,8)

line(x0+3,y0+round(i*my),x0-3,y0+round(i*my))

textout(x0-20,y0-round(i*my)-15,s);

     textout(x0-20,y0+round(i*my),'-'+s)

Str(I,s)

 

конец

Рис. 2.2  Структурна схема головної  програми (закінчення)


В

А

початок

circle(350,250,150)

setbrushstyle(bsDiagCross)

floodfill(300,200,clred)

circle(300,200,15)

floodfill(350,25,clgreen)

floodfill(400,200,clred)

line(385,390,650,999)

floodfill(350,253,clmaroon)

circle(400,200,15)

 

line(315,390,50,999)

setbrushstyle(bsfDiagonal)

arc(350,320,40,0,180)

setbrushstyle(bssolid)

floodfill(150,200,clbrown)

ellipse(325,250,375,275)

floodfill(350,700,clgray)

setbrushstyle(bsbDiagonal)

ellipse(200,100,10,400)

кінець

textout(385,611,'ГОДА')

textout(375,600,'ЧЕБУРАТОР')

В

floodfill(550,200,clbrown)

setbrushstyle(bsbDiagonal)

floodfill(150,200,clbrown)

А

floodfill(350,150,clSilver)

line(350,10,390,108)

line(350,10,310,108)

ellipse(500,100,710,400)

 

Рис. 2.2  Структурна схема головної  програми

  1.  Складання програми:

uses graphABC;

var xn,xk,x,y,mx,my,dx:real;

   x0,y0,i,px,py:integer;

   s:string;

begin

x0:=windowwidth div 2;

y0:=windowheight div 2;

xn:=-2*pi;xk:=2*pi;

mx:=(windowwidth-60)/(xk-xn);

my:=(y0-40)/20;

line(0,y0,windowwidth,y0);

line(x0,0,X0,windowheight );

for i:=1 to 30 do

 begin

   line(x0+round(i*mx),y0-3,x0+round(i*mx),Y0+3);

   line(x0-round(i*mx),y0-3,x0-round(i*mx),Y0+3);

   str(i,s);

   textout(x0+round(i*mx)-15,y0+10,s);

   textout(x0-round(i*mx),y0+10,'-'+s);

   if i mod 2=0 then

    begin

     line(x0+3,y0-round(i*my),x0-3,y0-round(i*my));

     line(x0+3,y0+round(i*my),x0-3,y0+round(i*my));

     str(i,s);

     textout(x0-20,y0-round(i*my)-15,s);

     textout(x0-20,y0+round(i*my),'-'+s);

    end;

 end;

textout(x0+5,y0+10,'0');

textout(windowwidth-10,y0-15,'X');

textout(x0+10,10, 'Y');

x:=1;

dx:=0.0001;

while x<=5 do

  begin

    x:=x+dx;

    px:=x0+round(x*mx);

    y:=sqr(x)*4-7*x-1;

    py:=y0-round(y*my);

    putpixel(px,py,8);

  end;

setfontsize(12);

textout(1050,30,'y=sqr(x)*4-7*x-1');

end.

Uses GraphABC;

Begin

SetWindowSize(600,400);

line(250,100, 300,50);

lineto(350,100);

lineto(250,100);

floodfill(300,70, clgreen);

line(220,200, 300,100);

lineto(380,200);

lineto(220,200);

floodfill(300,150, clgreen);

line(200,300, 300,200);

lineto(400,300);

lineto(200,300);

floodfill(300,250, clgreen);

rectangle(290, 300,310, 320);

floodfill(300,305, clbrown);

line(0, 300, 100, 350);

lineto(200, 320);

lineto(400, 320);

lineto(600, 370);

lineto(600,400);

lineto(0,400);

lineto(0,300);

end.

 Після запуску програма не видала помилок та відразу почала виковатись.

  1.  Результат роботі програми

Рис 4.1 Графіки функції

Рис 4.2 Ёлка

Висновок: Відпрацювала навички використання модулів CRT та GraphABC на мові Паскаль.




1. на тему- Зоогигиенические требования к выращиванию свиноматок
2. . ДН~да~ы генетикалы~ а~парат 1
3. Упражнения по теме «Определение понятий
4. Специфика философского знания
5. Тема 3 Анализ формы 3
6.  20 г. ВЫПУСКНАЯ КВАЛИФИКАЦИОННАЯ РАБОТА ДИПЛОМНАЯ РАБОТА БАКАЛАВРСКАЯ РАБОТА МАГИСТЕРСК
7. Основные вопросы, связанные с расчетом электродвигателя, привода и редуктора
8. Юридические факты
9. Проект силового трёхфазного трансформатора мощностью 4300 кВА
10. Автобиографическая основа Истории моего современника ВГ Короленко