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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 6.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. Аналіз основних показників виробничогосподарської діяльності ТзОВ ldquo;Імперія жирівrdquo; тис
2. Управление деловой карьерой персонала
3. Курсовая работа- Понятие и виды финансово-правовых норм
4. совместно используемые ресурсы взаимозависимость заданий различия в целях различия в восприятиях и ценно
5. ю по счету конференцию посвященную модернизации главной темой которой стала
6. Физикохимические свойства нефтепродуктов Основные физикохимические свойства нефтепродуктов оказываю
7. тема Сложные системы это составной объект элементы которого можно рассматривать как отдельные системы
8. . это должно быть имущественное вознаграждение
9. пора величайшей депрессии
10. Людовик I Благочестивый