Необходимо перевести код программы с Паскаля на С++

@Ольга Артуровна · Регистрация: 10.12.2012

Pascal

uses graphABC;
var x,y,x0,y0,x1,y1,a,j,i,c:integer;
 
t:real;
begin
y1:=0;y0:=0;
for i:=1 to 5 do
begin
x0:=0;
 
x1:=0;
c:=clblue;
for j:=1 to 10 do
begin
t:=0;
a:=19;
 
while t<=6.28 do
begin
x:=x0+round(2*a*cos(t)*(1+cos(t)));
y:=y0+round(2*a*sin(t)*(1+cos(t)));
putpixel(x,y,c);
t:=t+0.001;
end;
t:=0;
a:=19;
while t<=6.28 do
begin
x:=x1-round(2*a*cos(t)*(1+cos(t)));
y:=y1-round(2*a*sin(t)*(1+cos(t)));
putpixel(x,y,c);
t:=t+0.001;
end;
x0:=x0+100;
x1:=x1+100;
end;
y0:=y0+100;
y1:=y1+100;
end;
end.

@gunslinger · 21.10.2013, 14:01

C++

#include <Math.hpp>
....................................
int x,y,x0,y0,x1,y1,a,j,i,c;
float t;
y1=0;y0=0;
c=clBlue;
Form2->Canvas->Pen->Color = c;
for (i=1; i<6; i++)
{
  x0=0;
  x1=0;
  for (j=1; j<11; j++)
  {
    t=0;
    a=19;
    while (t<=6.28)
    {
      x=x0+SimpleRoundTo(2*a*Cos(t)*(1+Cos(t)),0);
      y=y0+SimpleRoundTo(2*a*Sin(t)*(1+Cos(t)),0);
//    SetPixel(Form2->Handle,x,y,c);
      Form2->Canvas->Ellipse(x,y,x+2,y+2);
      t=t+0.001;
    }
    t=0;
    a=19;
    while (t<=6.28)
    {
      x=x1-SimpleRoundTo(2*a*Cos(t)*(1+Cos(t)),0);
      y=y1-SimpleRoundTo(2*a*Sin(t)*(1+Cos(t)),0);
//    SetPixel(Form2->Handle,x,y,c);
      Form2->Canvas->Ellipse(x,y,x+2,y+2);
      t=t+0.001;
    }
    x0=x0+100;
    x1=x1+100;
  }
  y0=y0+100;
  y1=y1+100;
}

@Ольга Артуровна · 05.11.2013, 23:34 **[ТС]**

Большое Вам спасибо.

@Ольга Артуровна 0 / 0 / 0 Регистрация: 10.12.2012 Сообщений: 10
	05.11.2013, 23:34 [ТС]	3
	Большое Вам спасибо. 0

Опции темы

Необходимо перевести код программы с Паскаля на С++

Решение