Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Bigtrocky
0 / 0 / 0
Регистрация: 25.11.2013
Сообщений: 12
#1

С паскаля на С++ - C++

29.11.2013, 12:10. Просмотров 153. Ответов 0
Метки нет (Все метки)

Помогите пожалуйста перевести на С. Вот само задание Графика. Построить спираль вокруг начала координат с n витками и внешним радиусом r

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
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.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2013, 12:10
Здравствуйте! Я подобрал для вас темы с ответами на вопрос С паскаля на С++ (C++):

С паскаля в С++ - C++
{task array6} const maxSize=100; type Tarr=array of integer; var m:Tarr; i,n,a,b:integer; begin repeat

С Паскаля на С++ - C++
program Matrix25; var MAx,Sum,num,j,i,M,N:integer; a: array of integer; begin // Ввод данных writeln('Введите числа M (M&lt;=10)...

С Паскаля на С++ - C++
Кто способен переделать программу, написанную на Паскале, на С++?

С Паскаля на С++ - C++
Дана целочисленная матрица размера M × N. Найти количество ее строк, все элементы которых различны. ...

с паскаля на с++ - C++
Всем добрый день. помогите перевести с паскаля на с++. Буду очень благодарен Program zarplata; uses dos,crt,BD; type Tbass=record ...

Из паскаля в С++ - C++
Program lab5; Var a:array of integer; n,I,min,k:integer; P:longint; s:real; Begin Writeln('введите размерность массива'); ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2013, 12:10
Привет! Вот еще темы с ответами:

с паскаля на Си++ - C++
uses crt; var a:array of integer; i,n,max,min:integer; c:char; begin ClrScr; repeat writeln('Выберите действие:');...

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

из паскаля в С++ - C++
Здравствуйте! Помогите пожалуйста перевести код программы в паскале на С++: Program Example; uses crt; Type mas=array of Integer; ...

Из Паскаля в С++ - C++
Здравствуйте. Помогите переписать этот код на C++. Сам пробовал, но не получается. var a,b:string; begin assign(input,'input.txt');...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru