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

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

Soal Pemrograman Dasar 3

1. Merupakan salah satu Bahasa pemrograman visual hasil pengembangan produksi Borland adalah A. Delphi C. Javascript E. Dreamweaver B. Pascal D. Visual Basic 2.  Kata Delphi sendiri berasal dar i Bahasa… A. Yunani C. Inggris E. Belanda B. Romawi D. Indonesia 3.  Digunakan untuk menentukan pilihan lebih dari satu adalah fungsi dari komponen... A. ListBox C. CheckBox E. Radio Button B. Label D. Edit 4 .   Shortcut yang digunakan untuk menjalankan program (run) adalah... A. F5 C. F7 E. F9 B. F6 D. F8 5 .   Dibawah ini manakah penulisan bentuk umum Percabangan IF yang benar... A. If syarat then hasil; C. Then syarat if hasil; E.  If hasil then syarat;   B. Then hasil if syarat; D. Semua Jawaban Sal...
Posting Komentar
Baca selengkapnya