Нарисуйте окружность, центр которой расположен в центре графического окна, а диаметр равен высоте окна

@supra_jdm · Регистрация: 25.04.2015

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

ЗАДАНИЕ:
Написать программу, которая при нажатии на кнопку F1 начинает рисовать в соответствии с заданием, приводимым ниже, а при нажатии на кнопку F2 - рисует график указанной функции, при нажатии правой кнопки мыши - графическое окно очищается.
Нарисуйте окружность, центр которой расположен в центре графического окна, а диаметр равен высоте окна.

Указание. Следует воспользоваться свойствами Window.Width, Window.Height и процедурой Circle.

Нарисуйте график функции - sin(x)

ПРОБЛЕМА:
Все работает, но нужно сделать так,чтобы при растяжении окна - график тоже растягивался (надеюсь, понятно выразилась

)

КОД ПРОГРАММЫ:

Pascal

uses GraphABC;
 
procedure okr;
begin
var w:=Window.Width;
var h:=Window.Height;
Circle(w div 2, h div 2, (h div 2));
end;
 
procedure graf;
const m=100;
begin
Coordinate.SetMathematic;
Coordinate.SetOrigin(window.Width div 2, m+20);
Line(-3*m, 0, 3*m, 0);
Line(0,-m, 0, m);
var x:=-3.0;
var y:=sin(x);
MoveTo(Round(m*x), Round(m*y));
while x<3.01 do
  begin
    LineTo(Round(m*x), Round(m*y));
    x+=0.1;
    y:=sin(x);
  end;
end;
 
 
procedure KeyDown(key:integer);
begin
case key of
VK_F1: okr;
VK_F2: Graf;
end;
end; 
 
 
procedure MouseDown(x,y,mb: integer);
begin
  if mb=2 then clearwindow
end;
 
BEGIN
SetWindowSize(400,400);
OnMouseDown := MouseDown;
OnKeyDown := KeyDown;
 
END.

ЗАРАНЕЕ СПАСИБО ЗА ПОМОЩЬ!

@JuriiMW · 09.10.2015, 09:14

Pascal

uses
  GraphABC;
 
procedure Resize;
begin
  Window.Clear;
  Line(0, 0, Window.Width, Window.Height);
  Line(0, Window.Height, Window.Width, 0);
end;
  
begin
  Resize;
  OnResize := Resize;
end.

	09.10.2015, 09:14