içe

Bu dersimizde iç içe rastgele kare oluşturmayı öğrenelim. Yaptığınız işlemde butona her tıklandığında formun rastgele bir yerinde iç içe geçmiş kareyi oluşturacaktır. Kodlar şu şekilde: Procedure Tform1. Button1 click (sender:object); Var Mx,my integer Begin Randomize x:= trunc (...