Program Konversi Nilai Dengan Pascal

Program mengkonversi nilai angka yang di dapat mahasiswa kedalam nilai huruf, dengan konversi :
Nilai >= 86 : A
70 <= Nilai < 86 : B
60 <= Nilai < 70 : c
50 <= Nilai < 60 : D
      Nilai < 50 : E

Berikut codingnya :

Program Nilai_Mahasiswa;
Uses wincrt;
Var
nim,nm,mk,kel,nh:string;
na:real;
Begin
writeln('    PROGRAM INPUT NILAI'    );
writeln('===========================');
Write('Masukan Nama Mahasiswa : ');Readln(nm);
Write('Masukan NIM            : ');Readln(nim);
Write('Masukan Mata kuliah    : ');Readln(mk);
Write('Masukan Nilai          : ');Readln(na);
clrscr;

writeln('===========================');
writeln('  PROGRAM NILAI MAHASISWA  ');
writeln('===========================');
writeln;
Writeln('Nama Mahasiswa : ',nm);
Writeln('NIM            : ',nim);
Writeln('Mata Kuliah    : ',mk);
Writeln('Nilai Angka    : ',na:2:0);

IF ((na >= 86) AND (na <= 100)) THEN
nh := 'A'
ELSE IF ((na >= 70) AND (na < 86)) THEN
nh := 'B'
ELSE IF ((na >= 60) AND (na < 70)) THEN
nh := 'C'
ELSE IF ((na >= 50) AND (na < 60)) THEN
nh := 'D'
ELSE
nh := 'E';
Writeln('Nilai Huruf    : ',nh);
writeln;
writeln('===========================');
end.

Selamat Mencoba!!

Read More

Program Perkalian Matriks dengan Pascal

Program perkalian matrik 2x3 dengan 3x4 yang menghasilkan matrik 2X4. Berikut codingnya:

Program perkalian_matrik;
uses wincrt;
const
  Amatrik23 : array [1..2, 1..3] of integer = ((2,3,1),(1,4,1));
  Bmatrik34 : array [1..3, 1..4] of integer = ((3,2,5,2),(2,1,1,4),(3,6,2,1));
var
  Cmatrik24 : array [1..2, 1..4] of integer;
  i,j,k : integer;
begin
  clrscr;
  for i := 1 to 2 do
  begin
    for j := 1 to 3 do
    begin
      write(Amatrik23[i,j]:3);
    end;
    writeln;
  end;

  for j := 1 to 3 do
  begin
    for k := 1 to 4 do
    begin
      writeln;
      write(Bmatrik34[j,k]:4);
    end;
    writeln;
  end;

  for i := 1 to 2 do
  begin
    for k := 1 to 4 do
    begin
      Cmatrik24[i,k]:=0;
      for j := 1 to 3 do
      begin 
        Cmatrik24[i,k] := Cmatrik24[i,k] + Amatrik23[i,j] * Bmatrik34[j,k];
      end;
    end;
  end;

  writeln;
  writeln('Hasil Perkalian Matrik');
  for i := 1 to 2 do
  begin
    for k := 1 to 4 do
    write(Cmatrik24[i,k]:4);
    writeln;
  end;
end.



Selamat mencoba!! ^_^

Read More

Fungsi SQR dan SQRT dalam pascal

Untuk mendefinisikan kwadrat dan akar kwadrat di dalam fungsi matematika dipakai perintah:

SQR  untuk kwadrat

SQRT untuk akar kwadrat

Argumen fungsi SQR dan SQRT bias variable atau konstanta dengan tipe real ataupun integer, tapi hasil harus real.

contoh program menghitung panjang sisi miring segitiga siku-siku (sqr & sqrt)

Program Sisi_Miring;

Uses wincrt;

Var

   a,b,c:real;

Begin

    clrscr;

    write('Masukkan sisi A = '); readln(a);

    write('Masukkan sisi B = '); readln(b);

    c:=sqrt((sqr(a))+(sqr(b)));

    writeln('Panjang sisi miring = ',c:2:2);

End.

Selamat mencoba!!

Read More

Konfigurasi DNS pada Debian 6

Terlebih dahulu kita tentukan IP address, Netmask, IP Network, Broadcast, Gateway, dan IP tambahan.

Hostname       :  Iin

IP  Address     :  192.168.0.4

Netmask          :  255.255.255.0

IP Network     :  192.168.0.0

Broadcast      :  192.168.0.255

Gateway         :  192.168.0.1

Domain          :  Afifatur.com

Name Server :  server.Afifatur.com          (192.168.0.4)

Sub domain   :  sub.Afifatur.com               (192.168.0.5)

                           Mail.Afifatur.com             (192.168.0.6)

Setelah itu barulah kita mulai konfigurasi.

·        Ketik perintah ifconfig eth0 untuk melihat konfigurasi IP address saat instalasi.

root@Iin:/home/iin# ifconfig eth0          (Enter)

·        Ping IP address tersebut.

root@Iin:/home/iin# ping 192.168.0.4       (Enter)

·        Masuk ke file /etc/rc.local untuk menambahkan konfigurasi IP address.

root@Iin:/home/iin# vim /etc/rc.local      (Enter)

Masukkan konfigurasi berikut sebelum Exit 0

Ifconfig eth0 : 1 192.168.0.5   Netmask : 255.255.255.0

Ifconfig eth0 : 2 192.168.0.6   Netmask : 255.255.255.0

·        Restart system.

root@Iin:/home/iin#reboot             (Enter)

·        Ping konfigurasi IP tersebut.

root@Iin:home/iin# ping 192.168.0.5        (Enter)

root@Iin:home/iin# ping 192.168.0.6        (Enter)

Untuk konfigurasi DNSnya dapat dilihat  Disini!!

Read More