Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
3 / 3 / 3
Регистрация: 17.10.2011
Сообщений: 169
1

Отобразить координатную плоскость и построить график функции

05.01.2012, 00:49. Просмотров 1440. Ответов 1
Метки нет (Все метки)


Вывести на экран график функции
Отобразить координатную плоскость. Вывод графика производить попиксельно с задержкой и звуковым сигналом
Функция: y=X корень из X
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.01.2012, 00:49
Ответы с готовыми решениями:

Построить координатную сетку и график функции
ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ 1. Очистить экран монитора и при необходимости установить ...

Построить координатную сеть и сам график
Помогите, не могу разобраться . Ка сделать чтобы график не выходил за сеть? И как лучше согласовать...

Построить график функции и отобразить на форме
Задание Разработать проект Visual Basic, предназначенный для отображения графика функции,...

Как сделать координатную плоскость
Всем привет! Задача такая: Нужно нарисовать 4 графика по типу (x-cos(x)), и сделать 2 способами ,...

1
Модератор
62884 / 46920 / 32338
Регистрация: 18.05.2008
Сообщений: 113,698
05.01.2012, 10:23 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
uses graph,crt;
function F(x:real):real;
begin
F:=x*sqrt(x);
end;
var xn,xk,x,y,mx,my,dx:real;
    x0,y0,i,px,py:integer;
    s:string;
begin
x0:=0;
initgraph(x0,y0,'');
x0:=30;{правый край экрана}
y0:=getmaxY-60;{низ}
xn:=0;xk:=16;{интервал по Х}
mx:=(getmaxX-2*x0)/(xk-xn);{масштаб по Х}
my:=(y0-50)/F(xk);{по У}
setbkcolor(15);{цвет фона}
setcolor(8);{цвет линий}
line(0,y0,getmaxX,y0);{оси}
line(x0,0,X0,getmaxY);
for i:=1 to round(xk) do{максимальное количество засечек в одну сторону}
  begin
    line(x0-3,y0-round(i*my*10),x0+3,y0-round(i*my*10));{засечки на оси У}
    line(x0+round(i*mx),y0-3,x0+round(i*mx),Y0+3); {засечки на оси Х}
    str(i*10,s);
    {подпись оси У}
    outtextXY(x0-20,y0-round(i*my*10),s);
    {подпись оси Х}
    str(i,s);
    outtextXY(x0+round(i*mx),y0+10,s);
   end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0+10,10, 'Y');
setcolor(8);
{график}
x:=xn;
dx:=0.05;
while x<=xk do
   begin
     x:=x+dx; {наращиваем х}
     px:=x0+round(x*mx); {изменение по оси Х}
     y:=F(x); {график в реальных координатах}
     py:=y0-round(y*my);{в экранных}
     putpixel(px,py,12);
     sound(600);{звук}
     delay(50);{задержка}
     nosound;
   end;
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.01.2012, 10:23

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

Вывести кривую на координатную плоскость
Пытаюсь разобраться с GrafABC, но не понимаю. Дана кривая в виде кубического уравнения: y=4*х^3 +...

Нарисовать координатную плоскость и треугольник на ней
Program tri_tochki; uses GraphABC; function postroenie(var x1,x2,y1,y2:real):real; begin...

Вставить в одну координатную плоскость несколько графиков функций
Добрый день. Не получается вставить в одну координатную плоскость график интерполянты, исходной...

Нужно построить график функции y = x2 на интервале [-3,3] и Построить график функции (эллипс) x^2/16 + y^2/9 = 1
Нужно построить график функции y = x2 на интервале и Построить график функции (эллипс) x^2/16 +...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.