0 / 0 / 0
Регистрация: 18.04.2018
Сообщений: 9
1

Улитка паскаля

05.06.2018, 11:03. Показов 2054. Ответов 3
Метки нет (Все метки)

Написать программу построения улитки Паскаля. Улитка Паскаля, задана параметрически
Миниатюры
Улитка паскаля  
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2018, 11:03
Ответы с готовыми решениями:

Закрыть вкладки Паскаля при исполнении Паскаля
В Паскаль АВС.Нет открыто несколько вкладок. Запускается следующая программа (вкладка). Как в нее...

Шифрование текста методом "улитка" (Маршрутные перестановки)
Зашифрованть нужно текст "ЕХалгрекачерезрекувидитгрекаврекерак" Должно получиться что то вроде...

улитка Паскаля
1) Кривая улитка Паскаля определяется следующим уравнением в полярных координатах: p=acos(f)+L где...

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

3
4961 / 2565 / 2314
Регистрация: 10.12.2014
Сообщений: 9,826
05.06.2018, 11:42 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses GraphWPF;
const a=100;b=123;dt=0.1;n=12;dangle=pi/n*2;
function cx(t:Real):=a*cos(t)**2+b*cos(t);
function cy(t:Real):=a*cos(t)*sin(t)+b*sin(t);
begin
  var angle := 0.0;
  loop n do begin
    var t:=0.0;var(sina,cosa,x,y):=(sin(angle),cos(angle),cx(t),cy(t));
    MoveTo(Window.Center.X+cx(t)*cosa-cy(t)*sina,Window.Center.Y+cx(t)*sina+cy(t)*cosa);
    repeat t+=dt;LineTo(Window.Center.X+cx(t)*cosa-cy(t)*sina,Window.Center.Y+cx(t)*sina+cy(t)*cosa);until t>2*pi;
    angle+=dangle;
  end;
end.
0
0 / 0 / 0
Регистрация: 18.04.2018
Сообщений: 9
05.06.2018, 22:52  [ТС] 3
В паскале выдает ошибки(
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32244 / 20884 / 8086
Регистрация: 22.10.2011
Сообщений: 36,119
Записей в блоге: 7
05.06.2018, 22:58 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses GraphABC;
const a=100;b=123;dt=0.1;n=12;dangle=pi/n*2;
function cx(t:Real):=a*cos(t)**2+b*cos(t);
function cy(t:Real):=a*cos(t)*sin(t)+b*sin(t);
begin
  var angle := 0.0;
  loop n do begin
    var t:=0.0;var(sina,cosa,x,y):=(sin(angle),cos(angle),cx(t),cy(t));
    MoveTo(Window.Center.X+Trunc({cx(t)}x*cosa-{cy(t)}y*sina),Window.Center.Y+Trunc({cx(t)}x*sina+{cy(t)}y*cosa));
    repeat t+=dt;LineTo(Window.Center.X+Trunc(cx(t)*cosa-cy(t)*sina),Window.Center.Y+Trunc(cx(t)*sina+cy(t)*cosa));until t>2*pi;
    angle+=dangle;
  end;
end.
Миниатюры
Улитка паскаля  
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2018, 22:58
Помогаю со студенческими работами здесь

Графика, улитка Паскаля.
Помогите Решить задачу, Пожалуйста ! :( Построить кривые по заданному параметрическому...

Как сделать так что массив поворачивался как улитка
Дана задача "Улитка". Ввести число n и заполнить двумерный массив размера 5 х 5 числами 1,2, 3,...

Улитка Паскаля
Доброго времени! Вопрос: кто может написать код для Улитки Паскаля на Delphi? Буду очень благодарен...

Улитка паскаля


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

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

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