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

Не могу переписать код - C++

Войти
Регистрация
Восстановить пароль
 
Ricko
0 / 0 / 0
Регистрация: 02.07.2013
Сообщений: 8
09.07.2013, 22:35     Не могу переписать код #1
Помогите пожалуйста переписать на С++.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.07.2013, 22:35     Не могу переписать код
Посмотрите здесь:

Переписать код C++
Переписать код с Си C++
C++ переписать код с++
Переписать код с Паскаля на С++ C++
Переписать код с функцией C++
C++ Переписать код программы
C++ Переписать код с паскаль на С++
C++ Переписать код
Переписать код из Delphi в С++ C++
Переписать код на с++ C++
C++ Переписать код с void -
C++ Переписать код с Java на С++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
alsav22
09.07.2013, 22:39
  #2

Не по теме:

А, хотя бы, переписать код из книги и выложить?

Belfegor
09.07.2013, 22:47
  #3

Не по теме:

там графика... просто не перепишешь

Ricko
0 / 0 / 0
Регистрация: 02.07.2013
Сообщений: 8
09.07.2013, 22:50  [ТС]     Не могу переписать код #4
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
31
32
Program Example_61;
Uses Gpaph;
Var x,y,n,r,r1,cd,gm:Integer;
k1,k2:Real;
Procedure Picture2(x,y,r,r1,n:Integer);
Var x1,y1:Integer;
i:Integer;
Begin
    if n>0 Then
        Begin
circle(x,y,r);
r1:=trunc(r*k2);
For i:=1 to 4 Do
        Begin
x1:=trunc(x+r1*cos(pi/2*i));
y1:=trunc(y+r1*sin(pi/2*i));
picture2(x1,y1,trunc(r*k1),r1,n-1);
        End;
    End;
End;
 
Begin
Writeln('Введите количество уровней n.'); Readln(n);
x:=600 Div 2; y:= 400 Div 2;
Writeln('Введите радиус первой окружности r'); Readln(r);
k1:=0,3; k2:=2;
cd:=detect; gm:=1;
initgraph(cd,gm,'c:\tp7_0\bin');
picture2(x,y,r,r1,n);
Readln;
closegraph;
End.
Yandex
Объявления
09.07.2013, 22:50     Не могу переписать код
Ответ Создать тему
Опции темы

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