Program pascal 2

1.      Program Hitung Campuran

program HitungCampuran;

uses crt;

var jawab:integer;

begin

write('5 x 7 + 5 / 4 =');readln(jawab);

If jawab=10 Then

Writeln('Selamat Jawaban Anda Benar')

else

writeln('Coba Lagi, Jawaban Anda Masih Salah');

end.

                                    (Minggu, 18 0ktober 2015)

2.      Program Campuran

Program Campuran;

uses crt;

var bil1,bil2:real;

    op:char;

begin

write('masukkan bilangan 1: '); readln(bil1);

write('masukkan bilangan 2: '); readln(bil2);

write('operator" + - * / ": '); readln(op);

case op of

      '+'   :writeln(bil1+bil2:2:2);

      '-'   :writeln(bil1-bil2:2:2);

      '*'   :writeln(bil1*bil2:2:2);

      '/'   :writeln(bil1/bil2:2:2);

      else

      writeln('salah operator');

      end

end.

 

                                          (Senin, 19 Oktober 2015)

3.      Program Penyewaan

program PenyewaanMobil;

uses crt;

var   harga,hari:real;

      nama:string;

begin

harga:=200000;

write('Nama Penyewa : ');readln(nama);

write('Jumlah Hari : ');readln(hari);

if (hari<=1)then

      begin

      harga:=harga;

      writeln('harga :Rp.',harga:2:2);

      end

else if (hari=2)then

      begin

      harga:=harga*2;

      writeln('harga :Rp.',harga:2:2);

      end

else if (hari=3)then

      begin

      harga:=harga*3;

      writeln('harga :Rp.',harga:2:2);

      end

else

      begin

      writeln('TIDAK BOLEH LEBIH DARI 3 HARI');

      end;

end.   

 

                                                                        (Selasa, 20 Oktober 2015)      

4.      Program Bilangan Ganjil dan Genap

Program BilanganGanjildanGenap;

uses crt;

var n:integer;

begin

write('masukkan bilangan ='); readln(n);

if n mod 2=0 then

writeln('Termasuk Bilangan Genap')

else

writeln('Termasuk Bilangan Ganjil');

end.

 

                                                                        (Rabu, 21 Oktober 2015)

5.      Program Sudut Segitiga

program SudutSegitiga;

uses crt;

var a,b,c:integer;

begin

 write('Masukkan Panjang Sisi A: ');readln(a);

 write('Masukkan Panjang Sisi B: ');readln(b);

 write('Masukkan Panjang Sisi C: ');readln(c);

 writeln;

 if (c=a+b) then

      begin

      writeln('Sisi Tersebut Membentuk: Segitiga Siku-Siku')

      end

 else if c>a+b then

      begin

      writeln('Sisi Tersebut Membentuk: Segitiga Tumpul');

      end

 else if c<a+b then

      writeln('Sisi Tersebut Membentuk: Segitiga Lancip');

end.

 

                                                                                    (Rabu, 21 Oktober 2015)

6.      Program Beasiswa

Program Beasiswa;

uses crt;

var test:integer;

    ket:String;

begin

write('Masukkan Nilai Test: '); readln(test);

case test of

90..100 : ket:= 'Kategori 1 ( Beasiswa 100% )';

80..89  : ket:= 'Kategori 2 ( Beasiswa 70% )';

70..79  : ket:= 'Kategori 3 ( Beasiswa 50% )';

else

ket:= 'Anda tidak mendapat Beasiswa';

end;

writeln(ket);

end.

 

                                         (Kamis,22 Oktober 2015)

7.       Program Jadwal Kuliah

program JadwalKuliah;

uses crt;

var

    hari:string;

begin

     write('masukan hari= '); readln(hari);

     case hari of

           'senin':writeln('Jadwal Senin: Agama,Pendidikan Pancasila');

           'selasa':writeln('Jadwal Selasa: Organisasi Komputer, Dasar Sistem Komputer');

           'rabu':writeln('Jadwal Rabu: Ilmu Sosial Dasar');

           'kamis':writeln('Jadwal Kamis: Logika Informatika, Pengantar Pendidikan');

           'jumat':writeln('Jadwal Jumat: Pemrograman Dasar, Kalkulus');

      else

      writeln('Tidak Ada kuliah');

      end    

end.

 

                                          (Kamis, 22 Oktober 2015)