Тема- Складання програм з використанням модулів CRT та GrphBC.
Работа добавлена на сайт samzan.net:
Лабораторна робота №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 на мові Паскаль.
2. Три брата Рижский замок Дом Конвента Мостик влюбленных Домский собор Костел Св
3. ГЕНИЕМ Внутреннее наследие БОГАТСТВО ВОЗМОЖНОСТЕЙ Большинство не использует предоставляем.
4. Сочный кусок Они отпускали шуточки насчет счетов за электроэнергию насчет того как Уорден Мурс этой осен
5. Вариант 2 К основным направлениям ассортиментной политики аптеки относится- Проведение взвешенной ц
6. Ш Монтескье о государстве и праве
7. Учебное пособие посвящено элементарному мышлению или рассудочной деятельности наиболее сложной форме пов
8. Мировоззрение и расовая гигиена ГЕНЕТИКА ПРОТИВ ТЕОРИИ СРЕДЫ Эта теория среды глубоко укоренилась
9. Основные фонды АТП и повышение эффективности их использования 1
10. Как придать России облик будущего в новом Мировом порядке http---www
11. проезжает текст
12. Безпека життєдіяльності ВИКОНАВ- Студент групи ПЗ121-9 Бєлкін Сергій ПЕРЕВІРИВ- Викла
13. Предметом філософії є- людина і його місце у світі; природа і її закони; суспільноісторичн
14. Архитектурная семиотика
15. Шифрование по методу UUE
16. КоммерсантDily опубликованы программные документы подготовленные Центральным банком письмо АШП1326261 от 18 с
17. Фінанси в економічній системі держави
18. огонь известно человеку с давних времён
19. Тема 7. ОСЛОЖНЕНИЯ ПРИ БУРЕНИИ СКВАЖИН Осложнениями называют нарушения нормального процесса бурения об.
20. Австрофор Проверяемая организация ЗАО Австрофор