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

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

Soal Pemrograman Dasar 2

1. Apa  yang  fungsi   dari   Hard Disk ? a. Seb agai   menyimpan  data  sementara b. Se bagai   alat   ketik c. Se bagai   penggerak   kursor { d . } Se bagai   tempat   penyimpanan  data e. S ebagai   alat   mencetak   dokumen 2 .  Manakah yang bukan termasuk dalam arsitektur  OS ? a.  Manajemen disk dan memori b.  Input output c.  Operator { d. } Port e.  Program 3.  Apakah fungsi manajemen memori pada struktur sistem  operasi ? a. Untuk program pemakai b. Sebagai operator { c. } Pengalokasian ruang memori d. Penyederhana akses I/O pada level atas e. Mengatur komunikasi antar proses 4.   “Auto-hide the taskbar”  b erarti   tampilan  taskbar…. A. Tetap { B. } Muncul   dan   tersembunyi   secara   otomatis C.Berubah D.Tersembunyi E. Di   atas  Windows 5.  ...
Posting Komentar
Baca selengkapnya

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