Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
therealtip
1 / 1 / 0
Регистрация: 29.05.2014
Сообщений: 36
1

Как переделать код из паскаля в с++

08.12.2014, 08:51. Просмотров 277. Ответов 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
uses graph,crt;
var x,y,d,i,j:integer;
procedure CircleK(xc,yc,r:integer);
procedure sim(x,y:integer);
begin
putpixel(x+xc,y+yc,Red);
putpixel(x+xc,-y+yc,Red);
putpixel(-x+xc,-y+yc,Red);
putpixel(-x+xc,y+yc,Red);
putpixel(y+xc,x+yc,Red);
putpixel(y+xc,-x+yc,Red);
putpixel(-y+xc,-x+yc,Red);
putpixel(-y+xc,x+yc,Red);
end;
begin
d:=1-2*r;
x:=0;
y:=r;
while(x<=y) do
begin
sim(x,y);
if d<0  then
d:=d+4*x+6
else
begin
d:=d+4*(x-y)+10;
y:=y-1;
end;
x:=x+1;
end;
end;
begin
i:=9;
j:=2;
initgraph(i,j,'');
circleK(320,270,100);
readln;
closegraph;
end.
Помогите пожалуйста переделать код, нужна такая прога в с++
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2014, 08:51
Ответы с готовыми решениями:

Переделать код из Паскаля в С++
Type mas = Array of Real; {--------------} Procedure Sort(var a: mas; n: Byte); var i,j:...

Переделать код из Паскаля в С++
program Param40; type St=String; var S:St; i,K:integer; Function...

Переделать код программы с паскаля на с++
Нужно перевести код с паскаля на с++ Program Podrazdelenie; Uses crt; Const nmax=20;...

как переделать на с++? с паскаля
function aaa(x: integer):boolean; var b: integer; begin b:=1; While...

Код написан в Dev C. Не работает в Visual. Как нужно переделать код?
Здравствуйте. Столкнулась с такой проблемой: код был написан в Dev C, но в Visual он выдаёт...

1
nmcf
6399 / 5661 / 2580
Регистрация: 14.04.2014
Сообщений: 23,960
08.12.2014, 17:36 2
Это программа времён DOS, просто так не переделать, здесь форму нужна.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2014, 17:36

Как можно перевести этот код с паскаля в с++?
program razbienie_mnozhestwa(input,output); var i,j,k,n:byte;wper:arrayof boolean;...

Как можно перевести этот код с паскаля в с++?
uses crt; const n=10; var a:array of integer; i,j,p,k:byte; begin...

Переделать с паскаля на с++
Procedure tree (a, n); -------- begin a:=0; a:=0; a:=0; for i:=2 to n do begin k:=1...


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

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

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