Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Перевод с Паскаля на СИ (http://www.tehnari.ru/f41/t99647/)

RuslanShar 21.11.2014 10:13

Перевод с Паскаля на СИ
 
Помогите перевести в с++

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.