Графика в системе PascalABC - 6 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

8
3 ПРИМЕРЫ ПРОГРАММ
Пример 1 Построить столбчатую диаграмму (гистограмму), отображаю-
щую динамику среднесуточных температур воздуха в течение недели.
Для ввода значений температуры, можно воспользоваться датчиком слу-
чайных чисел Random.
program Graf_1;
uses GraphABC;
const dx=50; {ширина столбика}
z=20; {расстояние между столбиками}
k=7; {число дней в неделе}
delta = 10;{диапазон изменения температур от -10
о
до 10
о
}
var x, y, color, i, t, xm, ym: integer;
begin
TextOut(250,0,'ТЕМПЕРАТУРА ВОЗДУХА ЗА НЕДЕЛЮ');
xm:=WindowWidth;
ym:=WindowHeight;
y:=ym div 2;
x:=dx+z;
Line(x-z,y,xm-z,y); {ось OX}
Line(x-z,z,x-z,ym-z); {ось OY}
TextOut(x-2*z,y,'0');
for i:=1 to k do
begin
t:= Random(2*delta)-delta;
if t>0 then color:=clRed
else color:=clBlue;
SetPenColor(color);
Rectangle(x,(y-10*t),x+dx,y);

Страницы