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

двасапога

Помогите перевести данный код написанный в c++ на Delphi
#include<stdio.h>
#include<conio.h>
#include<graphics.h>
main ( )
{
int gdriver = DETECT, Gmode, i;
initgraph (&gdriver, &Gmode, "c:\\prg\\TC\\bgi");
setcolor(6);
setfillstyle (1,6);
circle (320,240, 15);
floodfill (320, 240, 6);
setcolor (6);
setfillstyle (1,6);
circle (290, 239, 15);
floodfill (290, 239, 6);
setcolor (6);
setfillstyle (1,6);
circle (267, 220, 15);
floodfill (267,220, 6);
setcolor (6);
setfillstyle (1,6);
circle (250, 195, 15);
floodfill (250, 195, 6);
setcolor (6);
setfillstyle (1,6);
circle (245, 165, 15);
floodfill (245, 165, 6);
setcolor (6);
setfillstyle (1,6);
circle (250, 135, 15);
floodfill (250, 135, 6);
setcolor (6);
setfillstyle (1,6);
circle (245, 105, 15);
floodfill (245, 105, 6);
setcolor (6);
setfillstyle (1, 6);
circle (225, 82, 15);
floodfill (225, 82, 6);
setcolor (6);
setfillstyle (1,6);
circle (195, 80, 15);
floodfill (195, 80, 6); 
setcolor (6);
setfillstyle (1,6);
circle (165, 84, 15);
floodfill (165, 84, 6);
 
setcolor (6);
setfillstyle (1,6);
circle (125, 95, 26);
floodfill (125,95, 6);
line(90,95,100,95);
line(90,95,80,85);
line(90,95,80,105);
setcolor (6);
setfillstyle (1,6);
circle (350, 235, 15);
floodfill (350, 235,6);
setcolor (6);
setfillstyle (1,6);
circle (375, 220, 15);
floodfill (375, 220,6);
setcolor (6);
setfillstyle (1,6);
circle ( 398, 200, 15);
floodfill (398, 200, 6);
setcolor (6);
setfillstyle (1,6);
circle ( 415, 175, 15);
floodfill ( 415, 175, 6);
setcolor (6);
setfillstyle (1,6);
circle ( 440,160,15);
floodfill (440, 160, 6);
setcolor (6);
setfillstyle (1,6);
circle ( 469, 150, 15);
floodfill (469, 150, 6);
setcolor (6);
setfillstyle (1,6);
circle ( 505, 150, 20);
floodfill( 505, 150, 6);
while (!kbhit ( ));
getch ( );
closegraph ( );
return 0;
}
1 ответ

двасапога

Жестокий набор функций, а что там сложного не написать, просто используя функции имеющиеся в дельфи с имеющимися аргументами.