Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Taniushi4ka
1

не могу понять как построить трехэтажный график и использовать Random...

18.11.2009, 22:55. Показов 1323. Ответов 0
Метки нет (Все метки)

Здрасте.... пожалста, помогите решить задачу:
Построить трехэтажный график зависимости:
1)скорости от времени.(OX - t, OY - V) V - скорость, t - время.
2)координаты от времени.(OX - t, OY - x) x - координата.
3)пути от времени.(OX - t, OY - l) l - путь.
С помощью Random задаются случайные значения скорости, строится по ним график, далее программа сама строит 2 оставшихся графика в соответствии с ранее заданными Random-ом значениями. Ну как-то так... Если по условию возникнут вопросы, то я отвечу)))
Вот так выглядит график зависимости скорости от времени(на пример):

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
program sist_koord;
uses crt,graphABc;
var i,m,k:integer;
penstyle:integer;
   begin
setwindowcaption ('система координат');
setwindowsize (700,520);
setpencolor (rgb (0,0,0));
line (50,30,50,200);
lineto (250,200);
line (240,197,250,200);lineto  (240,203);
line (47,40,50,30);
lineto (53,40);
for i:=1 to 7 do
begin
m:=i*22;
line (48,25+m,53,25+m);
end;
for i:=1 to 7 do
begin
k:=i*25;
line (50+k,198,50+k,203);
end;
textout (60,17,'V');
textout (260,200,'t');
textout (40,205,'0      2     4      6');
textout (35,60,'6');
textout (35,83,'5');
textout (35,106,'4');
textout (35,129,'3');
textout (35,152,'2');
textout (35,175,'1');
setpenwidth (3);
setpencolor (rgb (255,0,0));
line (50,135,100,135);line (100,157,150,157);
line (150,90,200,90);
setpenwidth (1);
setpencolor (rgb (0,0,255));
setpenstyle (psDot);
line (100,135,100,200);
line (150,90,150,200);
line (200,90,200,200);
keypressed;
   end.


вот начало моих попыток сделать это своими руками:

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
program sistema_koordinat;
uses crt,graphABc;
var i,m,k,h,t,x1,y1,x2,y2:integer;
penstyle:integer;
begin
setwindowcaption('система координат');   
setwindowsize (700,920);                
setpencolor (rgb (0,0,0));
line (50,30,50,300);
lineto(50,200) ;
lineto (250,200);
line (240,197,250,200);lineto  (240,203);
line (47,40,50,30);
lineto (53,40);                        
for i:=1 to 12 do
begin
m:=i*22;
line (48,25+m,53,25+m);
end;                                   
for i:=1 to 7 do
begin
k:=i*25;
line (50+k,198,50+k,203);
end;
textout(60,17,'V');
textout(260,200,'t');
textout (55,205,'0    2     4      6');
textout (35,60,'6');
textout (35,83,'5');
textout (35,106,'4');
textout (35,129,'3');
textout (35,152,'2');
textout (35,175,'1');
 
 
 
 
line (50,340,50,610);
lineto(50,510) ;
lineto (250,510);
line (240,507,250,510);lineto  (240,513);
line (47,350,50,340);
lineto (53,350);                     {график №2}
 
 
 
line (50,640,50,910);
lineto(50,810) ;
lineto (250,810);
line (240,807,250,810);lineto  (240,813);
line (47,650,50,640);
lineto (53,650);                         {график №3}
 
 
      end.

как видно я не знаю как про масштабировать 2 других графика и как вообще тут можно использовать Random...
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2009, 22:55
Ответы с готовыми решениями:

Не могу понять как построить график..
Столкнулась с проблемой, не могу понять как построить в Mathcad или в Matlab график, когда...

не могу понять как построить график
доброго времени суток, уважаемые программисты. пожалуйста, подскажите решение данного вопроса ===...

Не могу понять как использовать переменные
Не могу понять как использовать переменные html, files_path после отработки функции ...

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

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.11.2009, 22:55

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

Не могу понять, какой элемент использовать
Доброе утро всем. Подскажите пожалуйста, какой элемент используется в мобильном приложении vk (да...

Не могу понять почему не работает график
рухомі графіки - коофіцієнт поглинання світла - намалювати графік

Как понять поставленную задачу. Не могу понять этот полиморфизм?
A software academy teaches two types of courses: local courses that are held in some of the...

Стек на основе массива структур - эт как понять читаю литературу и не могу понять!
Стек статически (на основе массива структур). Пример структура "Товар" которая включает в себя: №...


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

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

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