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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Копирование текстов с сайта в вордовский документ http://www.cyberforum.ru/cpp-beginners/thread1022805.html
Доброго времени суток. Возникла у меня такая задача: скопировать тексты заданий с сайта mathege.ru в вордовский документ. Проблема состоит в том, что каждый текст задачи находится по новому адресу,...
C++ Можно ли обойти ограничение на максимальный размер массива ? error C2148: total size of array must not exceed 0x7fffffff bytes Ну собственно Visual Studio 2012, платформа x64, при попытке создать массив из 10-и миллиардов элементов unsigned *test = new unsigned; получаю резонный error: error C2148: total size of array... http://www.cyberforum.ru/cpp-beginners/thread1022803.html
Копирование первой половины строки во вторую C++
Написать программу копирования первой половины, введенной строки, в другую строку. Заранее спасибо.
C++ Как расчитать растояние на координатной плоскости напрямую?
по пиратской карте даются указания куда идти (направление и число шагов) шаги всегда целые нужно расчитать расстояние напрямую до конечной точки с тосностью до 0.001шага каким оператором это можно...
C++ Visual Studio C++. Вылетает ошибка при компиляции. Задание на матрицы http://www.cyberforum.ru/cpp-beginners/thread1022793.html
// dz325.11.13.cpp : Defines the entry point for the console application. // #include "stdafx.h" #include<iostream> using namespace std; int main() { cout<<"Vvedite razmer pervoi...
C++ Максимально значение одномерного массива С помощью функции осуществить поиск максимального элемента одномерного массива. Помогите, пожалуйста. Желательно код попроще, на Borland 3.1, но не принципиально, разберусь. подробнее

Показать сообщение отдельно
Bigtrocky
0 / 0 / 0
Регистрация: 25.11.2013
Сообщений: 12

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

29.11.2013, 12:10. Просмотров 160. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.