Kirish 2 I bob asosiy qism 5

1)Joylashtirish usulida:
Amallar soni =(N-1)+2*((N-1)+(N-2)+...+1)+((N-1)+(N- 2)+...+1)+(N-1)=
=2*(N-1)+3*((N-1)+(N-2)+...+1)=2*(N-1)+3*N*(N-1):2=
=(4*(N-1)+3*N*(N-1)):2=(4+3*N)*(N-1):2 ta
2)Oddiy tanlov usulida:
Amallar soni =(N-1)+2*((N-1)+(N-2)+...+1)+2*(N-1) =
= 3*(N-1)+2*N*(N-1):2=(6*(N-1)+N*(N-1)):2 = (6+N)*(N- 1):2 ta
3)Oddiy almashtirish usulida:
Amallar soni =4*((N-1) + (N-2) + ... + 1)=4*N*(N-1):2 = 2*N*(N-1)

II BOB LOYIXA QISMI

2.1 Pascal dasturlash tilida algoritmlarni saralashga doir dasturlar tuzish.

Buning uchun avvalo kompyuterimizga o’rnatilgan Pascal ABC dasturlash tilini ishga tushirib olamiz. Dasturni ishga tushirish uchun Pusk menyusining Vse Programmi bo’limidan Pascal ABC katalogidan Pascal ABC faylini ishga tushirish orqali amalga oshiriladi. Bundan tashqari boshqacha usullar bilan ham dasturni ishga tushirish mumkin, Dasturni ishga tushirganimizda kompyuter ekranimizda quydagi oyna hosil bo’ladi.


Ishga tushgan oynaga quydagi standart ko’rinishda dastur kiritishni boshlaymiz.

2.2 Algoritmlarni saralashga doir misollarni Pascal ABC dagi dastur kodi.

Raqamlarni sodda saralash algoritmiga dastur

Saralagan ro’yxat algoritmiga doir dastur.

Ma’lumotni tez saralash algoritmiga doir misol

Tanlangan ro’yxatni saralash algoritmini dasturi

2.3 Pascal ABC ga kiritligan algoritmga doir masalalarni dastur kodi

Raqamlarni sodda saralash algoritmiga dastur
begin
writeln('Katta vaqt: ');
var count := 0;
var beg := Random(1000000000)+2;
for var i:=beg to beg+5000 do
begin
var f := True;
var j := 2;
var r := round(sqrt(i));
while f and (j<=r) do
if i mod j = 0 then f := false
else j += 1;
if f then
begin
write(i,' ');
Inc(count);
if count mod 5 = 0 then writeln;
end;
end;
end.