Langsung ke konten utama

Pemrograman Dasar ( Pascal)

1.Program IF
Program Nilai;
uses crt;
var a,b,c : integer;
   nama,nis,huruf,ket : string;
   ttl,rata2 : real;
begin
clrscr;
write('NIS   :');readln(nis);
write('Nama  :');readln(nama);
write('uts   :');readln(a);
write('tugas :');readln(b);
write('uas   :');readln(c);
writeln('total :',a+b+c);
ttl:=a+b+c;
writeln('rata-rata :',ttl/3:0:0);
rata2:=ttl/3;
if rata2>90 then
  begin
       writeln('Nilai Huruf : A');
  end
else if rata2>74-90 then
    begin
         writeln('Nilai Huruf : B');
    end
else if rata2>50-75 then
    begin
         writeln('Nilai Huruf : C');
    end
else if rata2>40-50 then
    begin
         writeln('Nilai Huruf : D');
    end
else
   begin
        writeln('Nilai Huruf : E');
   end;
if rata2>74then
  begin
       write('Keterangan : LULUS');
  end
else if rata2>50-75 then
   begin
        write('Keterangan : REMEDIAL');
   end
else
   begin
        write('Keterangan : GAGAL');
   end;
readln;
end.
2.Program Case Nilai Of
program Nilai;
uses crt;
var a,b,c,ttl,rata2 : integer;
   nama,nis,huruf,ket : string;
begin
clrscr;
      write('Nis   :');readln(nis);
      write('Nama  :');readln(nama);
      write('uts   :');readln(a);
      write('tugas :');readln(b);
      write('uas   :');readln(c);
      write('total :',a+b+c);
      ttl:=a+b+c;
readln;
writeln('rata-rata : ',ttl/3:0:2);
rata2:=ttl div 3;
case rata2 of
100..75 :writeln('KETERANGAN : LULUS');
75..50 :writeln('KETERANGAN : REMEDIAL');
else
writeln ('KETERANGAN : GAGAL');
end;
readln;
end.

3.Program Bermanfaat
Program_Rumah_Makan
uses crt;
var km,masak : string;
   h,b : integer;
   k : real;
begin
clrscr;
writeln('Rumah Makan');
writeln('===========');
writeln('PAKET1, PAKET2, PAKET3, PAKET4 , PAKET5 , PAKET6');
write('Kode Makanan :');readln(km);
if km ='PAKET1'then
  begin
       writeln('Ikan   : Ayam');
       writeln('Nasi   : 1');
       writeln('Minum  : es jeruk');
  end
else if km ='PAKET2'then
  begin
       writeln('Ikan   : Nila');
       writeln('Nasi   : 1');
       writeln('Minum  : es jeruk');
  end
else if km ='PAKET3'then
  begin
       writeln('Ikan   : Ayam');
       writeln('Nasi   : 2');
       writeln('Minum  : es teh');
  end
else if km ='PAKET4'then
  begin
       writeln('Ikan   : Nila');
       writeln('Nasi   : 2');
       writeln('Minum  : es teh');
  end
else if km ='PAKET5'then
  begin
       writeln('Ikan   : Patin');
       writeln('Nasi   : 1');
       writeln('Minum  : es jeruk');
  end
else if km ='PAKET6'then
  begin
       writeln('Ikan   : Patin');
       writeln('Nasi   : 2');
       writeln('Minum  : es teh');
  end
else
   begin
        writeln('Kode Tidak Valid !');
   end;
write('Tipe Masak       :');readln(masak);
write('Bayar            :');readln(b);
write('Harga            :');readln(h);
k:=b-h;
write('Kembali          :',k:2:0);
readln;
end.
4.Program Aritmatika

uses crt;
var a,b,c,d,e,f,g,h     : integer;
   i,j,k,l             : real;
