.:: Tugas Kelompok Program ::.

A. program kecil untuk mendapatkan daftar HURUF yang paling sering muncul (secara urut) dalam:
– bahasa Indonesia
– Salah satu bahasa daerah

uses wincrt;

var n:array[1..26] of integer;

i,j:integer;

kata : String;

begin

writeln(‘ Tugas Kelompok Keamanan Komputer ‘);

writeln(‘=================================================’);

writeln(‘= Program menghitung jumlah huruf dalam kalimat =’);

writeln(‘= Oleh: 1. Nikko riestian P.W (060411100781) =’);

writeln(‘= 2. Riza Masitha wati (060411100745) =’);

writeln(‘=================================================’);

writeln(”);

for i:=1 to 26 do n[i]:=0;

write(‘Ketikkan sebuah kalimat : ‘);readln(kata);

writeln(”);

writeln(‘Jumlah tiap huruf dlm kalimat :’);

writeln(‘=============================’);

for i:=1 to length(kata) do

for j:=1 to 26 do

if ord(upcase(kata[i]))=64+j then

inc(n[j]);

for i:=1 to 13 do

writeln(chr(64+2*i-1),’ = ‘,n[2*i-1],’ ‘,chr(64+2*i),’=',n[2*i]);

writeln(‘=============================’);

end.