Построить семейство кривых y = f(x) для указанных значений параметра - Turbo Pascal

Формулировка задачи:

Ребят, кто умеет строить графики, это последняя лаба, нужно завтра сдать, помогите, кто сможет. Задание такое: Построить семейство кривых y = f(x) для указанных значений параметра λ и оси координат с указанием минимального и максимального значений функции по каждой из осей. x=5*cosβ y=λ*sinβ 0 <= β <= 2∏(Пи) ; λ= 2.5 , 5, 10 премного благодарен!


textual

Код к задаче: «Построить семейство кривых y = f(x) для указанных значений параметра - Turbo Pascal»

uses graph;
function fy(a,b:real):real;
begin
fy:=a*sin(b)
end;
var xc,yc,x,y1,y2,y3:integer;
    b,m:real;
begin
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
m:=20;
b:=0;
while b<=2*pi do
 begin
  x:=xc+round(5*cos(b)*m);
  y1:=yc-round(fy(2.5,b)*m);
  putpixel(x,y1,12);
  y2:=yc-round(fy(5,b)*m);
  putpixel(x,y2,9);
  y3:=yc-round(fy(10,b)*m);
  putpixel(x,y3,10);
  b:=b+0.001
 end;
readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 4.400 из 5

Источник