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

Algoritma Hitung Jumlah Bilangan Ganjil dengan IF dan WHILE

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


program HitungJumlahBilanganGanjil;
uses crt;
var
  bawah : integer;
  atas  : integer;
  hasil : integer;
begin
clrscr;
  write('Batas Bawah : ');
  readln(bawah);
  write('Batas Atas : ');
  readln(Atas);
  IF(Bawah mod 2 <> 0) and (atas mod 2 <> 0) then
  begin
      Hasil := ((atas - bawah) div 2) + 1;
  end
  else
  begin
      Hasil := ((atas - bawah) + 1) div 2;
  end;
  while (atas > bawah) do
  begin
    write(' Jumlah bilangan ganjil antara '  , bawah,  ' dan '  , atas,  ' adalah ' , hasil, ' buah ' );
    atas := atas - (atas + hasil);
    end;
    readln;
end.



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

Kunjungi juga : Mainan Teknologi Web: Persiapan Assessment 3

By: Unknown On 08:09

Continue Reading