Начертить координатную сетку с параметрами: - 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.

Объяснение кода листинга программы

  1. Используется графический модуль graphABC.
  2. Задаются начальные координаты (x0,y0) и размеры (w,h) прямоугольника.
  3. Задаются размеры шага по оси x (dx) и оси y (dy).
  4. Вычисляется количество строк (m) и столбцов (n) на координатной сетке.
  5. В первой части кода рисуются вертикальные линии с шагом dx и выводится текст с чётными индексами.
  6. Во второй части кода рисуются горизонтальные линии с шагом dy и выводится текст с чётными индексами.

Оцени полезность:

10   голосов , оценка 3.6 из 5
Похожие ответы