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

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

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Лабораторна робота №12
Тема: Складання програм з використанням модулів CRT та GraphABC.
Мета: Відпрацювати навички використання модулів CRT та GraphABC на мові Паскаль.
Обладнання: ПЕОМ.
Порядок виконання роботи
1. Постановка задачі
2. Розробка алгоритму
3. Складання програм
4. Відладка програми
5. Виконання програми
Виконання роботи
Функція |
Проміжки |
2x^2-7x-1 |
[1..5] |
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 Структурна схема головної програми
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.
Після запуску програма не видала помилок та відразу почала виковатись.
Рис 4.1 Графіки функції
Рис 4.2 Ёлка
Висновок: Відпрацювала навички використання модулів CRT та GraphABC на мові Паскаль.