Belajar Online

Waduh... yah... begitulah ini tentang masa jenis. Jika diketahui bahwa semua huruf konsonan memiliki masa jenis = 1, huruf 'a' = 4.5, huruf 'i' = 4.75, huruf 'u' = -1.5, huruf 'e' = 2, dan huruf 'o' = 6.
Terus masukkannya kalau ndak salah ada kata-kata dan huruf yang gak jelas, dan kita diminta untuk mengurutkan jatuhnya kata tersebut, tentunya jika ternyata massa jenis nya 0 maka udah pasti mengapung.

Berikut program untuk menghitung masa jenis dengan menggunakan case dan mengurutkan masa jenis yang sudah dihitung dari besar ke kecil, tinggal pada saat mengurutkan ditambahkan pencetakan kata apa yang jatuh duluan.

program masajenis;
uses crt;
var jumdata,i,j:byte;
    tampung:string;
    data:array[1..50] of string;
    mj:array[1..50] of real;
    k:real;
begin
   clrscr;
   readln(jumdata);
   for i:=1 to jumdata do readln(data[i]);

   {menghitung masa jenis}
   for i:=1 to jumdata do begin
       tampung :=data[i];
       mj[i]:=0;
       for j:=1 to length(data[i]) do begin
           case tampung[j] of
           'a','A' : mj[i]:=mj[i]+4.5;
           'e','E': mj[i]:=mj[i]+2;
           'i','I': mj[i]:=mj[i]+4.75;
           'o','O': mj[i]:=mj[i]+6;
           'u','U': mj[i]:=mj[i]-1.5;
           else
           mj[i]:=mj[i]+1;
           end;
       end;
   end;

   {mengurutkan masa jenis}
   for i:=1 to jumdata-1 do
       for j:=i+1 to jumdata do
           if mj[i]<mj[j] then begin
              k:=mj[i];
              mj[i]:=mj[j];
              mj[j]:=k;
           end;

   {menulis masa jenis}
   for i:=1 to jumdata do writeln(mj[i]:3:1);

   readkey;
end.