Предмет: Информатика,
автор: denchik797
СРОЧНО!!!! Помогите написать код на Паскале, нужно построить график функции x=y^(-3).
Даю много баллов.
Возомнили себя модератором?))
Ответы
Автор ответа:
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).
Пример работы:
Приложения:
![](https://files.topotvet.com/i/dc6/dc6f9ece924d688c0d9946ccfdac7bff.jpg)
![](https://files.topotvet.com/i/18b/18bf4b34403a5aae25408045e9a40932.jpg)
![](https://files.topotvet.com/i/cac/cac769ad346e9afb744027b9a13c3099.jpg)
Похожие вопросы
Предмет: Другие предметы,
автор: alksand
Предмет: Русский язык,
автор: 200522
Предмет: Русский язык,
автор: bitkovan
Предмет: История,
автор: kurilo8
Я могу потом ещё баллы после ответа докинуть только дайте ответ пожалуйста.