Assalamualaikum, wr, wb. Salam Cyber untuk sahabat blogger semua. Gue barusan terima tugas alpro. Gue an teman sekampus memiliki permasalahan yang sama, ehm yaitu tugas pertama untuk pertemuan pertama. Dan tugasnya adalah algoritma penghitung karakter ?

Oke, secara umum langkah yang akan dilakukan oleh program kita adalah membaca masukkan, lalu memulai menjumlahkan dari karakter pertama sampai akhir. Mengingat ada banyak karakter yang diketahui oleh program pascal karena itu kita akan membagi dua karakter:
  • Karakter huruf dengan banyak karakter  'A' to 'Z', 'a' to 'z'. Mengapa huruf kapital dan kecil dibedakan? Karena program pascal membedakan keduanya dengan arti apabila dalam suatu teks terdapat karakter 'A' dan 'a', maka program pascal akan menghitung keduanya.
  • Karakter selain dari karakter diatas.
Langkah terakhir adalah menjumlah karakter keduanya, gimana sahabat blogger semua? Silahkan  untuk mengomentarinya, saran dan masukkan semua sangat diperlukan, trims.
Berikut adalah Algoritmanya:
Algoritma penghitungkarakter
DEKLARASI
   stringInput, x: string
   jumlahHuruf,jumlahNonHuruf,jumlah, i: integer
DESKRIPSI
     read(stringInput)
     x:<--stringInput
     jumlah<--0
     for i<-- 1 to length (x) do
         if (x[i] in ['A'..'Z','a'..'z']) then jumlah<--jumlah + 1
         endif
         jumlahHuruf<--jumlah

         jumlah<--0
         for i:= 1 to length (x) do
         if (not(x[i] in ['A'..'Z','a'..'z'])) then jumlah<--jumlah + 1
         endif
         jumlahNonHuruf<--jumlah
         write(jumlahNonHuruf+jumlahHuruf)
endfor
endfor