Предмет: Информатика, автор: denchik797

СРОЧНО!!!! Помогите написать код на Паскале, нужно построить график функции x=y^(-3).
Даю много баллов.


denchik797: Прошу СРОЧНО!!!
Я могу потом ещё баллы после ответа докинуть только дайте ответ пожалуйста.
LRSM: "потом ещё баллы после ответа докинуть"
Возомнили себя модератором?))

Ответы

Автор ответа: LRSM
1

Ответ:

  • uses GraphABC;
  • begin
  • var f:real->real:=x->x**-3;
  • var (w,h,k) := (200,200,30);
  • Window.SetSize(w*2,h*2);
  • foreach var p in PartitionPoints(-(w div k)-1,(w div k)+1,(5*w*h div k)).Select(x->((w+x*k),(h-f(x)*k))) do
  • if (p[1]>0) and (p[1]<h*2) and (p[0]<w*2) then
  • Circle(Round(p[0]),Round(p[1]),2);
  • end.

w - 1/2 длины окна  - (200).

h  - 1/2 высоты окна  - (200).

k  - зум  - (30).

Пример работы:

Приложения:
Похожие вопросы