Turbo Pascal : des exemples de

Turbo Pascal: sampel diuji kode.

Untuk memudahkan pemahaman dan revisi bahasa turbo pascal, kami mencoba menyusun beberapa kode fungsi dan prosedur yang digunakan dalam pemrograman, misalnya:

Tampilan tanpa redundansi

Akar udara x pada [a, b] metode 1 persegi panjang

Akar udara x pada [a, b] metode trapezoidal 1

Akar udara x pada [a, b] metode 2 persegi panjang

Akar udara x pada [a, b] 2 metode trapesium

Akar udara x pada [a, b] metode 3 persegi panjang

Akar udara x pada [a, b] 3 metode trapesium

Luas segitiga

anagram

Basis lain 10

Basis 10 ke basis Rekursif lainnya

Basis 10 ke basis 2, 8, 16

Basis 2 ke basis 8, 16

Basis 8, 16 ke base2

Perhitungan Pi

Perhitungan Sinus

Perhitungan x mengekspos n Rekursif

kalkulator

Rantai aerasi

Rantai berbeda

Rantai Digandakan

Tiny Chain to Upright Chain

Rantai terbalik

Nomor surat

Peringkat berulang

Peringkat rekursif

kombinasi

Kombinasi rekursif

Perbandingan dua bilangan bulat

Konversi biner dari satu basis biner ke basis biner lainnya

Salin Rantai

Enkripsi kalimat

Tanggal dalam huruf

Divisibility oleh 11

Divisibility oleh 13

Divisibility oleh 2

Divisibility oleh 3

Divisibility oleh 4

Divisibility oleh 5

Divisibility oleh 6

Divisibility oleh 7

Divisibility oleh 9

Meledakkan sebuah lukisan

Persamaan derajat pertama

Persamaan derajat kedua

Ruang ekstra

eksponensial

Faktor Utama

Faktor Iteratif

Faktor Iteratif pertama tanpa bagan

Faktor utama rekursif

Faktor baku rekursif tanpa meja

Faktor Rekursif

Metode Rekursif Rekursif Faktorial

Frekuensi karakter

Jumlah lukisan yang bagus

Ketidaksamaan tingkat 1

Memasukkan posisi dalam sebuah tabel

Persimpangan dua lukisan

Membalikkan String Rekursif

Balikkan meja

Kaprekar

Rantai palindrom terbesar

Akar kuadrat perkiraan

Akar kubik dari bilangan real R

Hari kencan

keesokan harinya

Angka-angka dari sebuah integer dan yang pembagi

Penambahan matriks dua matriks A dan B

Matriks menampilkan min dan maks

Matriks membangun dan menampilkan matriks kesatuan

Matriks menempatkan diagonal ke nol

Multiplikasi matriks dua matriks A dan B

Multiplikasi matriks oleh X nyata

Transposisi matriks dari seorang maTarga

Maksimal meja dua terminal Iteratif

Maksimal satu meja dari dua terminal rekursif

Max dari array ukuran n Iterative

Max dari array ukuran n Rekursif

Maksimum tiga bilangan bulat

Matriks Iteratif Maksimum

Matriks Rekursif Maksimum

Sebutkan yang tinggi

Min dari tabel ukuran n Iterative

Min dari array ukuran n Rekursif

Min dari tabel dua terminal Iteratif

Min dari tabel dua terminal rekursif

Minimal dua bilangan bulat

Minimum dan Maksimum meja

Minimum Maksimum dua bilangan bulat

Nilai rata-rata

Rata-rata antara dua terminal rekursif

Rata-rata antara dua terminal Iteratif

Rata-rata dan peringkat sebuah kelas

Matriks Iteratif Rata-Rata

Medium Recursive Matrix

Tab Rata-rata Rekursif n

Akhir akhir Tab Deborsive Rata-rata

Tabel Iteratif rata-rata

Nomor kubik

Jumlah hari per bulan

Nomor sempurna

Angka romawi ke angka Desimal

Nomor BULAT

Nomor Teman

Angka Pertama

Terjadinya karakter

Terjadinya sebuah kata

palindrom

Palindrom rekursif

Metode rekursif sempurna

kesamaan

Euclide PGCD

GCD Diferensial

Metode rekursif Pgcd 1

Metode Pgcd Rekursif 2

Metode Pgcd Rekursif 3

Posisi Rantai

LCM

PPCM dan GCD

PPCM rekursif

Pertama antara dua terminal Iteratif

pertama antara dua terminal Rekursif

Metode rekursif pertama

Power X oleh Y

piramida

Pythagoras

Root Square

Singkirkan sebuah lukisan

Penelitian dikotomi dalam sebuah tabel

Pencarian dikotomi berulang

Pencarian dikotomi rekursif

Mencari elemen mayoritas

Pencarian sekuensial dalam tabel

Iteratif pencarian berurutan

Pencarian sekuensial rekursif

Kelompokkan sebuah meja

Membalikkan kalimat

Memecahkan persamaan Cos (x) - x = 0

Memecahkan persamaan cos (x) = x

Selesaikan persamaan root x + 1

jam pasir

Masukkan pencarian dalam file

Masukkan tabel dua terminal rekursif

.....