Algoritma

1. Program Gaji

program gaji;

uses wincrt;

label ulang;

var

penghasilan_perbulan,kelebihan_penghasilan : real;

pajak1,pajak2,total_pajak: real;

total_gaji:real;

tanya:char;

begin

clrscr;

writeln(‘**program menghitung total gaji setelah dipotong pajak**’);

writeln;

ulang:

writeln(‘masukkan besarnya gaji bulanan’);

write(‘penghasilan perbulan adalah=’);

readln(penghasilan_perbulan);

if penghasilan_perbulan<=150000 then

begin

pajak1:=(10/100)*penghasilan_perbulan;

writeln(‘pajaknya adalah=’,pajak1:8:0,’ Rupiah’);

total_gaji:=penghasilan_perbulan-pajak1;

end

else

begin

pajak1:=(10/100)*150000;

writeln(‘pajak1 adalah=’,pajak1:8:0,’ Rupiah’);

kelebihan_penghasilan:=penghasilan_perbulan-150000;

pajak2:=(15/100)*kelebihan_penghasilan;

writeln(‘pajak2 adalah=’,pajak2:8:0,’ Rupiah’);

total_pajak:=pajak1+pajak2;

writeln(‘total pajak=’,total_pajak:8:0,’ Rupiah’);

total_gaji:=penghasilan_perbulan-total_pajak;

end;

writeln(‘jadi total gaji yang diterima adalah=’,total_gaji:8:0,’ Rupiah’);

writeln;

write(‘apakah akan menghitung nilai yang lain(Y/T):’);

read(tanya);

writeln;

if upcase(tanya)=’Y’ then goto ulang;

end.

2. Program Sudut Jarum Jam

program sudut_jarum_jam;

uses wincrt;

label ulang;

var

j,m:integer;

sudut:integer;

tanya:char;

begin

clrscr;

writeln(‘program menentukan sudut yang dibentuk oleh jarum jam’);

writeln;

ulang:

writeln(‘masukkan waktu’);

write(‘jam=’);

readln(j);

write(‘menit=’);

readln(m);

sudut:=(j*30)-(m*6);

if sudut<0 then

sudut:=sudut*(-1);

if sudut>180 then

sudut:=sudut-180;

writeln;

writeln(‘jadi besarnya sudut yang dihasilkan adalah= ‘,sudut,’ derjat’);

write(‘apakah akan menghitung sudut yang lain(Y/T)?:’);

read(tanya);

writeln;

if upcase(tanya)=’Y’ then goto ulang;

end.

3. Program Nilai Mahasiswa

Program NilaiMahasiswa;

Uses Crt;

Var

Nama,NPM,Ket               : String;

Quiz,Praktek,Laporan,Nilai : Real;

Begin

ClrScr;

Writeln(‘*****************************************’);

Writeln(‘** PENGOLAHAN NILAI PRAKTIKUM MAHASISWA**’);

Writeln(‘*****************************************’);

Writeln;

Write(‘Nama mahasiswa = ‘);Readln(Nama);

Write(‘NPM            = ‘);Readln(NPM);

Writeln(‘—————————————–‘);

Write(‘Nilai Quiz    = ‘);Readln(Quiz);

Write(‘Nilai Praktek = ‘);Readln(Praktek);

Write(‘Nilai Laporan = ‘);Readln(laporan);

Nilai := 0.35*Quiz + 0.5*Praktek + 0.15*Laporan;

If Nilai > 50 Then

Ket := ‘Lulus’

Else

Ket := ‘Gagal’;

Writeln(‘Nilai total = ‘,Nilai:4:2);

Writeln(‘Dinyatakan ‘,Ket);

End.

4. Program Persamaan Akar Kuadrat

PROGRAM PERSAMAANAKARKUADRAT;

USES CRT;

VAR

X1,X2,A,B,C,DISKRIMINAN : REAL;

BEGIN

CLRSCR;

WRITELN(‘**************************************’);

WRITELN(‘**PERHITUNGAN AKAR PERSAMAAN KUADRAT**’);

WRITELN(‘**************************************’);

WRITELN;

WRITELN(‘MASUKAN NILAI- NILAI VARIABEL PERSAMAAN KUADRAT:’);

WRITE(‘ NILAI A = ‘);READLN(A);

WRITE(‘ NILAI B = ‘);READLN(B);

WRITE(‘ NILAI C = ‘);READLN(C);

WRITELN;

DISKRIMINAN :=SQR(B) – (4*A*C);

IF DISKRIMINAN = 0 THEN

BEGIN

X1 := -B/ (2*A);

X2 := X1;

WRITELN(‘PERSAMAAN KUADRAT MEMILIKI AKAR KEMBAR : ‘);

WRITELN(‘ X1 = ‘,X1:8:4);

WRITELN(‘ X2 = ‘,X2:8:4);

END

ELSE

IF DISKRIMINAN > 0 THEN

BEGIN

X1 := (-B + SQRT(DISKRIMINAN))/(2*A);

X2 := (-B – SQRT(DISKRIMINAN))/(2*A);

WRITELN(‘PERSAMAAN KUADRAT MEMILIKI AKAR BERBEDA : ‘);

WRITELN(‘ X1 = ‘,X1:8:4);

WRITELN(‘ X2 = ‘,X2:8:4);

END

ELSE

BEGIN

X1 := -B/(2*A);

WRITELN(‘PERSAMAAN KUADRAT MEMILIKI PERSAMAAN IMAJINER: ‘);

WRITELN(‘ X1 = ‘,X1:8:4,’ + J’,X2:8:4);

WRITELN(‘ X2 = ‘,X1:8:4,’ – J’,X2:8:4);

END;

END.

5. Program Bilangan Prima

Program Bilangan_Prima;

Uses crt;

Var

Batas : real;

i,j,jumlah : word;

Prima : array[1..500] of Char;

Begin

CLRSCR;

Batas := sqrt(500);

jumlah := 0;

Writeln(‘bilangan_prima_sampai_dengan 500=’);

Writeln(‘———————————-‘);

For i :=2 to 500 do

Begin

If prima[1]<>’*’ Then

Begin

Write(I:5);

jumlah := jumlah + 1;

If i< batas then

Begin

j :=i;

while j < 500 do

Begin

j :=j + i;

Prima[j] :=’*’;

End;

End;

End;

End;

Writeln;

Writeln(‘Ada sejumlah’,jumlah,’bilangan prima’);

Readln;

End.

  1. Belum ada komentar.
  1. No trackbacks yet.

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: