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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ "Замок" (на перебор с возвратом) http://www.cyberforum.ru/cpp/thread210070.html
Написать программу, которая определяет: количество комнат в замке; площадь наибольшей комнаты; какую стену в замке следует удалить, чтобы получить комнату наибольшей площади. Замок условно разделен на M*N клеток (М<=50, N<=50). Каждая такая клетка может иметь от 0 до 4 стен.
C++ Модуль расчёта пространственного заряда Модуль расчёта пространственного заряда PIC-методом для ячеек конечно-разностной схемы и CIC-методом для конечно-разностной ячейки Исходные данные: 1) Координаты и размеры ячеек-параллелепипедов. 2) Набор трубок тока в виде последовательностей отрезков прямой с заданными параметрами: – координаты концов отрезков; – распределение заряда на каждом отрезке. парни может ктонибудь... http://www.cyberforum.ru/cpp/thread209977.html
Использование функций в коде программы C++
Дана целочисленная квадратная матрица. Определить: сумму элементов в тех строках, которые не содержат отрицательных элементов; минимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы. Отдельно написал два кода: Дана целочисл. квадр. матр. Найти сумму эл-тов в тех строках, которые не содержат отриц. эл-тов.
C++ Создать новый файл, где удалены все числа, являющиеся полными квадратами
Помогите решить данную зачётную задачу в Си: В файле записана непустая последовательность целых чисел (целое- непустая последовательность десятичных цифр, возможно начинающаяся знаком + или-). Создать новый файл, где удалены все числа, являющиеся полными квадратами
C++ Циклы http://www.cyberforum.ru/cpp/thread209439.html
Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр (операции деления и нахождения остатка от деления не использовать)
C++ Курсовой проект (С++) Препод дал задание по программированию( C ++). Сам я электрик, ничерта не смыслю в программировании. Нашел ваш форум в надежде что вы поможете. Спасибо! ЗАДАНИЕ на курсовую работу По дисциплине: ПРОГРАММНЫЕ СРЕДСТВА МОДЕЛИРОВАНИЯ ЭЛЕКТРОННОЙ КОМПОНЕНТНОЙ БАЗЫ Вариант № 6 . Название курсовой работы: Модуль дискретизации расчетной области для МКР. подробнее

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

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

13.12.2010, 17:51. Просмотров 512. Ответов 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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru