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

Materi PIP dan Telnetlib

Python Package Manager Jika PHP hadir dengan  Composer ,  Nodes  dengan  npm -nya, maka Python hadir dengan  PIP  nya,  PIP  adalah  package manager  untuk Python dimana kita bisa mencari, meng- install ,  modules  atau  library  pada installasi Python kita.  PIP  memiliki beberapa fungsi yaitu: Install  dan  uninstall  Modules / Library Search  Library Mengecek versi Library dan Library yang sudah ter- install . Fungsinya cukup sederhana namun sangat memudahkan dibandingkan harus menambahkan  modules  dengan cara konvensional. Berikut merupakan perintah-perintah dasar pada PIP: pip install <package name> Contoh jika kita ingin menginstall Django  Framework , cukup dengan menggukan perintah: pip install django Maka secara otomatis mendownload dan menginstall library django beserta dependency yang dibutuhkan. pip show <p...
Posting Komentar
Baca selengkapnya

Soal Command Line Interface

1.Tipe  antarmuka dimana pengguna berinteraksi dengan sistem operasi melalui text-terminal..   A . CLI C . Mikroprosesor E . Java Server Pages B. GUI D . Web 2. Kepanjangan dari CLI... A. Command Line Interface C. Comp Line Interfaces E. Commend Line Interface B. Comp Line Interface D. Command Line Inter 3. Kekurangan   dari  CLI  adalah ...   A. Harus mengingat baris dan perintah C. Akurat E. Menarik B. Loading  cepat D. Hanya   membutuhkan spesifikasi  hardware  yg rendah 4 . Kelebihan   dari  GUI  adalah ... A. Menarik   tampilannya C. kemungkinan  loading  lambat E. tidak   menarik   tampilannya B. Harus   membutuhkan spesifikasi   yg   cukup D. Mudah   terkena  v...
Posting Komentar
Baca selengkapnya