Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
6
МІНІСТЕРСТВО ОСВІТИ І НАУКИ, МОЛОДІ ТА СПОРТУ УКРАЇНИ
ЧЕРКАСЬКИЙ ДЕРЖАВНИЙ ТЕХНОЛОГІЧНИЙ УНІВЕРСИТЕТ
КАФЕДРА СИСТЕМНОГО ПРОГРАМУВАННЯ
ЗВІТ
по розрахунково-графічній роботі
з дисципліни «Програмування»
ЧДТУ. 11.11--.003 ПЗ
|
Перевірив: асистент кафедри системного програмування Миронець І. В. _________________(оцінка) «_____»__________20__ р. _________________(підпис) |
Виконав: Студент групи СП-116 ______________________(підпис) |
Черкаси 2011
Зміст
Вступ…………………………………………………………………………......2
1. Алгоритм розв’язання поставленої задачі…………………………….5
2. Блок-схеми………………………………………………………………6
3. Лістинг програми………………………………………………………10
4. Результати виконання програм…………………………………….…14
Висновки……………………………………………………………………….17
Список використаної літератури………………………………………………18
Вступ
Скласти програму мовою Паскаль для табулювання функції на вказаному проміжку згідно з варіантом завдання та побудувати її графік:
|
Х |
Y |
|
… |
… |
Причому обчислення функції проводиться в окремій підпрограмі-функції.
Вихід закриває всі вікна даної програми.
Розрахунково-графічна робота повинна задовольняти одному із рівнів виконання:
1 рівень – програма не містить меню вибору подальшої роботи та графічного зображення функції.
2 рівень – програма не містить графічного зображення функції.
3 рівень – виконано всі поставлені для виконання завдання.
Індивідуальне завдання
Варіант №3
|
3 |
, при |
середнє арифметичне від’ємних значень функції |
1.Алгоритм розв’язання поставленої задачі
1.Ознайомлюємося з індивідуальним завданням
2.Створюєм програму
3.Запуск програми.
4.Отримуємо відомості про автора роботи про його індивідуальне завдання,за вказівкою переходимо в головне меню і вибираєм одне із заданих розв`язаннь:
Табуляція. Завдання. Графік. Вихід.
5.Після отримання відповіді переходимо знову в головне меню натисканням будь-якої клавіші.
6.Завершуємо роботу програми
2.Блок-схеми
3
1
D
M
М
Початок
B
A
C
Кінець
1 2 3 4
A
початок
| x | y |
y:=ln(sqr(x)-5*x+5);
x<=1.3
x:=-10
|',x:3:1,'',y:4:3,'|
x:=x+0.1
D
так
B
початок
y:=ln(sqr(x)-5*x+5);
x<=1.3
x:=-10
k:=0;
k
k:=k+1;
x:=x+0.1
D
так
y>1.3
ні
так
C
початок
px:=x0+round(x*mx); y1:=sin(3/2*x)-ln(10*x); py1:=y0-round(y1*my); Putpixel (px,py1,4);
x<=1.3
x0:=500;{oaio? ye?aia}
y0:=300;
xn:=-2*pi;xk:=2*pi;
mx:=(windowwidth-60)/(xk-xn);
my:=(y0-40)/20;{ii O}
line(x0,0,X0,windowheight );
x:=x+dx;
D
так
I=1,30,1
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);
textout(windowwidth-25,y0-15,'X'); textout(x0+10,10, 'Y'); textout(x0,y0+10, '0'); dx:=0.0001; x:=-10;
3.Лістинг програми
program rgr;
uses graphABC,crt;
label c1, m1, m2,m3,m4,m5;
function F(x:real):real;
begin
F:=ln(sqr(x)-5*x+5);
end;
var xn,xk,x,y,mx,my,dx:real;
m:integer;
k:real;
p,ser:real;
x0,y0,i,px,py:integer;
s:string;
begin clrscr;
writeln('Лабораторна робота');
writeln('Табуляція та побудова графіків');
writeln('Варіант №2 ');
writeln('Автор: Багачук О.П. Група: Сп-116');
writeln('Завдання: протабулювати функцію та побудувати графік.');
writeln;
writeln('для продовження натиснути клавішу.');
readkey;
m5: clrscr;
writeln('Головне меню');
writeln('1: Табуляція');
writeln('2: Завдання');
writeln('3: Графік');
writeln('4: Вихід');
write('m= '); readln(m);
Case m of
1: goto m1;
2: goto m2;
3: goto m3;
4: goto m4;
end;
m1: begin clrscr;
writeln('| x | y |');
writeln('---------------');
x:=-10;
while x<=1.3 do begin
y:=ln(sqr(x)-5*x+5);
writeln('|',x:2:1,' |',y:3:2,'|');
writeln('---------------');
x:=x+0.1; end;
writeln; end;
writeln('для повернення в головне меню натисніть любу клавішу');
readln; goto m5;
m2: begin clrscr;
x:=-10; k:=0; p:=0;
writeln('Знайти cереднє арифметичне віємних значень функції на проміжку [-10;1.3] ');
writeln;
while x<=1.3 do begin
y:=ln(sqr(x)-5*x+5);
x:=x+0.1;
if y<0 then k:=k+1;
P:=p+y;
end;
ser:=p/k;
writeln('Середнє арифметичне = ',ser);
writeln;
writeln('для повернення в головне меню натисніть любу клавішу');
readln; goto m5;
end;
m3: begin clrscr;
x0:=500;{oaio? ye?aia}
y0:=300;
xn:=-2*pi;xk:=2*pi;
mx:=(windowwidth-60)/(xk-xn);
my:=(y0-40)/20;{ii O}
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);
{iiaienu ine O}
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:=-10;
dx:=0.0001;
while x<=1.3 do
begin
x:=x+dx;
px:=x0+round(x*mx);
y:=F(x);
py:=y0-round(y*my);
putpixel(px,py,8);
end;
setfontsize(12);
textout(20,30,'Графік функції ln(sqr(x)-5*x+5) ');
end;
writeln;
writeln(' для повернення в головне меню натисніть любу клавішу');
readln; goto m5;
m4:end.
4.Результати виконання програм
Умова
Головне меню
Табуляція
Завдання
Графік
Висновки
При виконанні даної роботи язакріпив навички здобуті на протязі навчального курсу. Здобув навички в створені програм на мові Pascal. Глибше засвоїв прийоми алгоритмізації та програмування при розробці даної програми.Розробив інтерфейс який містить : головне меню, умову, табуляцію, завдання, а також графік. Користувався засобами PascalABCпри створені інтерфейсу та побудови графіка.
Список використаної літератури