begin
clrscr;
writeln('PROGRAM PENJUMLAHAN');
writeln('===================');
write('Masukkan Nilai 1 :');readln(a);
write('Masukkan Nilai 2 :');readln(b);
writeln('');
writeln('Penjumlahan');
i:=a+b;
writeln('Hasil Penjumlahan ',a,' dan ',b,' adalah :', i:2:0);
writeln('==================');
writeln('');
writeln('PROGRAM PENGURANGAN');
writeln('==================');
write('Masukkan Nilai 1 :');readln(c);
write('Masukkan Nilai 2 :');readln(d);
writeln('');
writeln('Pengurangan');
j:=c-d;
writeln('Hasil Pengurangan ',c,' dan ',d,' adalah :', j:2:0);
writeln('==================');
writeln('');
writeln('PROGRAM PERKALIAN');
writeln('==================');
write('Masukkan Nilai 1 :');readln(e);
write('Masukkan Nilai 2 :');readln(f);
writeln('');
writeln('Perkalian');
k:=e*f;
writeln('Hasil Perkalian ',e,' dan ',f,' adalah :', k:2:0);
writeln('==================');
writeln('');
writeln('PROGRAM PEMBAGIAN');
writeln('==================');
write('Masukkan Nilai 1 :');readln(g);
write('Masukkan Nilai 2 :');readln(h);
writeln('');
writeln('Pembagian');
l:=g/h;
writeln('Hasil Pembagian ',g,' dan ',h,' adalah :', l:2:0);
readln;
clrscr;
end.

Komentar

Posting Komentar

Postingan populer dari blog ini

Materi Firewall Fortigate Fundamentals

FIREWALL Firewall dapat disebut “gatekeeper” atau penjaga pintu gerbang yang melindungi internet perusahaan dan jaringan komputer lainnya dari intrusi atau penyusup. Firewall juga pada umumnya digunakan untuk mengontrol akses terhadap siapapun yang memiliki akses terhadap jaringan pribadi dari pihak luar. Firewall adalah suatu sistem perangkat lunak yang mengizinkan lalu lintas jaringan yang dianggap aman untuk bisa melaluinya dan mencegah lalu lintas jaringan yang tidak aman. Umumnya firewall diterapkan dalam sebuah mesin terdedikasi, yang berjalan pada gateway antara jaringan lokal dengan jaringan internet. Firewall berfungsi untuk melakukan autentikasi terhadap akses, memfilter, mengawasi paket data yang mengalir di jaringan, dan mengontrol lalu lintas data yang diizinkan untuk mengakses jaringan lokal yang dilindungi firewall. sistem keamanan jaringan menggunakan fortigate FORTIGATE Fortigate  adalah sebuah sistem keamanan yang dikeluarkan o...
1 komentar
Baca selengkapnya

Aplikasi Aplikasi Berbasis Web

Aplikasi Berbasis Web              A plikasi berbasis web  adalah aplikasi yang tidak harus diinstall dulu di komputer atau aplikasi yang bisa langsung dijalankan dengan menggunakan Web Browser. Web browser adalah suatu perangkat lunak yang digunakan untuk menampilkan halaman-halaman website yang ada di internet.   contoh :  Mozila Firefox, Internet Explore, Netscape, Safari, google Chorme dll.  Aplikasi Berbasis Web adalah sebuah aplikasi yang dapat diakses melalui internet atau intranet, dan pada sekarang ini ternyata lebih banyak dan lebih luas dalam pemakaiannya.  Banyak dari perusahaan- perusahaan  berkembang yang menggunakan Aplikasi Berbasis Web dalam merencanakan sumber daya mereka dan untuk mengelola perusahaan mereka Aplikasi Berbasis Web dapat digunakan untuk berbagai macam tujuan yang berbeda.  Sebagai contoh, Aplikasi Berbasis Web dapat digunakan untuk membuat invoice dan memberik...
Posting Komentar
Baca selengkapnya

Macam macam Budaya Politik

Macam-Macam Budaya Politik -  Budaya politik dibagi dalam beberapa tipe berdasarkan dari oritentasi politiknya.   Macam-macam budaya politik atau tipe-tipe budaya politik adalah sebagai berikut... a. Budaya Politik Parokial  Pengertian Budaya Politik -  Budaya Politik Parokial adalah budaya politik dengan tingkat partisipasi politik yang sangat rendah.   Budaya politik parokial umumnya terdapat dalam masyarakat tradisional dan lebih bersifat sederhana. Berdasarkan pendapat Moctar Masoed dan Colin Mc. Andrew, yang mengatakan budaya politik parokial adalah orang-orang yang tidak mengetahui  sama  sekali adanya pemerintahan dan politik. Ciri-Ciri Budaya Politik Parokial  •  Apatis  •  Lingkupnya sempit dan kecil  •  Pengetahuan politik rendah  •  Masyarakatnya yang sederhana dan tradisional •  Adanya ke tidak peduli dan juga menarik diri dari kehidupan politik  •  Anggota masyarakat condo...
Posting Komentar
Baca selengkapnya