Форум программистов, компьютерный форум, киберфорум
C++
Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ "Замок" (на перебор с возвратом) https://www.cyberforum.ru/ cpp/ thread210070.html
Написать программу, которая определяет: количество комнат в замке; площадь наибольшей комнаты; какую стену в замке следует удалить, чтобы получить комнату наибольшей площади. Замок...
Модуль расчёта пространственного заряда C++
Модуль расчёта пространственного заряда PIC-методом для ячеек конечно-разностной схемы и CIC-методом для конечно-разностной ячейки Исходные данные: 1) Координаты и размеры ячеек-параллелепипедов....
Использование функций в коде программы C++
Дана целочисленная квадратная матрица. Определить: сумму элементов в тех строках, которые не содержат отрицательных элементов; минимум среди сумм элементов диагоналей, параллельных главной...
C++ Циклы Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр (операции деления и нахождения остатка от деления не использовать) https://www.cyberforum.ru/ cpp/ thread209439.html
C++ Курсовой проект (С++) https://www.cyberforum.ru/ cpp/ thread209388.html
Препод дал задание по программированию( C ++). Сам я электрик, ничерта не смыслю в программировании. Нашел ваш форум в надежде что вы поможете. Спасибо! ЗАДАНИЕ на курсовую работу По...
нужны решения (С++, Microsoft Visual Studio 2008(Компилятор)) C++
Всем доброе время суток вобщем у меня проблема заболел не был на занятиях в академии а нужны решенные 4 задачи, вообщем в задачах можно использовать if, switch, for(цикл), сопсна только это нам...
C++ Написать функцию TEST(A,k)
Написать функцию TEST(A,k), принимающую значение True, если се элементы k-й строки четные и положительные.
C++ классы Здравствуйте! Помогите, пожалуйста, написать задачу на С++ по классам. Вот текст: Класс «Человек» Поля: имя, рост, вес Метод: сказать свой индекс массы тела I = m/(h*h) • m — масса тела в... https://www.cyberforum.ru/ cpp/ thread209179.html
C++ Залить цветом полумесяц https://www.cyberforum.ru/ cpp/ thread209125.html
Здравствуйте. Помогите пожалуйста. Преподователь задал нарисовать флаг любой страны. Я выбрал флаг Ирака. Флаг нарисовал, осталось залить синим цветом полумесяц. Кто ответит буду очень благодарен. ...
C++ поиск слова в тексте помогите пожалуйста, очень нужна программка, которая ищет по координатам заданное слово в заданном тексте. И выдает номер этого слова в исходном тексте. Очень и очень, заранее вам благодарна! ... https://www.cyberforum.ru/ cpp/ thread208525.html
0 / 0 / 1
Регистрация: 11.12.2010
Сообщений: 7
0

перевести код с паскаля на С++

13.12.2010, 17:51. Просмотров 1248. Ответов 1
Метки (Все метки)

Доброго времени суток! у меня большая просьба: имеется код на паскале, программа, которая рисует дерево, из каждой ветки растут новые 2. Помогите пожалйста перевести этот код на С++. Заранее спасибо!

Добавлено через 36 секунд
Program Tree;
Uses Graph, CRT;
var
D, R, e : Integer;
i, j : Word;
Ar : array[1..512] of Real;
Ar1 : array[1..512] of Real;
delta : Real;
NumPoint : Word;
begin
D := Detect;
InitGraph(D, R, '');
e := GraphResult;
if e <> grOk then
begin
WriteLn('Ошибка инициализации графического режима!(ошибка ', e,')');
WriteLn(GraphErrorMsg(e));
Halt($FA00+e);
end;
NumPoint := 1;
Ar[1]:=320;
for i := 0 to 9 do
begin
NumPoint := Round(exp(1.0*i*Ln(2)));
delta := 640.0/(NumPoint*1.0+1.0);
for j := 1 to 512 do Ar1[j] := Ar[j];
Ar[1] := delta;
for j := 2 to NumPoint do
Ar[j] := Ar[j-1] + delta;
for j := 1 to NumPoint div 2 do
begin
if (2*j-1) mod 15 <> 0 then
SetColor((2*j-1) mod 15) else
SetColor(Green);
Line(Round(Ar1[j]-1),529-50*i,Round(Ar[2*j-1]-1),529-50*(i+1));
if (2*j) mod 15 <> 0 then
SetColor((2*j) mod 15) else
SetColor(Red);
Line(Round(Ar1[j]-1),529-50*i,Round(Ar[2*j]-1),529-50*(i+1));
end;
end;
ReadKey;
CloseGraph;
end.

Вернуться к обсуждению:
перевести код с паскаля на С++
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2010, 17:51
Готовые ответы и решения:

Каким образом можно перевести код Паскаля в код Фортран?
Здравствуйте уважаемые программисты! Может быть банальная, но довольно сложная проблема - перевод...

Как перевести код с паскаля на Java. Пытался сам но код не хочет работать переведенный
А сам код на паскале работает. Вот код на паскале var i,j,m,c,d: integer; A:array of...

Перевести код с Паскаля на Си
Думаю Вам не составит труда ). А я запутался) uses crt; var N,M:integer; function...

Перевести код паскаля в с++
Нужно перевести данный код паскаля в с++. Задание: Найти в строке все заданные последовательности...

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