program mengeja_angka;
uses wincrt;
var a:integer;
b,c:integer;
begin
write('bilangan yang anda punyai: ');readln(a);
b:=a div 10;
if a=11 then write('sebelas')
else if a=17 then write('tujuhbelas')
else if a=12 then write('duabelas');
case b of
1:begin write('sepuluh'); end;
2:begin write('dua puluh'); end;
3:begin write('tiga puluh'); end;
4:begin write('empat puluh');end;
5:begin write('lima puluh'); end;
6:begin write('enam puluh'); end;
7:begin write('tujuh puluh'); end;
8:begin write ('delapan puluh');end;
9:begin write('sembilan puluh');end;
end;
c:=a mod 10;
write(' ');
case c of
1:begin write('satu'); end;
2:begin write('dua'); end;
3:begin write('tiga'); end;
4:begin write('empat');end;
5:begin write('lima'); end;
6:begin write('enam'); end;
7:begin write('tujuh'); end;
8:begin write ('delapan');end;
9:begin write('sembilan');end;
end;
end.
Rekursi yaitu procedure atau function yang memanggil dirinya sendiri. Gunanya untuk melakukan proses berulang yang sulit diketahui kapan akan berakhir. Banyak bahasa pemrograman modern mendukung proses rekursi, misalnya Turbo Pascal, Visual Basic, dll. Contoh paling terkenal dari rekursi adalah proses menghitung nilai faktorial dan mencari deret Fibonacci
program contoh_rekursi;
uses wincrt;
var
akhir:word;
procedure Rekursi;
begin
if akhir<200 then
begin write('pascal':15);
write(' ');
akhir:=akhir+1;
rekursi;
end;
end;
begin
akhir:=0;
rekursi;
end.
Minggu, 06 Desember 2009
Langganan:
Posting Komentar (Atom)
MATERI PERKULIAHAN KONSEP MATEMATIKA
Mata kuliah konsep matematika terdiri atas 10 bab, yaitu Bab 1 Pertidaksamaan Kuadrat Bab 2 Relasi dan Fungsi Bab 3 Penyajian ...
-
PROCEDURE Prosedur adalah suatu program terpisah dalam blok sendiri yang berfungsi sebagai subprogram (program bagian). Diawali dengan kata ...
-
KONTRAK PERKULIAHAN MATA KULIAH KONSEP MATEMATIKA Kontrak perkuliahan merupakan rancangan perkuliahan yang disepakati oleh dose...
-
Mata kuliah Konsep Matematika membahas mengenai pemecahan masalah matematika dalam kehidupan sehari-hari yang terkait bidang aritmatika, a...
Tidak ada komentar:
Posting Komentar