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 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 Salah 6 . Jendela
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 oleh
1 komentar
Baca selengkapnya

Materi Subnetting dan VLSM

SUBNETTING Subnetting adalah teknik memecah suatu jaringan besar menjadi jaringan yang lebih kecil dengan cara mengorbankan bit Host ID pada subnet mask untuk dijadikan Network ID baru. Subnetting merupakan teknik memecah network menjadi beberapa subnetwork yang lebih kecil. Subnetting hanya dapat dilakukan pada IP addres kelas A, IP Address kelas B dan IP Address kelas C. Dengan subnetting akan menciptakan beberapa network tambahan, tetapi mengurangi jumlah maksimum host yang ada dalam tiap network tersebut.   Alasan Melakukan Subnetting Mengalokasikan IP address yang terbatas supaya lebih efisien. Jika internet terbatas oleh alamat-alamat di kelas A, B, dan C, tiap network akan memliki 254, 65.000, atau 16 juta IP address untuk host devicenya. Walaupun terdapat banyak network dengan jumlah host lebih dari 254, namun hanya sedikit network (kalau tidak mau dibilang ada) yang memiliki host sebanyak 65.000 atau 16 juta. Dan network yang memiliki lebih dari 254 device akan me
Posting Komentar
Baca selengkapnya