Pascal - Program Tukar Tiga Bilangan

Program Tukar Tiga Bilangan menggunakan Bahasa Pascal

program Tukar_Tiga_Bilangan;
{Dibaca tiga buah bilangan yang bertipe data integer, ditukar ketiga bilangan kemudian tampilkan hasilnya di layar}

        {Deklarasi}
        var
        a, b, c, d:integer;

        begin
                write('Masukkan nilai bilangan A : ');
                readln(a);
                write('Masukkan nilai bilangan B : ');
                readln(b);
                write('Masukkan nilai bilangan C : ');
                readln(c);

                d:=a;
                a:=b;
                b:=c;
                c:=d;

                writeln('A = ',a,'  B = ',b,'  C = ',c);
end.


HASIL COMPILE :

Read More

Pascal - Program Tampil Ganjil

Program Tampil Ganjil menggunakan bahasa Pascal

program tampil_ganjil;
{buatlah program membaca sebuah bilangan bulat, jika bilangan itu ganjil
maka tampilkan ke layar.}

{deklarasi}
var x:integer;

{algoritma}
begin
writeln('Program Tampil Ganjil');
write('Masukkan bilangan : ');
readln(x);
if (x mod 2 = 1) then
        writeln(x,' ADALAH BILANGAN GANJIL')
end.


HASIL COMPILE :

Read More

Pascal - Program Rangkaian Listrik (switch-case)

Program Rangkaian Listrik (switch-case) menggunakan bahasa Pascal

program rangkaian_listrik;
{Dibaca tiga tahanan R1, R2 dan R3.Disusun tahanan tersebut menjadi paralel
 dan seri. Kemudian tampilkan hambatan seri total (RS) atau hambatan paralel
 total (RP). jika input "1" maka tampilkan seri (RS), kalau "2" maka tampilkan
 paralel (RP)}


(*DEKLARASI*)
var nomormenu:integer;
  R1, R2, R3, RS, RP:real;


(*ALGORITMA*)
begin
writeln('Program Rangkaian Listrik');
writeln('   ');
writeln('Pilihan : ');
writeln('1. Hitung Hambatan seri total (RS) ');
writeln('2. Hitung hambatan paralel total (RP) ');
writeln('3. Exit ');
write('Masukkan pilihan anda [1/2/3?] : ');
readln(nomormenu);

case nomormenu of
1: begin
       write('Masukkan nilai resistor 1 (R1) : ');
       readln(R1);
       write('Masukkan nilai resistor 2 (R2) : ');
       readln(R2);
       write('Masukkan nilai resistor 3 (R3) : ');
       readln(R3);
       RS:=R1+R2+R3;
       writeln('Besar hambatan seri total = ',RS,' ohm');
       end;
2: begin
       write('Masukkan nilai resistor 1 (R1) : ');
       readln(R1);
       write('Masukkan nilai resistor 2 (R2) : ');
       readln(R2);
       write('Masukkan nilai resistor 3 (R3) : ');
       readln(R3);
       begin
       RP:= (1/(1/R1+1/R2+1/R3));
       writeln('Besar hambatan paralel total = ',RP,' ohm');
       end;
       end;
3:begin
        write('   ');
        end;
        end;

 end.


HASIL COMPILE :

Read More

Pascal - Program Konversi Nilai Ujian

program Konversi Nilai Ujian menggunakan Bahasa Pascal

program Konversi_Nilai_Ujian;
{Dibaca nilai ujian mahasiswa dalam angka, konversikan nilai tersebut kedalam
kategori nilai sebagai berikut : 80-100=A, 65-79=B, 55-64=C, 40-54=D, 0-40=E.
Kemudian tampilkan hasilnya ke layar }

(*DEKLARASI*)
var
        nilai:real;
        enter:char;

(*ALGORITMA*)
begin
writeln('Program Konversi Nilai');
writeln('       ');
write('Masukkan nilai ujian mahasiswa : ');
readln(nilai);

