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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
TrueLove
0 / 0 / 0
Регистрация: 20.06.2013
Сообщений: 30
#1

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

20.06.2013, 14:56. Просмотров 415. Ответов 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.06.2013, 14:56
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести код с Pascal (C++):

Перевести код c Pascal в C++ - C++
uses Crt; function Fun(a,b,c:integer):boolean; begin if a<(b+c) then Fun:=true else Fun:=false; end; var ...

Перевести код из Pascal в C++ - C++
Помогите пожалуйста. begin for i := 1 to n do begin P :=i; C := 1 ; PR:=истина; end; C := 0; write(P,...,P); i := 1; ...

Перевести код с С++ в С и Pascal - C++
кароч люди мну дали задание....... мну нада перевести з одного с(си) в другой с(си) и потом в паскаль.... кто может помогите: #include...

Перевести код из Pascal в с++ - C++
Нужно перевести из паскаля в с++ две программы, кот. интегрируют методом симсона и трапеций соответственно. Заранее спасибо, форумчане)) ...

Перевести код с Pascal - C++
program sro3_2; var A,B,C:array of integer; n,k,l,i:integer; ...

Перевести код с Pascal - C++
первая: program lab2; uses crt; label M1; var n:integer; begin clrscr; M1:writeln('Введите целое число n от1 до 5'); ...

1
tzeentch
25 / 25 / 2
Регистрация: 13.04.2013
Сообщений: 79
20.06.2013, 15:26 #2
Это "в С++" перевести не получится. Стандартная библиотека С++ рисовать не умеет. Укажите систему, под которую это нужно сделать.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.06.2013, 15:26
Привет! Вот еще темы с ответами:

Перевести код с Pascal - C++
uses crt; const nmax=20; var a:array of integer; n,i,d:integer; f:boolean; begin repeat write('Размер массива до...

Перевести код из Pascal на C++ - C++
Нужно произвести удаление узла из сбалансированного дерева. В С++ я не бум-бум, помогите пожалуйста. Вот сам код: procedure...

Перевести код с Pascal - C++
нужно написать программу на C++ из паскаля program pr1; uses crt; const WG=100; type tmasi=array of integer; var a:tmasi;...

Перевести код с Pascal - C++
есть код на Pascale,перевести на СИ


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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