nglanjut tgs lagi...

Program nilai;
uses wincrt;
var
nilai :integer ;
begin
write (‘nilai: ‘);
readln (nilai);
case nilai of
0..49 :write (‘E’);
50..59 :write (‘D’);
60..74 :write (‘C’);
75..84 :write (‘B’);
85..100 :write (‘A’);
end;
end.
Program function_pangkat;
uses wincrt;
var
n,x:integer;
function pangkat(M:integer):longint;
begin
if (M=0) then
pangkat:=1
else
pangkat:=n*pangkat(M-1);
end;
begin
writeln(‘Perpangkatan’);
write(‘Masukkan angka: ‘);readln(n);
write(‘Masukkan pangkat: ‘);readln(x);
writeln(n,’^',x,’=',pangkat(x));
readln;
end.
Program rekursi;
Uses wincrt;
procedure rekursi(A:integer);
begin
if a<10 then
begin
write(‘pascal ‘);
A:=A+1;
rekursi(a);
end;
end;
var
x:integer;
begin
x:=1;
rekursi(x);
readln;
end.
PROGRAM rata_rata;
 
uses wincrt;
 
var
x : array[1..20] of integer;
tot, i, n : integer;
mean:real;
c:char;
Begin
repeat;
clrscr;
Writeln(‘program rata-rata’);
write(‘Masukkan Jumlah data : ‘);
readln(n);
writeln;
writeln;
tot:=0;
for i:=1 to n do
begin
write(‘Masukkan data ke-’,i,’ ‘, ‘Anda : ‘); readln(x[i]);
tot:=tot + x[i];
 
 
end;
writeln;
mean:=tot/n;
write(‘Dan Hasil Perhitungan Meannya : ‘);
(*writeln(i,’+',x[i]);*)
Writeln(mean:8:3);
write(‘Apakah Ingin Mengulang (Y/T) :’);
readln(c);
until c=’T';
end.
program gaji;
uses wincrt;
var
nama:string;
gol:integer;
js,ji:integer;
ja:integer;
mk,ts,ta,g:real;
gp,tk:longint;
lagi:char;
begin
repeat
begin
clrscr;
Write(‘Nama’,’ : ‘);
readln(nama);
write(‘Golongan’,’ : ‘);
readln(gol);
write(‘Masa Kerja (tahun)’,': ‘);
readln(mk);
write(‘Jumlah istri’,’ : ‘);
readln(js);
write(‘Jumlah Anak’,’ : ‘);
readln(ja);
if gol=1 then
gp:=1500000;
if gol=2 then
gp:=1750000;
if gol=3 then
gp:=2000000;
if gol=4 then
gp:=2300000;
if gol=5 then
gp:=3800000;
if js>0 then
ji:=1
else ji:=0;
ts:=((15*ji/100)*gp);
if ja>3 then
ja:=3;if (mk<5) then
tk:=0;
ta:=ja*(0.1)*gp;
if (mk<5) then
tk:=0;
if (mk>=5) then
tk:=1000000;
if (mk>=10) then
tk:=1500000;
if (mk>=15) then
tk:=2000000;
 
g:=gp+ts+ta+tk;
writeln(‘Gaji’,’ : Rp ‘,g:0:0);
writeln;
writeln;
write(‘hitung lagi (Y/T)?’);
readln(lagi);
end;
until lagi=’t';
end.
program jumlah_deret;
uses wincrt;
var
Un,n,Sn,i:integer;
r:real;
begin
write(‘banyaknya suku : ‘);readln(N);
while ibegin
Un:=Un+1;
writeln(Un);
Sn:=Sn+Un;
i:=i+1;
end;
writeln(”);
writeln(‘jumlah sampai dengan ‘,n,’ suku adalah ‘,Sn);
r:=Sn / n;
writeln(‘maka reratanya adalah ‘,r:2:1);
end.
Program genap;
uses wincrt;
var
a,b:integer;
begin
write(‘masukan angka: ‘);
read(a);
b:=a mod 2;
if b=1 then
write(‘bilangan tersebut termasuk bilangan ganjil’)
else
if b=0 then
write(‘bilangan tersebut termasuk bilangan genap’)
else
write(‘tidak terdefinisi’);
end.
program loop3;
uses wincrt;
var
n,i:integer;
fac:real;
begin
clrscr;
write(‘masukkan nilai n : ‘);
readln(n);
fac:= 1;
for i:= 1 to n do
Repeat
fac:=fac*i;
i:=i+1;
Until i>n;
writeln(‘Nilai dari n! = ‘, fac:4:2);
end.
program Volum_Limas_Segi_Empat;
uses wincrt;
var s,t,V:real;
begin
write(‘Panjang Sisi alas=’);
readln(s);
write(‘Tinggi Limas=’);
readln(t);
V:=1/3*s*s*t;
writeln(‘Volume Limas=’, V :2 :2);
end.
Program Gaji_Karyawan;
Uses Wincrt;
Var
Nama:string[25];
Gaji_Pokok:real;
Jumlah_Anak:longint;
Tunjangan_Istri,Tunjangan_anak,Gaji_Keseluruhan,Pajak,Gaji_Akhir:real;
Begin
Write (‘Masukkan Nama Karyawan: ‘);readln (Nama);
Write (‘Masukkan Gaji Pokok=Rp ‘);readln (Gaji_Pokok);
Write (‘Masukkan Jumlah anak= ‘);readln (Jumlah_Anak);
Tunjangan_Istri:=0.15*Gaji_Pokok;
Tunjangan_Anak:=Jumlah_Anak*0.20*Gaji_Pokok;
Gaji_Keseluruhan:=Gaji_Pokok+Tunjangan_Istri+Tunjangan_Anak;
Pajak:=0.15*Gaji_Keseluruhan;
Gaji_Akhir:=Gaji_Keseluruhan-Pajak;
Writeln (‘Tunjangan Istri =Rp ‘,(Tunjangan_Istri):15:2);
Writeln (‘Tunjangan anak =Rp ‘,(Tunjangan_Anak):15:2);
Writeln (‘Gaji Keseluruhan =Rp ‘,(Gaji_Keseluruhan):15:2);
Writeln (‘Pajak =Rp ‘,(Pajak):15:2);
Writeln (‘Gaji Akhir =Rp ‘,(Gaji_Akhir):15:2);
End.