if (nilai >= 80) and (nilai <= 100) then
        writeln(' nilai anda adalah A')
else
   if(nilai>=65) and ( nilai<=79) then
        writeln(' nilai anda adalah B')
      else if(nilai>=55) and ( nilai <=64) then
                writeln('nilai anda adalah C')
                else
                   if(nilai>=40) and (nilai <=54) then
                        writeln('nilai anda adalah D')
                        else
                         writeln('nilai anda adalah E');
write('Tekan Enter untuk EXIT');
readln(enter);
end.


HASIL COMPILE :

Read More

Pascal - Program Wujud Air

Program Wujud Air menggunakan Bahasa Pascal

program Wujud_Air(SUHU);
{Dibaca suhu air, tampilkan wujud air tersebut dengan ketentuan
 suhu>100 adalah UAP, suhu 0 -100 adalah cair, suhu<0 adalah BEKU}

{DEKLARASI}
var
suhu:real;

(*ALGORITMA*)
begin
writeln('Program Wujud Air ');
write('Masukkan suhu air : ');
readln(suhu);
if (suhu <0) then
   writeln('BEKU')
else
    if (suhu>=0) and (suhu<=100) then
       writeln('CAIR')
    else
        writeln('UAP')
end.


HASIL COMPILE :

Read More

Pascal - Program Deret Fibonacci ( Iteratif )

Program Deret Fibonacci ( Iteratif ) menggunakan bahasa Pascal

program Fibonacci_Iteratif;
{Buatlah program deret fibonacci dengan batas sejumlah N.
 Contoh : N = 5, maka Output : 0, 1, 1, 2, 3. Program ini dibuat oleh
 SRI WAHYUNI-1400018214 pada tanggal 08 JUNI 2015 dengan SEJUJUR-JURURNYA.}

uses crt;

procedure fibonacci( N : integer);
var
   U1, U2, U3, i : integer;
begin
    U1 := 0;
    U2 := 1;
    for i := 1 to N do
    begin
        U3 := U1 + U2;
        if (i=1) then
        begin
           write(U1);
        end
        else
        begin
             if (i=2) then
             begin
                write(', ',U2);
             end
             else
             begin
                  write(', ',U3);
                  U1 := U2;
                  U2 := U3;
             end;
        end;
    end;
end;

var
   a : integer;
begin
writeln('=========================================');
writeln('|   PROGRAM DERET FIBONACCI(ITERATIF)   |');
writeln('|             SRI WAHYUNI               |');
writeln('|             1400018214                |');
writeln('|           <08 JUNI 2015>              |');
writeln('=========================================');
writeln(' ');

write('Masukkan batas : ');
readln(a);
write('Deret Fibonacci : ');
fibonacci(a);

end.


Hasil Compile :

Read More

Pascal - Program Pangkat Rekursif

Program Pangkat Rekursif menggunakan bahasa Pascal


program Pangkat_Rekursif;
uses crt;

function pangkat(a : integer; n : integer):integer;
begin
     if n = 0 then
     begin
         pangkat := (1);
     end
     else
     begin
         pangkat := (a*pangkat(a, n-1));
     end;
end;

var
   b, x, hasil_pangkat : integer;
begin
    write('Masukkan bilangan yang akan dipangkatkan : ');
    readln(b);
    write('Masukkan jumlah pangkat : ');
    readln(x);

    clrscr;

    writeln('======================================');
    writeln('|           PROGRAM PANGKAT (REKURSIF)          |');
    writeln('|                          SRI WAHYUNI                               |');
    writeln('|                              1400018214                                  |');
    writeln('|                           <08 JUNI 2015>                              |');
    writeln('======================================');
    writeln(' ');
    writeln('b = ', b);
    writeln('x = ', x);
    writeln(' ');

    hasil_pangkat := pangkat(b, x);
    writeln('b^x = ', b,'^',x);
    writeln('    = ',hasil_pangkat);
end.

Hasil Compile :

Read More