Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
5 / 0 / 0
Регистрация: 04.02.2014
Сообщений: 26
1

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

06.02.2014, 00:07. Показов 1068. Ответов 1
Метки нет (Все метки)

Построить кривые по заданному параметрическому представлению или заданному в полярных координатах:
Эпициклоида
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.02.2014, 00:07
Ответы с готовыми решениями:

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

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

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

Построить кривые по заданному параметрическому представлению или заданному в полярных координатах
Помогите пожалуйста: Построить кривые по заданному параметрическому представлению или заданному в...

1
Почетный модератор
64088 / 47497 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
06.02.2014, 07:02 2
Лучший ответ Сообщение было отмечено mik-a-el как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
uses graph,crt;
var gd,gm,a,b,p,q,x,y:integer;
    t,k:real;
{функция наибольший общий делитель для сокращения чисел a,b}
function nod(p,q:integer):integer;
var  z:integer;
begin
repeat
if p>q then p:=p mod q
else q:=q mod p;
until(p=0)or(q=0);
nod:=p+q;
end;
 
begin
clrscr;
write('Vvedite a='); readln(a);
write('Vvedite b='); readLn(b);
{выберем большее для назначения 2*q*pi}
if a>b then
 begin
  x:=a;
  a:=b;
  b:=x;
 end;
{сокращаем}
p:=a div nod(a,b);
q:=b div nod(a,b);
gd:=detect;
initgraph(gd,gm,'');
k:=(getmaxY div 2)/(2*a+b);{масштабный коэффициент}
t:=0;
while t<=2*q*pi do
 begin
  x:=round(k*((b+a)*cos(t)-a*cos(t*(b+a)/a)));
  y:=round(k*((b+a)*sin(t)-a*sin(t*(b+a)/a)));
  putpixel(getmaxX div 2+x,getmaxY div 2-y,14);
  t:=t+0.001;
 end;
readLn
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.02.2014, 07:02

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

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

Построить кривые по заданному параметрическому представлению
Построить кривые по заданному параметрическому представлению: кардиоида: x = a ⋅ cost(1+...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru