Построить кривые по заданному параметрическому представлению

@taoariya · Регистрация: 09.10.2017

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

Построить кривые по заданному параметрическому представлению
Кардиоида
x = a cos t(1+cost), y = a sin t(1+ cost), a>0, t ∈ [0, 2π).

@ZX Spectrum-128 · 11.12.2017, 20:38

Построить кривые по заданному параметрическому представлению

@Puporev · 11.12.2017, 20:50

Pascal

uses graphABC,crt;//если АВС.net уберите crt
var a,xc,yc:integer;
    x,y,t:real;
begin
repeat
write('Введите параметр а от 100 до 200 a=');
readln(a);
until a in [50..150];
setwindowsize(500,500);
centerwindow;
clearwindow;
xc:=windowwidth div 3;
yc:=windowheight div 2;
t:=0;
while t<=2*pi do
 begin
  x:=a*cos(t)*(1+cos(t));
  y:=a*sin(t)*(1+cos(t));
  setpixel(xc+round(x),yc-round(y),clRed);
  t:=t+0.001;
 end;
end.

@taoariya 2 / 2 / 0 Регистрация: 09.10.2017 Сообщений: 132
		1
	Построить кривые по заданному параметрическому представлению 11.12.2017, 20:28. Показов 1766. Ответов 2 Метки нет (Все метки) Построить кривые по заданному параметрическому представлению Кардиоида x = a cos t(1+cost), y = a sin t(1+ cost), a>0, t ∈ [0, 2π). 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	11.12.2017, 20:38	2
	Построить кривые по заданному параметрическому представлению 0

	11.12.2017, 20:50

Опции темы

Построить кривые по заданному параметрическому представлению

Решение