Category Archives: Pascal

Bubble Sort pada Pascal


uses wincrt;
var
i,n,j : integer;
a: array [1..100] of integer;

procedure buble;
var z: integer;
begin
for i:= 1 to n-1 do
begin
for j:= n downto i+1 do
begin
if a[j] < a[j-1] then
begin
z:= a[j];
a[j]:= a[j-1];
a[j-1]:=z;
end; Continue reading

Advertisements

Menghitung Huruf pada Pascal


saat ini saya akan sharing bagaimana menghitung huruf dalam suatu kalimat. Mungkin ini akan berguna bagi teman-teman semua.
Langkah-langkah adalah sebagai berikut :
Uses WinCrt;
Var
Teks : string;
banyak : array[‘A’..’Z’] of byte;
i : byte;
begin
Write(‘Masukkan Suatu Kalimat :’);
Readln(Teks);
for i:=1 to length(teks) do
banyak[upcase(teks[i])]:=banyak[upcase(teks[i])]+1;
for i:=1 to 26 do
if (banyak[upcase(chr(64+i))]0) then
writeln(upcase(chr(64+i)),’ banyaknya =’,banyak[upcase(chr(64+i))]);
end.
Continue reading

Program Bilangan Genap


uses wincrt;
var genap : array[1..100] of integer;
a, b, jum : integer;
begin
a := 0;
b := 2;
write(‘Jumlah bilangan genap : ‘);readln(jum);
Continue reading