Gudang Info yang berisi Berita, Cerita, Hiburan, dan Ilmu Pengetahuan

Thursday, 30 April 2015

Program Pascal Menghitung Banyak Digit Suatu Angka

Program Pascal Menghitung Banyak Digit Suatu Angka
Langkah Algoritma Menghitung Banyak Digit Suatu Angka
Menghitung Banyak Digit Suatu Angka
Bahasa Pascal
Langkah Algoritma Menghitung Banyak Digit Suatu Angka


Input : angka
Proses :    Mengkondisikan “angka” sebagai variable string.
Menghitung karakter input “angka” dengan fungsi “length”
n:=length(angka)
Output : jumlah digit (n)

Program Pascal Menghitung Banyak Digit Suatu Angka
Program Pascal Menghitung Banyak Digit Suatu Angka


Program Hitungdigit;
uses wincrt; 

var
   angka:string; 
   pilihan:char;
   y    :integer;
   

label lagi;

begin
     lagi:
     Clrscr;

     writeln('                  --MENGHITUNG BANYAK DIGIT SUATU BILANGAT BULAT--');
     write('Masukkan suatu bilangan bulat: ');
     readln(angka);
     y:=length(angka);
     writeln('Jumlah digit=',y);
     write('Coba lagi?[Y/T]'); readln(pilihan);
     if (pilihan = 't') or (pilihan = 'T') then
        begin
             writeln('Terima Kasih');
        end;
        if (pilihan = 'y') or (pilihan = 'Y') then
goto lagi;
end.

Kumpulan Program Pascal Tentang Matematika:
Kunjungi: Kumpulan Program Pascal

0 comments:

Post a Comment