Pemograman 1

Buatlah Algoritma yang menampilkan pesan pada layar kemudian buatlah programnya. (NB : Pesan yang ditampilkan bebas).

PROGRAM pesan_singkat;
{program untuk mencetak “kunci rindu adalah bertemu”}
DEKLARASI
{tidak ada}

ALGORITMA
write(‘kunci rindu adalah bertemu’)

program pesan_singkat;
uses crt;
var
pesan:string;
begin
clrscr;
pesan:=’kunci rindu adalah bertemu’;
writeln(pesan);
readln;
end.








Tulislah algoritma yang membaca nama seseorang dari papan ketik, lalu menampilkan ucapan "Assalamualaikum" diikuti dengan nama orang tersebut. Selanjutnya buatlah programnya.

PROGRAM ucapan_assalamualaikum
{program untuk mencetak “assalamualaikum diikuti nama”

DEKLARASI
nama:string

ALGORITMA:
read (tuliskan nama kamu)
write (assalamualaikum diikuti nama)

program ucapan_assalamualaikum;
uses crt;
var
ucapan,nama:string;
begin
clrscr;
ucapan:=’Assalamualaikum’;
nama:=’Wulan’;
writeln(ucapan);
writeln(nama);
readln;
end.




 Tulislah algoritma beserta program untuk menghitung komisi yang diterima salesman berdasarkan nilai penjualan yang dicapainya. Salesman itu mendapat komisi 5% dari hasil penjualannya. Algoritma menerima data nama salesman dan nilai penjualan yang dicapainya, menghitung komisi, lalu mencetak nama salesman, dan besar komisi yang diperolehnya.
Penyelesaian
Program Komisi_Salesman
( Menghitung besar komisi yang diterima seorang salesman. Besar komisi adalah 5% dari nilai penjualan yang dicapainya. Data masukan adalah nama salesman dan nilai penjualannya. Keluaran Algoritma adalah besar komisi yang diterima salesman tersebut. )
DEKLARASI
NamaSalesman : String
NilaiPenjualan : Real (nilai penjualan yang dicapai dalam Rp)
Komisi : Real (besar komisi dalam Rp)
ALGORITMA:
Read (NamaSalesman, NilaiPenjualan)
Komisi<- 0.05 * NilaiPenjualan
Write (Komisi)





 Tulislah algoritma beserta program yang membaca nama karyawan dan gaji pokok bulanannya dan menghitung gaji bersih karyawan tersebut. Gaji bersih yang diterima setiap karyawan adalah gaji pokok ditambah tunjangan 20% dari gaji pokok dipotong pajak 15% dari gaji pokok ditambah tunjangan. Nama karyawan dan gaji bersihnya dicetak ke piranti keluaran.
Penyelesaian
Program menghitung_gaji_karyawan
( Menghitung gaji karyawan. Data masukan adalah nama karyawan dan gaji pokok bulanannya. Gaji bersih = gaji pokok+ tunjangan – pajak. Tunjangan adalah 20% dari gaji pokok, sedangkan pajak adalah 15% dari gaji pokok. Keluaran adalah nama karyawan dan gaji bersihnya )
DEKLARASI
Const persentunjangan = 0.2 (persentase tunjangan gaji)
Const persenpajak = 0.15 (persentase potongan pajak)
Namakaryawan : string
Gajipokok,tunjangan,pajak,gajibersih : real
ALGORITMA: read (namakaryawan,gajipokok)
Tunjangan<- persentunjangan * gajipokok
Pajak<- persenpajak* (gajipokok+tunjangan)
Gajibersih<- gajipokok + tunjangan – pajak
Write (namakaryawan,gajibersih)





Diketahui P1=(x1,y1) dan p2(x2,y2). Tulislah algoritma dan program untuk menghitung titik tengah dari p1 dan p2. Contoh jika p1= (2,3) dan p2= (4,5) maka titik tengah dari p1 dan p2 adalah p3= (3,4).
Penyelesaian
Program titik_tengah
(menghitung titik tengah dari dua buah titik p1 = (x1,y1) dan p2= (x2,y2). Titik tengah dituliskan ke piranti keluaran )
DEKLARASI
Type titik : record <x : real,
        Y : real
P1,p2,p3 : titik
ALGORITMA :
Read (p1.x,p1.y)       ( baca titik p1)
Read (p2.x,p2.y)       (baca titik p2)
P3.x <- (p1.x+p2.x)/2
P3.y<- (p1.y+p2.y)/2
Write (p3.x,p3.y)