Перевод с Паскаля на СИ
Помогите перевести в с++
uses crt,graph; const nmax=15; var x,y,r1,r2,n,i,r,dr,b:integer; c:array[1..nmax] of integer; m:set of byte; begin clrscr; repeat write('Minimalnyj radius ot 5 do 30 r1='); readln(r1); until r1 in [5..30]; repeat write('Maximalnyj radius ot 150 do 230 r2='); readln(r2); until r2 in [150..230]; repeat write('Kolichestvo voln ot 1 do ',nmax,' n='); readln(n); until n in [1..15]; writeln('Введите порядок цветов от 1 до 15:'); m:=[]; for i:=1 to n do begin repeat write('cv[',i,']='); readln(c[i]); until(c[i] in [1..15])and not(c[i] in m); m:=m+[c[i]]; end; x:=0; initgraph(x,y,''); x:=getmaxX div 2; y:=getmaxY div 2; dr:=round((r2-r1)/(n-1)); r:=r1; repeat for i:=0 to n-1 do begin setcolor(c[i+1]); circle(x,y,r); r:=r+dr; end; delay(1000); b:=c[n]; for i:=n downto 2 do c[i]:=c[i-1]; c[1]:=b; r:=r1; until keypressed; end. |
Часовой пояс GMT +4, время: 21:16. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.