end.
2-misol: f* x2d x -
qiymatini hisoblovchi dastur tuzing.
procedure TForml.ButtonlClick(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 bahotash
Algoritm lar 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
13