Uses Graph, Crt;
Const dT = 0.05;
Var Gr1, Gr2, N, ScaleX, ScaleY : Integer;
  T, Tm : Real;
Begin
  Gr1 := Detect;
  InitGraph(Gr1, Gr2, '');
  DirectVideo := False;
  TextColor(White);
  SetColor(White); SetBkColor(Black);
  ScaleX := GetMaxX Div 2;
  ScaleY := GetMaxY Div 2;
  Write('n = '); ReadLn(N);
  Write('alpha = '); ReadLn(T);
  MoveTo(
    Round(ScaleX + T / 2 * Cos(T)),
    Round(ScaleY - T / 2 * Sin(T))
  );
  Tm := 2 * Pi * N;
  While T < Tm Do
  Begin
    T := T + dT;
    LineTo(
      Round(ScaleX + T / 2 * Cos(T)),
      Round(ScaleY - T / 2 * Sin(T))
    );
  End;
  ReadKey;
  CloseGraph;
End.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

29.11.2013, 12:10

Ответы с готовыми решениями:

Построить треугольник Паскаля. Используя треугольник Паскаля, вычислить 𝑘−ое число Фиббоначчи. Нумерация чисел Фиббона
#include <iostream> using namespace std; int main() { setlocale(LC_ALL, "Russian"); ...

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

Из паскаля в С++
Ребят, помогите, пожалуйста, перевести из паскаля в С++, буду благодарен за помощь. Заранее...

Из паскаля в С++
Начал С++ недавно изучать. Школе писал на паскале. Вот исходник никак немогу перевести на С++....

	29.11.2013, 12:10

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

29.11.2013, 12:10

Помогаю со студенческими работами здесь

Из Паскаля в с++
program z1625018; const m=4;n=5; var i,j:integer; a,b:array of integer; begin ...

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

С паскаля на с++
Помогите переписать код с паскаля на с++. вот код: var a:array of longint; k, n, t,...

С паскаля на с++
Приветствую всех! Я запустил с++ и мне на зачет нужна вроде простая программа, знаю ее на паскале:...

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

Или воспользуйтесь поиском по форуму:

Наверх