tugas algoritma translasi pemilihan

FIRMANSYAH PUTRA
TI-B

1.    PROGRAM ANGKA_TERBESAR;

program angka_terbesar;
uses
WinCrt;
var
a,b,c,i : integer;

begin
writeln(‘MENCARI ANGKA TERBESAR’);
for i:=1 to 3 do
begin
write(‘Masukkan ANGKA ‘,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(‘angka terbesarnya = ‘,i);
end.

2.    ’MENENTUKAN GAJI KARYAWAN HONORER STKIP PGRI SUMENEP’

program GAJI_HONORER_STKIP;

uses
WinCrt;
var
jjk,gaji,lembur,u_lembur,gaji2,jm : longint;
nama : string;

begin
jm:=48;{jam maksimal}
gaji:=2000;{perjam}
u_lembur:=3000;{perjam}
writeln(‘MENENTUKAN GAJI 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*gaji2;
write(‘gaji karyawan (‘,nama,’) dalam seminggu adalah Rp. ‘,gaji,’,00′);
end else
begin
lembur:=jjk-jm;
gaji:=(jm*gaji2)+(lembur*u_lembur);
write(‘gaji karyawan (‘,nama,’) dalam seminggu adalah Rp. ‘,gaji,’,00′);
end;
end.

3.    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.

4.    ’MENENTUKAN UPAH KARYAWAN  PT. MUSTAHIL MAJU SUMENEP SESUAI GOLONGAN’

program GAJI_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.

 

5.    ’MENENTUKAN INDEKS NILAI MAHASISWA’

program Indeks_nilai_siswa;

uses
WinCrt;
var
nilai : integer;
nama : string;
ind : char;
begin
writeln(‘MENENTUKAN INDEKS NILAI SISWA’);
write(‘Masukkan Nama Siswa : ‘); 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(‘siswa (‘,nama,’) indeks nilainya adalah ‘,ind);

end.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: