Operator Aritmatika dalam Pascal beserta contohnya

Operator Aritmatika

* = Perkalian

/ = Pembagian Pecahan

+ = Penjumlahan

-  = Pengurangan

Div = Pembagian Bulat

Mod = Sisa Bagi

Contoh :

3*2 = 6

3/2 = 1,3

3+5 = 8

3-5 = 2

3 div 2 = 1

3 mod 2 = 1

2 div 3 = 0

2 mod 3 = 2

1000 div 10 = 100

1000 mod 10 = 0

Menentukan Hasil Mod dan Div :

Uses crt;

Var

Nilai1 : integer ;

Nilai2 : integer ;

Hasil1 : integer ;

Hasil2 : real ;

Begin

Clrscr

Nilai1 :=3;

Nilai2 :=2;

Hasil1 := nilai1*nilai2;

Hasil2 := nilai1/nilai2;

Writeln(‘nilai 1 = ‘ , nilai1);

Writeln(‘nilai2=’, nilai2);

Writeln(‘nilai  1 div nilai 2 =’, nilai1 div nilai2);

Writeln(‘nilai 1 mod nilai 2 =’, nilai1 mod nilai2);

Readln;

End.

Output

Nilai 1 = 3

Nilai 2 = 2

Nilai 1 Div Nilai 2 = 1

Nilai 1 Mod Nilai 2 = 1

Memisahkan suatu bilangan dalam Ribuan, Ratusan, Puluhan, dan Satuan

Uses crt;

Var

X : word ;

Ribuan : word ;

SisaRibuan : word ;

Ratusan : word ;

SisaRatusan : word ;

Puluhan : word ;

Satuan : word  ;

Begin

Clrscr;

Write : (‘Ketik Suatu Angka’);

Readln(x) ;

Ribuan : x div 1000 ;

SisaRibuan: x mod 1000 ;

Ratusan : x div 100 ;

SisaRatusan : x mod 100 ;

Puluhan : x div 10 ;

Satuan : x mod 10 ;

Writeln (x,’=’,ribuan,’Ribuan +’, ratusan,’ratusan +’,Puluhan,’Puluhan +’, Satuan,’Satuan.’);

Readln;

End.