Мактабгача таьлим муассасалари тарбияланувчиларининг ақлий тафаккурини шакиллантиришда инноватцион технологияларнинг ўрни

Код программы 
procedure TForm1.Image4Click(Sender: TObject); 
var n,m,k,i,j,d,x,y,t,z,s:integer; 
a:array[byte] of integer; shart:string; 
label 5,10,8; 
begin 
s:=0; 
for t := 1 to 10 do 
begin 
x:=0; y:=0; 
canvas.Pen.Color:=clBTNFace; 
canvas.Brush.Color:=clBTNface; 
for I := 1 to 55 do 
begin 
for j := 1 to 55 do 
begin 
canvas.Ellipse(100+x,100+y,120+x,120+y); 
inc(x,25); 
end; 
x:=0; 
inc(y,25) 
end; 
randomize; 
8: n:=random(45)+5; k:=1; 
for I := 1 to trunc(n/2) do 
if n mod i=0 then 
begin 
a[k]:=i; 
inc(k); 
end; 
if k-1=1 then goto 8; 
5: m:=random(k); if m=0 then goto 5; 
canvas.Pen.width:=3; 
canvas.Pen.Color:=clred; 
x:=0;y:=0; 
canvas.Brush.Color:=cllime; 
shart:=IntToStr(n)+':'+IntToStr(a[m])+'=?'; 
for I := 1 to a[m] do 
begin 
for j := 1 to trunc(n/a[m]) do 
begin 
canvas.Ellipse(100+x,100+y,120+x,120+y); 
inc(x,25); 
end; 
x:=0; 
inc(y,25); 
end; 
edit1.Text:=shart; 
z:=StrToInt(inputbox('vvedite otvet:',shart,'')); 
if z= n/a[m] then s:=s+1; 
end; 
ShowMessage('kolichestvo pravilnix 
otvetov='+inttostr(s)); 
end; 
end. 
Результат: 

---

11 
Усвоение смысла действий предполагает сформированность умения осуществлять переход от 
непосредственного предметного действия или его изображения к числовому выражению или равенству и 
наоборот. Таким образом осознается предметный смысл числовых выражений и равенств.
Этот программа привлечет внимание ученика, кроме того поможет ученику усваивать действие деление 
и тестировать самого себя. 
 
TABIATNI IDROK ETISH XUSUSIYATLARI BILAN QAROR QABUL QILISH O‗RTASIDAGI O‗ZARO