Форум программистов, компьютерный форум, киберфорум
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
TrueLove
0 / 0 / 0
Регистрация: 20.06.2013
Сообщений: 30
#1

. Динамическая графика. Составить программу движения шарика вдоль заданной линии с регулируемой скоростью - C++

21.06.2013, 11:18. Просмотров 222. Ответов 0
Метки нет (Все метки)

помогите составить график , y=-x^2+3
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
uses crt,graphABC;
var v,x1,x2,y1,y2:integer;
x,dx,y,mx,my,a,b:real;
w,h,x0,y0,i:integer;
st:string;
begin
clrscr;
SetWindowSize(700,560);
writeln('введите скорость от 1 до 10');
readln(v);
i:=0;
dx:=0.008;
h:=560; w:=700;
y1:=-6; y2:=6; // max и
x1:=-3; x2:=3; // min
my:=h/abs(y2-y1); mx:=w/abs(x2-x1);
{oси координат}
x0:=350; y0:=230;
line(x0,y0+h,x0,y0-h);
line(x0-w,y0,x0+w,y0);
{Отмечаем деления на Ох}
for i:=-4 to 4 do begin
line(x0+i*121,y0,x0+i*121,y0+12);
textout(x0+i*121,y0+5,IntToStr(i));
end;
{Отмечаем деления на Оy}
for i:=-8 to 8 do begin
if i<>0 then begin
line(x0,y0-i*47,x0+12,y0-i*47);
textout(x0+20,y0-i*47,IntToStr(i));
end;
end;
{надписи}
SetFontSize(20);
SetFontColor(clPurple);
textout(85,375,'y = -x^2-3');
textout(60,420,'Выполнил Волков Александр, И-1');
SetFontSize(14);
SetFontColor(clgreen);
textout(685,y0,'х');
textout(x0+35,5,'y');
{график}
x:=x1;
while x<=x2 do begin
y:=(-x*x)+3;
putpixel(x0+round(x*mx),y0-round(y*my),clred);
x:=x+dx;end;
{движение шарика}
x:=x1;
repeat
y:=(-x*x)+3;
SetPenColor(clblack);
SetBrushColor(clLime);
circle(x0+round(x*mx),y0-round(y*my),20);
delay(50);
{восстановление стертых}
line(x0,y0+h,x0,y0-h);
line(x0-w,y0,x0+w,y0);
SetBrushColor(clWhite);
SetFontSize(10);
SetFontColor(clblack);
for i:=0 to 1 do begin
line(x0+i*121,y0,x0+i*121,y0+12);
textout(x0+i*121,y0+5,IntToStr(i));
end;
i:=-1;
line(x0,y0-i*47,x0+12,y0-i*47);
textout(x0+20,y0-i*47,IntToStr(i));
a:=x1;
while a<=x2 do begin
b:=(-a*a)+3;
putpixel(x0+round(a*mx),y0-round(b*my),clred);
a:=a+dx;end;
{затирание}
SetPenColor(clwhite);
circle(x0+round(x*mx),y0-round(y*my),22);
x:=x+dx*v;
until (x>x2);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.06.2013, 11:18
Здравствуйте! Я подобрал для вас темы с ответами на вопрос . Динамическая графика. Составить программу движения шарика вдоль заданной линии с регулируемой скоростью (C++):

Движение шарика вдоль заданной линии с регулируемой скоростью - C++
Требуется написать программу движения шарика вдоль заданной линии с регулируемой скоростью. Задано уравнение : Локон Аньези; (Программа...

Написать программу передвижения шарика вдоль графика корень из х в с++ - C++
Кто сможет написать программу, напишите сообщение пожалуйста, 300р.

Передвижение шарика вдоль графика "корень из х" - C++
написать программу передвижения шарика вдоль графика корень из х в с++

Отрисовка движения шарика по кривой - C++
Доброго времени суток. Прошу вашей помощи. Вот задача: Есть кривая (что-то вроде ямки), нужно нарисовать, как шарик катится по этой...

Движение шарика вдоль заданной линии с регулируемой скоростью - Pascal ABC
помогите построить графиг плиз))программа движения шарика вдоль заданной линии с регулируемой скоростью. y=-x^2+3

Графика: Написать программу движения шарика вдоль заданной линии - C++ Builder
Написать программу движения шарика вдоль заданной линии Начертить оси координат, график и осуществить движение шарика y=In x Помогите...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.06.2013, 11:18
Привет! Вот еще темы с ответами:

Написать программу движения шарика вдоль заданной линии y=ln x - Pascal ABC
Помогите написать программу движения шарика вдоль заданной линии y=ln x в Паскаль

Составить программу передвижения шарика по заданной прямой линии - QBasic
Составить программу передвижения шарика по заданной прямой линии: x=a*ln (t); y=b*sin(t) - эллипс

Написать программу передвижения шарика вдоль графика корень из х - Pascal ABC
Написать программу в паскале, кто сможет, напишите пожалуйста сообщение.

Отображения движения ромба вдоль наклонной линии - Delphi
Создать программу для отображения движения ромба вдоль наклонной линии в прямом и обратном направлении с помощью класса Canvas (функции...


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

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

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