Графика Паскаль: Изобразить оси координат, и штриховку, 10 делений, по обоим осям

Евгений Нефёдов · Регистрация: 27.01.2013

Author24 — интернет-сервис помощи студентам

Изобразить оси координат, и штриховку, 10 делений, по обоим осям

@Puporev · 01.03.2013, 16:23

Pascal

uses graphABC;
var i,x,y:integer;
    m:real;
    s:string;
begin
setwindowsize(500,500);
x:=windowwidth div 2;
y:=x;
line(0,y,2*x,y);
line(x,0,x,2*y);
m:=(x-20)/10;
for i:=1 to 10 do
 begin
  line(x+round(i*m),y+3,x+round(i*m),y-3);
  line(x-round(i*m),y+3,x-round(i*m),y-3);
  str(i,s);
  textout(x+round(i*m),y+10,s);
  textout(x-round(i*m),y+10,'-'+s);
  line(x+3,y-round(i*m),x-3,y-round(i*m));
  line(x+3,y+round(i*m),x-3,y+round(i*m));
  textout(x-20,y-round(i*m),s);
  textout(x-25,y+round(i*m),'-'+s);
 end;
textout(2*x-10,y-15,'X');
textout(x+5,5,'Y');
textout(x+5,y+10,'0')
end.

Евгений Нефёдов 0 / 0 / 0 Регистрация: 27.01.2013 Сообщений: 25
		1
	Графика Паскаль: Изобразить оси координат, и штриховку, 10 делений, по обоим осям 01.03.2013, 00:33. Показов 6536. Ответов 1 Метки нет (Все метки) Изобразить оси координат, и штриховку, 10 делений, по обоим осям 0

	01.03.2013, 16:23

Графика Паскаль: Изобразить оси координат, и штриховку, 10 делений, по обоим осям

Решение