langsung bb donlod di DISINI
Snippet
Tampilkan postingan dengan label Turbo Pascal. Tampilkan semua postingan
Tampilkan postingan dengan label Turbo Pascal. Tampilkan semua postingan
uses crt;
var
x : integer;
begin
clrscr;
var
x : integer;
begin
clrscr;
write ('Masukkan Nilai anda : ');readln(x);
if x >= 75 then
writeln('baik')
readln;
end.
if x >= 75 then
writeln('baik')
readln;
end.
uses crt;
var
pil :integer;
begin;
clrscr;
writeln('===== MENU =====');
writeln('1: Pilihan 1');
writeln('2: Pilihan 2');
writeln('3: Pilihan 3');
writeln('4: exit');
write('Masukkan pilihan anda = ');readln(pil);
case pil of
1:begin
clrscr;
writeln('Pilihan 1');
readln;
end;
2:begin
var
pil :integer;
begin;
clrscr;
writeln('===== MENU =====');
writeln('1: Pilihan 1');
writeln('2: Pilihan 2');
writeln('3: Pilihan 3');
writeln('4: exit');
write('Masukkan pilihan anda = ');readln(pil);
case pil of
1:begin
clrscr;
writeln('Pilihan 1');
readln;
end;
2:begin
clrscr;
writeln('Pilihan 2');
readln;
end;
3:begin
clrscr;
writeln('Pilihan 3');
readln;
end;
4:begin
clrscr;
writeln('EXIT');
readln;
end;
readln;
end.
writeln('Pilihan 2');
readln;
end;
3:begin
clrscr;
writeln('Pilihan 3');
readln;
end;
4:begin
clrscr;
writeln('EXIT');
readln;
end;
readln;
end.
uses crt;
var
p: integer;
begin
clrscr;
p := 1;
var
p: integer;
begin
clrscr;
p := 1;
while p <= 20 do
begin
write(p,' ');
p := p + 1;
end;
readln;
end.
uses crt;
var
a: integer;
begin
clrscr;
a :=0;
var
a: integer;
begin
clrscr;
a :=0;
while(a <=5) do
begin
writeln( A);
A :=A+1;
end;
readln;
end.
uses crt;
var
a: integer;
begin
clrscr;
var
a: integer;
begin
clrscr;
a := 1;
repeat
write(a,' ');
a := a + 1;
until a > 20;
readln;
end.
repeat
write(a,' ');
a := a + 1;
until a > 20;
readln;
end.
uses crt;
var
k,l,n : integer;
begin
clrscr;
write('Masukkan Angka: ');readln(n);
var
k,l,n : integer;
begin
clrscr;
write('Masukkan Angka: ');readln(n);
for k := n downto 1 do
begin
for l := 1 to (k-1) do
begin
write(l);
end;
writeln;
end;
readln;
end.
begin
for l := 1 to (k-1) do
begin
write(l);
end;
writeln;
end;
readln;
end.
uses crt;
var
i,j,n: integer;
begin
clrscr;
var
i,j,n: integer;
begin
clrscr;
write('Masukkan Angka: ');readln(n);
for i := 1 to n do
begin
for j := 1 to i do
begin
write(i);
end;
writeln;
end;
readln;
end.
for i := 1 to n do
begin
for j := 1 to i do
begin
write(i);
end;
writeln;
end;
readln;
end.
program persegi;
uses
crt;
var
sisi : integer;
keliling, luas : real;
begin
clrscr;
write('Masukkan sisi persegi: ');
readln(sisi);
keliling := 4 * sisi;
luas := sisi * sisi;
writeln;
uses
crt;
var
sisi : integer;
keliling, luas : real;
begin
clrscr;
write('Masukkan sisi persegi: ');
readln(sisi);
keliling := 4 * sisi;
luas := sisi * sisi;
writeln;
writeln('keliling persegi = ', keliling:0:2);
writeln('luas persegi = ', luas:0:2);
readln;
end.
hasil output:
Masukkan sisi persegi: 2(misalkan)
keliling persegi = 8.00
luas persegi = 4.00
writeln('luas persegi = ', luas:0:2);
readln;
end.
hasil output:
Masukkan sisi persegi: 2(misalkan)
keliling persegi = 8.00
luas persegi = 4.00
program Data_Nilai;
uses
crt;
var
nilai: integer;
begin
clrscr;
write('Masukkan nilai : '); readln(nilai);
if nilai >= 82 then
write ('Nilai A')
else if nilai >= 72 then
write ('Nilai B')
uses
crt;
var
nilai: integer;
begin
clrscr;
write('Masukkan nilai : '); readln(nilai);
if nilai >= 82 then
write ('Nilai A')
else if nilai >= 72 then
write ('Nilai B')
else if nilai >= 56 then
write ('Nilai C')
else if nilai >= 41 then
write ('Nilai D')
else if nilai <= 40 then write ('Nilai E'); readln; end.
write ('Nilai C')
else if nilai >= 41 then
write ('Nilai D')
else if nilai <= 40 then write ('Nilai E'); readln; end.
program Menghitung_Dua_Buah_Bilangan;
uses
crt;
var
x,y : real;
kali,tambah : real;
begin
clrscr;
write('Masukkan Bilangan ke 1= ');
readln(x);
write('Masukkan Bilangan ke 2= ');
readln(y);
kali := x * y;
tambah := x + y;
uses
crt;
var
x,y : real;
kali,tambah : real;
begin
clrscr;
write('Masukkan Bilangan ke 1= ');
readln(x);
write('Masukkan Bilangan ke 2= ');
readln(y);
kali := x * y;
tambah := x + y;
writeln;
writeln('Hasil Perkalian : ', x:0:0, '*', y:0:0, '= ', kali:0:0);
writeln('Hasil Penambahan : ', x:0:0, '+', y:0:0, '= ', tambah:0:0);
readln;
end.
hasil output:
Masukkan Bilangan ke 1 = 2(misalkan)
Masukkan Bilangan ke 2 = 4(misalkan)
Hasil Perkalian : 2*4= 8
Hasil Penambahan : 2+4= 6
writeln('Hasil Perkalian : ', x:0:0, '*', y:0:0, '= ', kali:0:0);
writeln('Hasil Penambahan : ', x:0:0, '+', y:0:0, '= ', tambah:0:0);
readln;
end.
hasil output:
Masukkan Bilangan ke 1 = 2(misalkan)
Masukkan Bilangan ke 2 = 4(misalkan)
Hasil Perkalian : 2*4= 8
Hasil Penambahan : 2+4= 6
Contoh Penghitungan Gaji
Ketentuan Soal :
1. Nama Di input
2. Jabatan di input,
Jabatan Gaji Tunjangan
Direktur 3000000 10 % dari gaji
Manager 2000000 5% dari gaji
Karyawan 1000000 2% dari gaji
OB 800000 1% dari gaji
3. Dikenakan PPN 10 % dari gaji
4. Gaji Bersih didapat dari : gaji + tunjangan – PPn
Jawabannya:
Var nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,gajibersih, total:real;
Begin
Clrscr;
Write(‘Nama Karyawan : ‘); readln(nama);
Write(‘Masukkan Jabatan : ‘); readln(jabatan);
If (jabatan=’Direktur’) or (jabatan=’direktur’) then
Begin
Gaji:=3000000;
Tunj:=0.1* gaji;
End
Else If (jabatan=’Manager’) or (jabatan=’manager’) then
Begin
Gaji:=2000000;
Tunj:=0.05* gaji;
End
Else If (jabatan=’Karyawan’) or (jabatan=’karyawan’) then
Begin
Gaji:=1000000;
Tunj:=0.1* gaji;
End
Else
Begin
Gaji:=800000;
Tunj:=0.1* gaji;
End;
Writeln(‘Gaji Bersih : Rp.‘,gaji);
Writeln(‘Tunjangan Jabatan : Rp.‘,tunj:9:2);
Ppn:=0.1*gaji;
Writeln(‘PPN 10 % : Rp.‘,ppn:9:2);
Total:=(gaji+total)-ppn;
Writeln(‘Total Gaji : Rp.‘,total:9:2);
Readln;
End.
