Algoritm tushunchasi Аlgоritm хоssаlаri Аlgоritmlаrni tаsvirlаsh usullаri

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.


FOYDALANILGAN ADABIYOTLAR RO’YHATI:

1. 
   Thomas H. Cormen va b. Intruduction to algorithms. Massachusetts Institute of Technology. London 2009.(5-10pp)
   
2. 
   Слинкин Д.А.Основы программирования на Турбо-Паскале: Учебно-методическое пособие для студентов вузов. Шадринск: Изд-во Шадринского пединститута, 2003. - 244 с. (10 -p)
   
3. 
   M.U.Ashurov, N.D.Mirzaxmedova .Turbo Pascal dasturlash tili.(uslubiy qo‘llanma),Toshkent TDPU – 2011 (3-10pp)