div без div кажится перевод чисел с десятичной в двоичную систему. Вот последние что недавно сделал сам
uses graph,crt;
var grDriver, grMode, errCode: integer;
procedure kryg(x,y,r:integer);
begin
circle(x,y,r);
// readln;
if r>10 then kryg(x-r,y,r div 2);
if r>10 then kryg(x+r,y,r div 2);
if r>10 then kryg(x,y-r,r div 2);
if r>10 then kryg(x,y+r,r div 2);
end;
begin
grDriver:=detect;
InitGraph(grDriver,grMode,'');
errCode:=GraphResult;
if errCode=grOk then
begin
kryg(getmaxx div 2,getmaxy div 2,100);
writeln('k');
end;
readln;
closegraph;
end.
А другие чего то не получаются такие как кривая коха нашол в интернете пример ее на паскале понел кажится а другие немогу сделать.
Можете дать какие то легкие задания лутше без графики
У меня сейчас задание такое Один большой квадрат а в нем 9 маленьких квадратов нарисовать и так далее в тех еще квадраты. Вот как бы знаю как делать но чего то не получается. Хоть опять можно в интернете найти решение а я эту программку хочу сам решить. но что то не понимаю в рекурсиях