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

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

Войти
Регистрация
Восстановить пароль
 
Gygocopter
10 / 10 / 5
Регистрация: 05.02.2014
Сообщений: 124
#1

Перевод кода с Pascal, графика - C++

21.04.2014, 16:21. Просмотров 181. Ответов 0
Метки нет (Все метки)

Код на Паскале
C++
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
uses crt,GraphABC;
const
n=255;
max=10;
var
z,z1,c: complex;
i,ix,iy: integer;
begin
cls;
SetWindowSize(400,300);
c:=(0.6,0.9);
for ix:=0 to WindowWidth-1 do
for iy:=0 to WindowHeight-1 do
begin
z:=0.015*(ix-200,iy-140);
for i:=1 to n do
begin
z1:=0.5*z*z+c;
if abs(z1)>max then break;
z:=z1;
end;
if i>=n then SetPixel(ix,iy,clGreen)
else SetPixel(ix,iy,RGB(255-i,255-i,255));
end;
end.
Переписал на C++
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    int n = 255;
    double max = 10.0;
    Complex z, z1, c;
 
    int i, ix, iy;
    initwindow(700, 700);
    double c = 0.6;
    for (ix = 0; ix <= 699; ix++)
    {
        for (iy = 0; iy <= 699; iy++)
        {
 
            for (i = 1; i <= n; i++)
            {
            z1 = 0.5*z*z + c;
            if ((z1 > max)) break;
            z = z1;
            }
            if (i >= n) putpixel(ix, iy, GREEN);
            else putpixel(ix, iy, RGB(255 - i, 255 - i, 255));
        }
    }
Как исправить ошибки
C++
1
2
3
4
5
1>d:\courstest\main.cxx(319): error C2371: 'c' : redefinition; different basic types
1>          d:\courstest\main.cxx(315) : see declaration of 'c'
1>d:\courstest\main.cxx(327): error C2677: binary '*' : no global operator found which takes type 'Complex' (or there is no acceptable conversion)
1>d:\courstest\main.cxx(328): error C2676: binary '>' : 'Complex' does not define this operator or a conversion to a type acceptable to the predefined operator
========== Build: 0 succeeded, 1 failed, 0 up-to-date, 0 skipped ==========
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.04.2014, 16:21
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перевод кода с Pascal, графика (C++):

Перевод кода с Pascal в C++ - C++
ребятки, помогите с переводом с паскаля на C++ данный код var n,s,t,n1,kk,e1,x,i,ss,h:integer; ///возводит x в степнь e1 по...

Перевод кода с Pascal - C++
Const n=5;m=10; var b:arrayof integer; i,j,k,buf,l:integer; begin for i:=1 to n do begin writeln; ...

Перевод кода с Pascal - C++
var k,n,m:integer; x,s,p,t:real; begin repeat write('x&lt;&gt;0 x=');{х в знаменателе, исключаем заведомое деление на 0} readln(x);...

Перевод кода из Pascal в C++ - C++
Помогите пожалуйста)) Дано: A 5*4 формируемый массив B 5*4, где bij=i+3,если i&gt;=j j-2 - иначе, i=1..5, j=1..4 Условия...

Перевод кода из Pascal в C++ - C++
Нужна ваша помощь в переводе с паскаля ибо не особо знаком с конструкциями си. Код в паскале: Program Princip_Guigensa_Frenelya; uses...

Перевод кода с Pascal - C++
uses crt; const n = 17; var arr: array of integer; sum: integer; i: byte; k,d,e: integer; begin

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.04.2014, 16:21
Привет! Вот еще темы с ответами:

Перевод кода с Pascal - C++
uses crt,graphABC; function y(x:real):real; begin if x&lt;0 then y:=1+sqrt(abs(cos(x*x+1))) else if x&lt;=1 then y:=-2*x-sqr(sin(x)) ...

Перевод кода с Pascal - C++
const p=1; const x=2.1; var t,a,b,y:real; begin write('t='); readln(t); b:=sin(p*p)+Power(x,3); a:=Power(exp(1),...

Перевод кода с Pascal на С++ - C++
uses crt; function Summ(n:longint):byte; var m:longint; s:byte; begin s:=0; m:=n; while m&gt;0 do begin s:=s+m mod...

Перевод кода из Pascal в Си++ - C++
Type ST = Record Num: Integer; Name: String; Fak: String; Group: String; Angl: Integer; Physic: Integer; var Table: Array ...


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

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

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