Skip to content

Instantly share code, notes, and snippets.

View mbautin's full-sized avatar

Mikhail Bautin mbautin

View GitHub Profile
@mbautin
mbautin / QSORT.PAS
Created January 9, 2016 03:31 — forked from Fortyseven/QSORT.PAS
An implementation of QuickSort provided by Borland with Turbo Pascal.
{ Turbo Sort }
{ Copyright (c) 1985,90 by Borland International, Inc. }
program qsort;
{$R-,S-}
uses Crt;
{ This program demonstrates the quicksort algorithm, which }
{ provides an extremely efficient method of sorting arrays in }
{ memory. The program generates a list of 1000 random numbers }