Algoritma konversi dalam program Pascal

Catatan ringan Pemrogrmaan Terstruktur
{ Ignas_Lamabelawa@yahoo.com }

Bagi penggemar algoritma :

1. Konversi waktu ke jam-menit dan detik

program konversi;
{INPUT : JUMLAH HARI
OUTPUT : JUMLAH TAHUN, BULAN DAN HARI }
uses wincrt;
type
waktu =record
tahun : integer;
bulan :integer;
hari : integer;
end;
var Xhari : waktu;
x : integer;
Begin
writeln('input jumlah hari :'); readln(x);
xhari.tahun:=x div 365;
xhari.bulan:=(x mod 365) div 30;
xhari.hari:=(x mod 365) mod 30;
writeln('jumlah tahun : ',xhari.tahun);
writeln('jumlah bulan : ',xhari.bulan);
writeln('jumlah hari : ',xhari.hari);

End.


2. program konversi;
{program input dua buah tanggal dicari selisih dan dikonveriskan ke tahun bulan hari }

uses wincrt;
type waktu = record
dd : integer;
mm : integer;
yy : integer;
end;
var T1,T2 : waktu;
selisih : integer;
jumlah : waktu;
Begin
writeln('Input tgl1 :'); readln(T1.dd);
writeln('Input bln1 :'); readln(T1.mm);
writeln('Input tahun1 :'); readln(T1.yy);
writeln('Input tgl2 :'); readln(T2.dd);
writeln('Input bln2 :'); readln(T2.mm);
writeln('Input tahun2 :'); readln(T2.yy);

selisih:=(365*(t2.yy - t1.yy)) + (30 * (t2.mm - t1.mm)) +(t2.dd - t1.dd) ;

jumlah.yy := selisih div 365;
jumlah.mm := (selisih mod 365) div 30;
jumlah.dd := (selisih mod 365) mod 30;
writeln('jumlah tahun :',jumlah.yy);
writeln('jumlah bulan :',jumlah.mm);
writeln('jumlah hari :',jumlah.dd);
End.

3. program konversi;
{input : jarak bertipe longint
output : jarak yang dikonversi ke Kilo mater, Meter dan sentimeter }
uses wincrt;
type jarak = record
km : integer;
mtr : integer;
cm : integer;
end;
var J : jarak;
x : integer;


Begin
writeln('Jumlah jarak :'); readln(x);

j.km := (x div 1000);
j.mtr := (x mod 1000) div 100;
j.cm := (x mod 1000) mod 100;

writeln('jumlah KM :',j.km);
writeln('jumlah METER :',j.mtr);
writeln('jumlah CM :',j.cm);
End.

Binary Tree

Buat penggemar Struktur Data khususnya tentang Binary Search...

Kunjungi Situs berikut ini :

http://webpages.ull.es/users/jriera/Docencia/AVL/AVL%20tree%20applet.htm

NB : Pastikan JRE terinstall di PC anda