Beberapa Contoh ALGORITMA Pemograman
------------------------------------------------------------------------------
program komisi_hasil_penjualan;
{ hasil yang dapat di peroleh seorang karyawan }
{ adalah 25% dari hasil penjualannya }
uses wincrt;
var
nama : string;
hp : real {hasil penjualan};
k : real {komisi};
begin
writeln ('masukan nama yang akan di lihat ');
readln (nama);
writeln ('masukan hasil penjualan Rp. ');
readln (hp);
k := hp * 0.25;
writeln ('komisi yang di dapat ',nama ,' adalh Rp. ', k: 4:2 );
end.
------------------------------------------------------------------------------
program konversi_detik;
{melihat catatan waktu tempuh lari dalah hitungan detik}
uses wincrt;
var
td : integer {total detik};
jj,mm,dd : integer {jam,menit,detik};
begin
writeln ('masukan jam yang diperoleh ');
readln (jj);
writeln ('masukan menit yang diperoleh ');
readln (mm);
writeln ('masukan detik yang diperoleh ');
readln (dd);
td := (jj*3600)+(mm*60)+(dd*1);
writeln ('maka waktu yang didapa dalam detik adalah : ',td);
end.
------------------------------------------------------------------------------
program mahasiswa;
uses wincrt;
var
nama: string;
nilai: integer;
begin
write ('masukan nama:');
readln (nama);
write ('masukan nilai:');
readln (nilai);
if (nilai<=100) and (nilai>=80) then
write ('A');
else if (nilai<80) and (nilai>=70) then
write ('B');
else if (nilai<70) and (nilai>60) then
write ('C');
else if (nilai<60) and (nilai>50) then
write ('D');
else
write ('E');
end.
------------------------------------------------------------------------------
program percakapan_perkenalan_pertama;
uses wincrt;
var
nama :string;
tempat :string;
tinggal :string;
hello :string;
begin
writeln ('hello...apa kabar? ');
readln (hello);
writeln ('oo,,,keadaanmu ',hello,' ,kalau keadaan saya baik baik saja alhamdulillah...');
writeln ('ngomong ngomong siapa namamu?',nama);
readln (nama);
writeln ('Oo... namamu ',nama);
writeln ('darimana asalmu?');
readln (tempat);
writeln ('Oo.... ',nama,' berasal dari ',tempat);
writeln ('kamu disini tinggal bersama siapa?');
readln (tinggal);
writeln ('Oo... kamu tinggal bersama ',tinggal);
writeln ('kalo begitu sampai jumpa lagi ya ',nama,' saya ada perlu dulu');
writeln ('see you again ',nama);
end.
------------------------------------------------------------------------------
program pertukaran_posisi;
{pertukaran posisi x & y, dengan format x= posisi y & y = posisi x}
uses wincrt;
var
p,q,r : string;
begin
writeln ('masukan nama yang ada dalam posisi (X) ');
readln (p);
writeln ('masukan nama yang ada dalam posisi (y) ');
readln (q);
r := p;
p := q;
q := r;
writeln ('setelah pertukaran maka posisi X di tempati oleh : ',p);
writeln ('setelah pertukaran maka posisi Y di tempati oleh : ',q);
end.
------------------------------------------------------------------------------
program sisi_miring;
{menentukan panjang sebuah sisi miring}
uses wincrt;
var
a,t : integer {alas, tinggi};
sm : real {sisi miring};
begin
writeln ('masukan panjang alas ');
readln (a);
writeln ('masukan tingginy ');
readln (t);
sm := (a/2)*t;
writeln ('maka sisi miring tersebut adalah ',sm:2:2);
end.
SEMOGA BERMANFAAT !!!!
