I bob. Algoritmlar haqida dastlabki tushunchalar 1-§. Algoritm tushunchasi va ulardan foydalanish

1-misol: kiritilgan n-natural sonni tub ko‘paytuvchilarga 
ajratuvchi algoritmni Pascal dasturlash tilida ifodalanishini ko‘rib 
chiqamiz: 
var i,k:integer; n:integer; 
a:array[byte] of integer; label qq; 
procedure opr(nn:integer); 
begin i:=2; 
while(nn>0) do 
begin 
if nn mod i=0 then write(i,' '); 
i:=i+1; 
nn:=nn div i; 
end; 

---

13 
end; 
begin 
readln(n); 
k:=1; 
for i:=2 to n do 
while (n mod i=0) do 
begin a[k]:=i; write(a[k],' '); n:=n div i ; k:=k+1; end; 
writeln; 
readln; 
end. 
2-misol: 
qiymatini hisoblovchi dastur tuzing. 
procedure TForm1.Button1Click(Sender: TObject); 
var 
h,a,x,d,b,s:real; 
n:integer; 
begin 
a:=0; s:=0; 
b:=5; 
n:=10000; 
h:=(b-a)/n; 
x:=a; 
while (x
begin 
d:=sqr(x); 
s:=s+d*h; 
x:=x+h; 
end; 
end; 
end. 
 
2-§. Algoritmlar samaradorligini baholash 
 
Algoritmlar texnologiya sifatida. 
Kompyuteringizning tezligi va xotira miqdorini abadiy oshirish 
mumkin, deylik. Bu holatda algoritmlar o‘rganish kerakmi? Bor 
bo‘lishi mumkin, lekin faqat namoyish etish uchun, yechim usulini