нарисовать олимпийские кольца в abc pascal
10-11 класс
|
Сначала обычный шаблон паскаля (program, var и т. д.)
потом writeln(...) там рисуешь кольца с помощью разных знаков(/ . _- |\)
uses graphABC;
function ris(x,y,r,n:integer):integer;
begin
if n=0 then ris:=0
else
begin
circle(x,y,r);
dec(n);
ris:=ris(x+round((r-r/3)*cos(pi/3)),y-round((r-r/3)*sin(pi/3)),r div 3,n);
ris:=ris(x+round((r-r/3)*cos(2*pi/3)),y-round((r-r/3)*sin(2*pi/3)),r div 3,n);
ris:=ris(x+round((r-r/3)*cos(pi)),y-round((r-r/3)*sin(pi)),r div 3,n)
ris:=ris(x+round((r-r/3)*cos(4*pi/3)),y-round((r-r/3)*sin(4*pi/3)),r div 3,n);
ris:=ris(x+round((r-r/3)*cos(5*pi/3)),y-round((r-r/3)*sin(5*pi/3)),r div 3,n);
ris:=ris(x+round((r-r/3)*cos(2*pi)),y-round((r-r/3)*sin(2*pi)),r div 3,n);
end
end;
var x,y:integer;
begin
x:=windowwidth div 2;
y:=windowheight div 2;
ris(x,y,200,5);
end.
Другие вопросы из категории
Получить исходное число : 230+8 в 10ричной системе
1) В+(АvВ)
2) А+(Вv отриц.В)
3)А+(АvBvC)
4)AvBvC в отриц. и все в отриц.
затем поменять местами символы A и Y, то полученная последовательность и будет паролем. Определите пароль
Читайте также
Задача 1
Определить долю гласных букв в заданном тексте на английском языке.
нарисовать шарики чтоб двигались вот в таком порядке
получить от 5 до 15 баллов (Сгенерить случайные числа