Tugas P. Taufik Algoritma Pemrograman

Tugas Pak Taufik Algoritma Pemrograman

A. PROGRAM BILANGAN_TERBESAR;

program bilangan_terbesar;

uses

WinCrt;

var

a,b,c,i : integer;

begin

writeln('MENCARI BILANGAN TERBESAR');

for i:=1 to 3 do

begin

write('Masukkan bilangan ',i,' : ');

if i =1 then

readln(a);

if i=2 then

readln(b);

if i=3 then

readln(c);

end;

{rumus}

if a>b then

i:=a

else

i:=b;

if i>c then

i:=i

else

i:=c;

writeln;

write('bilangan terbesarnya = ',i);

end.

B. 'MENENTUKAN UPAH KARYAWAN HONORER STKIP PGRI SUMENEP'

program gaji_honorer_stkip;

uses

WinCrt;

var

jjk,upah,lembur,u_lembur,gaji,jm : longint;

nama : string;

begin

jm:=48;{jam maksimal}

upah:=2000;{perjam}

u_lembur:=3000;{perjam}

writeln('MENENTUKAN UPAH KARYAWAN HONORER STKIP PGRI SUMENEP');

write('Masukkan Nama Karyawan : '); readln(nama);

write('Masukkan jumlah jam kerja : ');readln(jjk);

{rumus}

if jjk<=jm then

begin

gaji:=jjk*upah;

write('gaji karyawan (',nama,') dalam seminggu adalah Rp. ',gaji,',00');

end else

begin

lembur:=jjk-jm;

gaji:=(jm*upah)+(lembur*u_lembur);

write('gaji karyawan (',nama,') dalam seminggu adalah Rp. ',gaji,',00');

end;

end.

C. KOORDINAT

program Menentukan_letak_kuadran;

uses

WinCrt;

var

x,y,kuad : integer;

begin

writeln('MENCARI LETAK KUADRAN DARI TITIK P(x,y)');

write('Masukkan titik x : ');readln(x);

write('Masukkan titik y : ');readln(y);

writeln('Letak P(x,y) : (',x,',',y,')');

{rumus}

if (x>0) and (y>0) then

kuad:=1

else

if (x<0) and (y>0) then

kuad:=2

else

if (x<0) and (y<0) then

kuad:=3

else

if (x>0) and (y<0) then

kuad:=4;

writeln;

write('letak titik P(',x,',',y,') adalah dikuadran ',kuad);

end.

D. 'MENENTUKAN UPAH KARYAWAN PT. MUSTAHIL MAJU SUMENEP SESUAI GOLONGAN'

program Gaji_Berdasarkan_Golongan;

uses

WinCrt;

var

jjk,upah,lembur,u_lembur,gaji,jm : longint;

nama : string;

gol : char;

begin

jm:=48;{jam maksimal}

u_lembur:=3000;{perjam}

writeln('MENENTUKAN UPAH KARYAWAN STKIP PGRI SUMENEP SESUAI GOLONGAN');

write('Masukkan Nama Karyawan : '); readln(nama);

write('Masukkan golongan karyawan : ');readln(gol);

write('Masukkan jumlah jam kerja : ');readln(jjk);

{rumus}

if (gol='A')or(gol='a') then

upah:=4000

else

if (gol='B')or(gol='b') then

upah:=5000

else

if (gol='C')or(gol='c') then

upah:=6000

else

if (gol='D')or(gol='d') then

upah:=7500;

if jjk<=48 then

begin

gaji:=jjk*upah;

write('jadi gaji karyawan (',nama,') golongan ',gol,' dalam seminggu adalah Rp. ',gaji,',00');

end

else

begin

lembur:=jjk-jm;

gaji:=(jm*upah)+(lembur*u_lembur);

write('jadi gaji karyawan (',nama,') golongan ',gol,' dalam seminggu adalah Rp. ',gaji,',00');

end;

end.

E. 'MENENTUKAN INDEKS NILAI MAHASISWA'

program Indeks_nilai_mahasiswa;

uses

WinCrt;

var

nilai : integer;

nama : string;

ind : char;

begin

writeln('MENENTUKAN INDEKS NILAI MAHASISWA');

write('Masukkan Nama Mahasiswa : '); readln(nama);

write('Masukkan nilai ujian : ');readln(nilai);

{rumus}

if nilai>=80 then

ind:='A'

else

if (nilai<80)and(nilai>=70) then

ind:='B'

else

if (nilai<70)and(nilai>=55)then

ind:='C'

else

if nilai<40 then

ind:='D';

write('mahasiswa (',nama,') indeks nilainya adalah ',ind);

end.