Algoritma Pascal Program Hitung Kata dan Kalimat

Pada kesempatan ini,TS mengambil sedikit waktu luang buat posting algoritma dalam bahasa pemrograman Pascal.Saat ini TS akan share mengenai Algoritma Program Hitung Kata dan Kalimat.Jika sobat masih bingung dengan logika nya,maka copy dan pelajari saja algoritma yang TS share.

Program MenghitungKatadanKalimat;
Uses crt;
Var
I : real;
A,B,C,D,E,F,G,H : Integer;
karakter : Char;
Begin
clrscr;
Writeln('Program Hitung Kata dan Kalimat');
Writeln('-------------------------------');
G:=2;
While G=2 DO
Begin
Write('Masukan Karakter : '); Readln(Karakter);
F:=F+1;
Case Karakter OF
     '1','2','3','4','5','6','7','8','9','0':A:=A+1;
     'A','I','U','E','O','a','i','u','e','o':B:=B+1;
     'B','C','D','F','G','H','J','K','L','M','N','P','Q','R','S','T','V','W','X','Y','Z','b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','v','w','x','y','z':C:=C+1;
     ',',':',';','<','>','/','\','?','!','~','@','#','$','%','^','&','(',')','-','_','=','+':D:=D+1;
     ' ':I:=I+1;
     '.':E:=E+1;
     Else
     E:=E-1;
     I:=I+0.5;

End;
IF (Karakter='x') OR (Karakter='X') Then
Begin
Writeln('Anda Telah Menekan X');
Writeln('Jumlah Inputan          : ',F);
Writeln('Jumlah Vokal            : ',B);
Writeln('Jumlah Konsonan         : ',C);
Writeln('Jumlah Angka            : ',A);
Writeln('Jumlah Karakter Special : ',D);
Writeln('Jumlah Kata             : ',I:0:0);
Writeln('Jumlah Kalimat          : ',E);
G:=1;
Readln;
End;
End;
Writeln('-------------------------------');
Readln;
End.


Voila...Program tercompile dengan successfull.Selamat belajar.

By: Unknown On 22:14

Continue Reading