Дастурлашни ўҚитиш муаммолари: рекурсияни массивларга татбиқ Қилиш


Download 77.1 Kb.
bet4/4
Sana17.06.2023
Hajmi77.1 Kb.
#1526001
1   2   3   4
Bog'liq
dasturlashni oqitish muammolari rekursiyani massivlarga tatbiq qilish

program Quitsort; uses crt; Const N=10; Type Mas=array[1..n] of integer; var a: mas; k: integer; function Part(l, r: integer):integer; var v, i, j, b: integer; begin V:=a[r]; I:=l-1; j:=r; repeat repeat dec(j) until (a[j]<=v) or (j=i+1); repeat inc(i) until (a[i]>=v) or (i=j-1); b:=a[i]; a[i]:=a[j]; a[j]:=b; until i>=j; a[j]:=a[i]; a[i]:= a[r]; a[r]:=b; part:=i; end; procedure QuickSort(l, t: integer); var i: integer; begin if l
  • program Quitsort; uses crt; Const N=10; Type Mas=array[1..n] of integer; var a: mas; k: integer; function Part(l, r: integer):integer; var v, i, j, b: integer; begin V:=a[r]; I:=l-1; j:=r; repeat repeat dec(j) until (a[j]<=v) or (j=i+1); repeat inc(i) until (a[i]>=v) or (i=j-1); b:=a[i]; a[i]:=a[j]; a[j]:=b; until i>=j; a[j]:=a[i]; a[i]:= a[r]; a[r]:=b; part:=i; end; procedure QuickSort(l, t: integer); var i: integer; begin if l

Фойдаланилган адабиётлар рўйхати

  • Фойдаланилган адабиётлар рўйхати
  • 1. Бердж В. Методы рекурсивного программирования. –М: Машиностроение, 1983. -248 с.
  • 2. Долинский М. С. Алгоритмизация и программирования на TURBO PASCAL: от простых до олимпиадных задач. –СПБ.Питер, 2006. -237 с.

Эътиборингиз учун рахмат !


Download 77.1 Kb.

Do'stlaringiz bilan baham:

1   2   3   4




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling