Program Calculates the number of letters and numbers conversion program
here, there are some pascal program to calculate the number of letters in a sentence or paragraph and the program conversion from decimal to hexadecimal numbers.
program banyak_huruf_dalam_kalimat;
uses wincrt;
var n:array[1..26] of integer;
i,j:integer;
kata : String;
begin
for i:=1 to 26 do n[i]:=0;
write('Ketikkan sebuah kalimat : ');readln(kata);
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]);
end.
Program Konversi_Bilangan;
Uses WinCrt; Var
des,desi : integer;
Heks,temp : String; Begin
Write('Masukkan Suatu Bilangan Desimal :');Readln(des);
desi:=des; Heks:=''; repeat
if (des mod 16 < 10) then Heks:=chr(48+ des mod 16)+Heks else Heks:=chr(55+ des mod 16)+Heks; des:=des div 16; writeln(des:4,Heks:20); until des=0; writeln('(',desi,') desimal =',Heks,' (Heksadesimal)');end.
program banyak_huruf_dalam_kalimat;
uses wincrt;
var n:array[1..26] of integer;
i,j:integer;
kata : String;
begin
for i:=1 to 26 do n[i]:=0;
write('Ketikkan sebuah kalimat : ');readln(kata);
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]);
end.
Program Konversi_Bilangan;
Uses WinCrt; Var
des,desi : integer;
Heks,temp : String; Begin
Write('Masukkan Suatu Bilangan Desimal :');Readln(des);
desi:=des; Heks:=''; repeat
if (des mod 16 < 10) then Heks:=chr(48+ des mod 16)+Heks else Heks:=chr(55+ des mod 16)+Heks; des:=des div 16; writeln(des:4,Heks:20); until des=0; writeln('(',desi,') desimal =',Heks,' (Heksadesimal)');end.