Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
7 / 7 / 0
Регистрация: 14.11.2014
Сообщений: 164
1

График изменения температуры за месяц

05.01.2015, 00:36. Показов 2546. Ответов 5
Метки нет (Все метки)

Здравствуйте, тако
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.01.2015, 00:36
Ответы с готовыми решениями:

Построить график изменения температуры смеси льда, воды и этилового спирта
Вот такую задачку дали. Помогите. Можно и не только в Паскале. Построить график изменения...

график изменения температуры
Напишите прграмму,в окне которой отображается график изменения температуры воздуха за месяц.

Построить график изменения температуры
Как построить график изменения температуры в паскале?

Построить график изменения температуры воздуха (данные брать из StringGrid)
что у меня не правильно?нужно построить график изменения температуры воздуха. данные брать из...

5
903 / 751 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
05.01.2015, 00:57 2
Цитата Сообщение от Asya_inter Посмотреть сообщение
Здравствуйте, тако
Ну, и что вы хотели?
0
7 / 7 / 0
Регистрация: 14.11.2014
Сообщений: 164
05.01.2015, 01:01  [ТС] 3
Случайно отправила, не написав. А вопрос следующий. Можно ли на координатной прямой, построенной посередине, начертить изменение температуры за месяц, взяв произвольные значения? И те линии, которые будут ниже 0 - окрасить в другой цвет. .. А ещё, если я хочу по значениям новой координатной что-то начертить, то можно только использовать ту координатную. которая изначально имеется в программе, или же можно сделать так, чтобы в программе можно и по значениям новой координатной прямой строить? ...Если мои вопросы вам не ясны, то скажите и я постараюсь уточнить.
0
4660 / 2346 / 2216
Регистрация: 10.12.2014
Сообщений: 9,032
05.01.2015, 06:00 4
Можно!
Разрешаю.
Красьте и рисуйте себе на здоровье всё, что взбредёт в голову!
0
7 / 7 / 0
Регистрация: 14.11.2014
Сообщений: 164
05.01.2015, 14:06  [ТС] 5
JuriiMW, видимо вы не поняли... или вы сами не знаете??..
0
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
05.01.2015, 15:51 6
Цитата Сообщение от Asya_inter Посмотреть сообщение
Можно ли на координатной прямой, построенной посередине, начертить изменение температуры за месяц, взяв произвольные значения? И те линии, которые будут ниже 0 - окрасить в другой цвет. ..
Вот пример, а дальше не понял.
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
uses graphABC;
const n=31;
var a:array[1..n] of integer;
    x0,y0,max,i,x1:integer;
    mx,my:real;
begin
randomize;
for i:=1 to n do
 begin
  a[i]:=-10+random(21);
  if i=1 then max:=abs(a[1])
  else if abs(a[i])>max then max:=abs(a[i]);
 end; 
x0:=50;
y0:=windowheight div 2;
mx:=(windowwidth-x0-20)/n;
my:=(y0-20)/max;
line(0,y0,windowwidth,y0);
line(x0,0,x0,windowheight);
font.Size:=8;
for i:=0 to n-1 do
 begin
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3);
  textout(x0+round(i*mx)+5,y0+10,inttostr(i+1));
 end;
for i:=1 to max do 
 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));
  textout(x0-20,y0-round(i*my),inttostr(i));
  textout(x0-20,y0+round(i*my),inttostr(-i));
 end; 
font.Size:=10;
textout(windowwidth-35,y0-20,'День');
textout(x0+5,5,'t');
for i:=2 to n do
 begin
  if a[i]*a[i-1]<0 then
   begin
    x1:=round(mx*abs(a[i-1])/abs(a[i]-a[i-1]));
    if a[i-1]<0 then pen.Color:=clBlue
    else pen.Color:=clRed;
    line(x0+round((i-1)*mx),y0-round(a[i-1]*my),x0+round((i-1)*mx)+x1,y0);
    if a[i]<0 then pen.Color:=clBlue
    else pen.Color:=clRed;
    line(x0+round((i-1)*mx)+x1,y0,x0+round(i*mx),y0-round(a[i]*my));
   end;
  if a[i]*a[i-1]>0 then 
   begin
    if a[i-1]<0 then pen.Color:=clBlue
    else pen.Color:=clRed;
    line(x0+round((i-1)*mx),y0-round(a[i-1]*my),x0+round(i*mx),y0-round(a[i]*my));
   end;
  if a[i]*a[i-1]=0 then 
   begin 
    if a[i-1]<0 then pen.Color:=clBlue
    else pen.Color:=clRed;
    line(x0+round((i-1)*mx),y0-round(a[i-1]*my),x0+round(i*mx),y0-round(a[i]*my));
   end; 
 end;  
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.01.2015, 15:51

Определить количество экстремальных значений температуры за месяц
помогите написать программу (массивы) Известны температуры воздуха дней месяца (31 дней)....

Вывод минимального значения температуры за выбранный месяц
Вот это уже есть, помогите доделать A). Сформировать файл meteo.txt, в котором должно содержаться...

Напишите программу котора я будет принимать минимальные и максимальные значения температуры за месяц
На геофизической станции специальное устройство снимает температуру за месяц напишите программу...

График звездочками в массиве. Программа "График зависимости даты от температуры"
Здравствуйте. С программированием я дружу относительно недавно. Меня интересует следующий вопрос: ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru