Вопрос по информатике:
/Для среды PascalABC
uses graphABC;
const k=6;
var
n,x,y:integer;
procedure snow (x0,y0,r,n:integer);
const t=2*pi/k;
var
i,x,y:integer;
begin
for i:=1 to k do
begin
x:=x0+round(r*cos(i*t));
y:=y0-round(r*sin(i*t));
line(x0,y0,x,y);
if n>1 then snow(x,y,r div 3,n-1);
end;
end;
begin
repeat
writeln('Glubina rekursii do 6:');
readln(n);
until n in [1..6];
x:=WindowWidth div 2;
y:=WindowHeight div 2;
snow(x,y,100,n);
end.
Помогите пожалуйста! Что с этой программой не так? Нужно нарисовать снежинку рекурсией. Программа запускается, а снежинку не рисует!
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.12.2015 11:05
- Информатика
- remove_red_eye 16837
- thumb_up 32
Ответы и объяснения 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.