Mungkin bagi yang udah mahir pascal, program ini udah tidak asing lagi. Namun bagi yang awam alias yang baru belajar pascal, program ini sangat penting buat pembelajaran. Program ini menggukan fungsi length yang ada di dalam pascal. Fungsi length digunakan untuk menghitung jumlah karakter dari sebuah teks/string. Berikut ini contoh program menghitung jumlah karakter dari sebuah nama dengan menamnahkannya kedalam baris procedure.
Kode program:
program HitungJmlNama;
uses wincrt;
var
nama:string;
{Procedure HitungNama}
procedure HitungNama(nm:string);
var
jml_nama:integer;
begin
jml_nama:=length(nm);
writeln('Panjang nama Anda adalah ',jml_nama,' karakter');
end;
{Program Utama}
begin
write('Nama : ');readln(nama);
HitungNama(nama);
end.
Selamat mencoba, semoga bermanfaat....
Cetak
Artikel Lain :