Перевод с Паскаля на С

[RamilFaz]

Объясните,плиз,как перевести самому прогу с Паскаля на С:

           program Ulitka;
Uses Crt,
Graph;
const
grPath = 'C:\LAN\BP\BGI';
A = 50;
B = 70;
 
var
grDriver, grMode: Integer;
MidX, MidY: Integer; 
g: Integer; 
t: Real; 
X, Y: Real;
 
begin
grDriver := Detect;
InitGraph(grDriver, grMode, grPath);
MidX := GetMaxX div 2;
MidY := GetMaxY div 2;
 
Line(128, MidY, GetMaxX, MidY);
Line(MidX, 8, MidX, GetMaxY);
 
for g := 0 to 360 do begin
t := g * Pi / 180;
X := MidX + A * Sqr(Cos(t)) + B * Cos(t);
Y := MidY + A * Cos(t) * Sin(t) + B * Sin(t);
if g = 0 then
MoveTo(Round(X), Round(Y))
else
LineTo(Round(X), Round(Y));
end;
ReadKey;
CloseGraph;
end.

[Гром]

Как? Примерно так:

uses crt -> #include <graphics.h> (Borland C++)
integer -> int
real -> double/float
begin/end. -> int main() {}
:= -> =
= -> ==
if then else -> if () {} else {}

и т. д.
Синтаксис си знаете? Далее с песнями.
Плюс поиск аналогов некоторых функций, в т.ч. графических (си - язык регистрозависимый, но борландовские функции и там и там имеют похожие названия, разве что в разном регистре, пользуйтесь хелпом для отыскания).

[Stilet]

Че тут переводить то?

const char[] grPath = 'C:\LAN\BP\BGI';
int A = 50;
int B = 70;
int grDriver, grMode,MidX, MidY,g;
float t,X, Y;

void main(){
 grDriver = Detect();
 InitGraph(grDriver, grMode, grPath);
 MidX = GetMaxX() div 2; 
 MidY = GetMaxY() div 2;
 Line(128, MidY, GetMaxX(), MidY);
 Line(MidX, 8, MidX, GetMaxY());

for(g=0;g<=360;g++){
 t= g * Pi / 180;
 X= MidX + A * Sqr(Cos(t)) + B * Cos(t);
 Y= MidY + A * Cos(t) * Sin(t) + B * Sin(t);
 if (g = 0){
   MoveTo(Round(X), Round(Y))
 } else {
   LineTo(Round(X), Round(Y));
 }
}
ReadKey();
CloseGraph();
}

Вот примерно.

[RamilFaz]

Огромное спасибо!!!!=)))