Turbo Pascal: sampel yang diuji kod.
Untuk memudahkan pemahaman dan semakan semula bahasa turbo pascal, kami cuba memasang beberapa kod fungsi dan prosedur yang digunakan dalam pengaturcaraan, contohnya:
Paparkan tanpa redundansi
Akar udara x pada kaedah [a, b] segiempat tepat
Akar udara x pada kaedah trapezoid [a, b] 1
Root udara x pada segi empat tepat [a, b] kaedah 2
Akar udara x pada kaedah [a, b] 2 trapezoid
Akar udara x pada kaedah [a, b] segi tiga
Akar udara x pada kaedah [a, b] 3 trapezoid
Kawasan segitiga
anagrams
Pangkalan lain 10
Asas 10 hingga asas Rekursif lain
Asas 10 hingga asas 2, 8, 16
Base 2 hingga base 8, 16
Asas 8, 16 ke asas2
Pengiraan Pi
Pengiraan Sinus
Pengiraan x mendedahkan n Rekursif
kalkulator
Rantaian berudara
Rangkaian Berbeza
Rantaian Duplicated
Rantaian kecil ke Rantaian Upright
Rantai terbalik
Nombor surat
Kedudukan Iteratif
Kedudukan rekursif
gabungan
Gabungan rekursif
Perbandingan dua bulat
Penukaran binari dari satu asas binari ke pangkalan binari yang lain
Salin Rantai
Penyulitan satu ayat
Tarikh dalam surat
Pembahagian oleh 11
Pembahagian oleh 13
Pembahagian oleh 2
Pembahagian oleh 3
Pembahagian oleh 4
Pembahagian oleh 5
Pembahagian oleh 6
Pembahagian oleh 7
Pembahagian oleh 9
Meletupkan lukisan
Persamaan darjah pertama
Persamaan darjah kedua
Ruang tambahan
eksponen
Perdana Faktor
Faktor Iteratif
Faktor pertama berulang tanpa carta
Faktor perdana rekursif
Faktor mentah rekursif tanpa jadual
Factoriel Recursive
Kaedah Diketik Rekursif Factorial
Kekerapan watak
Jumlah besar lukisan
Ketidaksamaan darjah 1
Memasukkan kedudukan dalam jadual
Persimpangan dua lukisan
Rangka Rekursif Songsang
Invert a table
Kaprekar
Rantai palindrome terbesar
Anggaran kuasa dua persegi
Akar kubik nombor sebenar R
Hari tarikh
hari berikutnya
Nombor integer dan yang merupakan pembahagi
Penambahan matriks dua matriks A dan B
Matriks memaparkan min dan maks
Matriks membina dan memaparkan matriks kesatuan
Matrix meletakkan pepenjuru ke sifar
Perolehan matriks dua matriks A dan B
Perkalian matriks oleh X sebenar
Matrix transposition of a maTrice
Maksimum jadual dua terminal Iteratif
Maksimum jadual dua terminal rekursif
Maksimum pelbagai saiz n Iteratif
Max daripada pelbagai saiz n Recursive
Maksimum tiga bulat
Matriks Iteratif Maksimum
Matriks Rekursif Maksimum
Nyatakan yang tinggi
Min pada jadual saiz n Iteratif
Min pelbagai saiz Rekursif n
Min pada jadual dua terminal Iteratif
Min pada jadual dua terminal rekursif
Minimum dua integer
Minimum dan Maksimum jadual
Maksimum maksimum dua bulat
Gred purata
Purata antara dua terminal rekursif
Purata antara dua terminal Iteratif
Purata dan kedudukan kelas
Matriks Iteratif Purata
Matriks Rekursif Sederhana
Tab Purata Rekursif n
Akhir Tab Purata Rekursif berakhir
Jadual Iteratif purata
Nombor padik
Bilangan hari sebulan
Nombor sempurna
Nombor Rom ke nombor Decimal
Nombor ROUND
Nombor Kawan
Nombor Pertama
Kejadian watak
Kejadian perkataan
palindrome
Palindrome rekursif
Kaedah rekursif yang sempurna
pariti
PGCD Euclide
GCD perbezaan
Kaedah Recursive Pgcd 1
Kaedah Pgcd Recursive 2
Kaedah Pgcd Recursive 3
Kedudukan Rantai
LCM
PPCM dan GCD
PPCM rekursif
Pertama antara dua terminal Iteratif
pertama di antara dua terminal Recursive
Kaedah rekursif pertama
Kuasa X oleh Y
piramid
Pythagoras
Root Square
Letakkan lukisan
Penyelidikan dikotom di dalam jadual
Pencarian dichotomic Iteratif
Carian dikotomik rekursif
Mencari unsur majoriti
Carian pantas dalam jadual
Pencarian berturut-turut Iteratif
Carian berurutan rekursif
Kumpulan jadual
Membalikkan ayat
Selesaikan persamaan Cos (x) - x = 0
Selesaikan persamaan cos (x) = x
Selesaikan persamaan akar x + 1
hourglass
Masukkan carian dalam fail
Masukkan jadual dua terminal Recursive
.....