Начертить координатную сетку с параметрами: - Pascal
Формулировка задачи:
1. Точка начала координат (x0,y0)
= (10,290)
; 2. Шаг координатной сетки в пикселях dx,dy= 25;25
; 3. Высота и ширина области вывода координатной сетки (h,w)= 250х350
; 4. Шаг меток оси X (dlx)= 2
; 5. Шаг меток оси Y (dly)= 1
; 6. Частота оцифровки по оси Х dcross 1 - каждую; 2 - через одну;= 3
; 3 - через две; 7. Частота оцифровки по оси Y 1 - каждую; 2 - через одну;= 1
; 3 - через две;Решение задачи: «Начертить координатную сетку с параметрами:»
textual
Листинг программы
uses graphABC; var x0,y0,dx,dy,w,h,m,n,i:integer; begin x0:=10; y0:=290; h:=250; w:=350; dx:=25; dy:=25; m:=h div dy+1; n:=w div dx+1; for i:=0 to n div 2 do begin line(x0+2*i*dx,y0,x0+2*i*dx,y0-h); if odd(i-1)then textout(x0+2*i*dx,y0+10,inttostr(i*3 div 2)) end; for i:=0 to m-1 do begin line(x0,y0-i*dy,x0+w,y0-i*dy); if i mod 2=0 then textout(0,y0-i*dy-5,inttostr(i div 2)) end; end.
Объяснение кода листинга программы
- Используется графический модуль graphABC.
- Задаются начальные координаты (x0,y0) и размеры (w,h) прямоугольника.
- Задаются размеры шага по оси x (dx) и оси y (dy).
- Вычисляется количество строк (m) и столбцов (n) на координатной сетке.
- В первой части кода рисуются вертикальные линии с шагом dx и выводится текст с чётными индексами.
- Во второй части кода рисуются горизонтальные линии с шагом dy и выводится текст с чётными индексами.