<<
>>

Примеры графических программ

Пример 1: программа рисует звездное небо с 400 «звездами», вспыхивающими постепенно, и полную желтую луну. Програлша 29 program sky; uses crt,graph; var k,gd,gm:integer; begin gd:=detect; initgraph (gd, gm, ' '); randomize; for k:=l to 400 do begin putpixel(random(640),random(480),random(15)+1); delay(10); end; setfillstyle(l,14); setcolor(14); circle(550,80,30) ; floodfill(550,80,14) ; repeat until keypressed; closegraph end.
Пример 2. Узор. Используя простейшие геометрические образы строят замечательные графические изображения. Ниже приведена программа изображения муарового узора, полученного пересечением двух семейств расходящихся отрезков прямых. Качество и изображение получаемого узора зависит в основном от трех параметров: kl, k2 - расстояний между отрезками слева и справа ; h - смещения вниз (вверх) всего семейства. Программа 30 program uzor; uses crt, graph; var gd,gm,errCode,i,kl,k2,h; integer; begin kl:=8; k2:=3; h:=110; gd:=Detect; InitGraph(gd,gm.'') ; errCode:=GraphResult ; if errCode = grOk then begin setcolor(green); * for i:=l to (420 div kl) do begin line(0,i*kl,640,i*k2+h); line(0,i*k2+h,640,i*kl); end; repeat until keypressed; CloseGraph; end else writeln('errCode=',errCode) end.
Процедуры построения прямоугольных фигур удобно использовать, в частности, при построении схем, диаграмм. Пример 3: программа 31 строит столбчатую диаграмму, наглядно отражающую числовую информацию о населении 6 крупных городов мира: Токио, Гамбурга, Москвы, Бангкока, Мехико и Парижа. Программа 31 program colon; uses crt,graph; const m:array[l..6] of real=(11500,2300,9700.5100,12400,8200) ; name:array[I..6] of string =('Токио','Гамбург','Москва','Бангкок','Мехико','Париж');. var gd,gm,k,n,s:integer; st:string[6]; begin gd:=detect; initgraph(gd,gm,' '); setcolor(15); setlinestyle(0,0,1); line(60,400,620,400); line(60,400,60,100) ; settextstyle(0,0,1); for k:=l to 12 do begin n:=1000*k; str(n.st); outtextxy(10,400-20*k-4,st); line(60,400-k*20,65,400-k*20) end; setcolor(14); settextstyle(0,0,2); outtextxy(120,20, 'Население городов (тысяч)'); settextstyle(0,0,1); for k:=l to 6 do begin setfillstyle(1,k+2); bar(100+(k-l)*70,400,100+k*70,round(400-m[k]/1000*20)) ; outtextxy(100+(k-l)*70+4,450,name[k]) ; end; repeat until keypressed; closegraph end. Процедура bar3d(xl,yl,x2,y2,d,top) рисует трехмерный столбец, глубина которого определяется параметром d.
Последний параметр процедуры top - логического типа. Если top=true, рисуется верхнее основание столбика, в противном случае оно не изображается, что позволяет рисовать столбики один над другим. Диаграммы с трехмерными столбиками красивы, но их труднее создавать. Построение графиков функций. Построение графиков функции - неотъемлемая часть большинства программ, предназначенных для обучения математике, физике. Ниже представлен пример программы построения графика функции y=x*x*sin(l/x). на произвольном отрезке [а, b]. Количество точек графика (параметр п) также задается произвольно (точка х=0 исключается, так как в ней функция не определена). В программе также определяются величины tl=(xl-x0)/(b-a) и t2=(yl-y0)/(2m), которые означают масштабы по осям Х и Y соответственно. График рассматриваемой функции представлен на двух отрезках [а, b] и [-0.1,0.1]. Чтобы построить график другой функции, достаточно задать ее аналитический вид в описании функции (function f). Программа 32 program grafik; uses crt, graph; var gd,gm, errCode : integer; a,b : real; n : integer; function f(x:real):real; begin if x0 then f:=x*x*sin(l/x); end; procedure grafun(xO,xl,yO,yl,n :word;a,b;real); var h,m,x, tl,t2 : real; i, u,v,xv,yv : word; begin h:=(b-a)/n; (поиск максимума f(x)} m:=abs(f (a)); for i:=l to n do if m
<< | >>
Источник: А.В. Могилев Н.И. Пак Е.К. Хеннер. Информатика. 2003

Еще по теме Примеры графических программ:

  1. Простой пример графической ректификации, используя карту страны
  2. Примеры жестокости по отношению к другим (эти примеры более всего относятся к семейной жизни):
  3. Правило графической доказательности
  4. Правило графической доказательности
  5. Графическое оформление анкеты
  6. 5.3. Графическое представление данных
  7. Программа Да и программа Нет
  8. Свободное воспроизведение программ для ЭВМ и баз данных. Декомпилирование программ для ЭВМ
  9. Теория, концепция и практика графической ректификации
  10. Расширение графического метода
  11. Глава 5. ТАБЛИЧНОЕ И ГРАФИЧЕСКОЕ ПРЕДСТАВЛЕНИЕ ДАННЫХ1
  12. Бернадет Брэди. Теория, концепция и практика графической ректификации, 0000
  13. Графическое построение мандалы