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

Перевести код с Pascal - C++

Восстановить пароль Регистрация
 
TrueLove
0 / 0 / 0
Регистрация: 20.06.2013
Сообщений: 30
20.06.2013, 14:56     Перевести код с Pascal #1
помогите перевести 2 программы из паскаль в С++

1)
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
uses graphABC;
begin
setwindowsize(500,500);
setpenwidth(4);
arc(250,200,50,-90,90);
arc(250,320,70,-90,90);
line(230,150,250,150);
line(230,250,250,250);
line(230,390,250,390);
line(230,150,230,390);
floodfill(260,200,clbrown);
floodfill(260,320,clbrown);
setbrushcolor(clcream);
circle(230,100,50);
arc(240,150,30,30,-190);
floodfill(240,140,clbrown);
setbrushcolor(clwhite);
circle(240,90,20);
ellipse(240,75,260,105);
setbrushcolor(clblack);
circle(250,90,5);
arc(350,150,100,130,-200);
arc(220,40,100,-60,0);
arc(270,43,35,-60,90);
arc(344,40,25,40,-170);
 
line(290,180,390,140);
line(390,140,380,60);
line(380,60,400,50);
 
line(300,200,390,230);
line(390,230,400,180);
line(400,180,420,180);
 
line(230,180,110,170);
line(110,170,150,100);
line(150,100,130,80);
 
line(230,210,140,240);
line(140,240,120,290);
line(120,290,100,270);
 
line(320,310,380,370);
line(380,370,350,430);
line(350,430,380,430);
 
line(310,360,330,380);
line(330,380,250,430);
line(250,430,280,430);
end.
 
вот вторая)
 
uses graphABC;
begin
setpenwidth(3);
setwindowsize(400,500);
ellipse(120,350,280,480);
circle(200,300,60);
circle(200,210,40);
line(170,90,230,90);
line(160,180,240,180);
line(170,90,160,180);
line(230,90,240,180);
floodfill(200,173,clblack);
floodfill(200,123,clblack);
 setbrushcolor(clblack);
circle(190,200,5);
circle(210,200,5);
line(200,210,220,220);
line(200,220,220,220);
line(200,210,200,220);
floodfill(204,214,clblack);
setpenwidth(5);
arc(200,230,10,180,0);
line(70,320,170,250);
line(230,250,330,300);
line(300,450,350,200);
 
line(350,200,320,140);
line(350,200,340,140);
line(350,200,360,140);
line(350,200,380,140);
line(350,200,400,140);
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.06.2013, 14:56     Перевести код с Pascal
Посмотрите здесь:

Перевести код с С++ в С и Pascal C++
C++ Перевести код с Pascal
Перевести код с Pascal C++
Перевести код с Pascal C++
Перевести код с Pascal C++
C++ Перевести код с Pascal
C++ Перевести код с Pascal - C++
Перевести код из Pascal в с++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
tzeentch
 Аватар для tzeentch
24 / 24 / 2
Регистрация: 13.04.2013
Сообщений: 79
20.06.2013, 15:26     Перевести код с Pascal #2
Это "в С++" перевести не получится. Стандартная библиотека С++ рисовать не умеет. Укажите систему, под которую это нужно сделать.
Yandex
Объявления
20.06.2013, 15:26     Перевести код с Pascal
Ответ Создать тему
Опции темы

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