Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Operasi Aritmatika XI TKJ 1
#1
Nama Kelompok :
[spoil]I kadek ari susila (04)
I Wayan Eka Wahyu Darmalaksana (14)
Firmansyah Maliq Pratama (15)
Repsi yun aritonang (26)[/spoil]

Pemrograman dasar


A. OPERASI ARITMATIKA
Operasi aritmatika adalah sebuah proses yang melibatkan operator terhadap 2 input data atau lebih untuk menghasilkan nilai output tertentu disebut sebagai operasi.Data operasi yang melibatkan nilai data berjenis numerik, baik bilangan bulat maupun bilangan real disebut sebagai operasi aritmatika.Data yang memperoleh perlakuan operasi disebut operand, sedangkan symbol khusus yang melakukan operasi disebut operator.

Daftar operasi Aritmatika :
[Image: 2ns8ksp.png]

B. Fungsi MATEMATIKA
1.ABS
ABS merupakan fungsi matematika dalam pascal yang berguna untuk menghasilkan nilai mutlak dari sebuah bilangan negatif.
Contoh:

Code:
Code: Select all
Program abs_bulat;
const x=12;
   y=13;
var hasil : integer;
clrscr;
hasil := x – y;
writeln (x,’  –  ‘,y,’ = ‘,hasil);
hasil:=ABS(hasil);
writeln(‘penggunaan abs dari  ‘ ,x, ’ - ‘,y,’ = ’,hasil);
readln;
end.

2.FRAC
FRAC merupakan fungsi matematika dalam Pascal yang berguna untuk menghasilkan nilai desimal dari bilangan real.
Cohtoh:

Code:
Code: Select all
Program Frac_real;
Usas crt;
Var hasil : single;
Begin
   Clrscr;
   Hasil:=FRAC (1.64);
   Writeln(‘penggunaan Frac = ‘,hasil)
   Readln;
End.

3.INT
INT Berfungsi untuk membulatkan bilangan pecahan menjadi bilanganpecahan menjadi bilangan bulat positif. Pembulatan yang di lakukan adalah pembulatan ke bawah (Nilai Desimal di buang).
Contoh;

Code:
Code: Select all
Program hitung_int;
Uses crt;
Var hasil : read;
Begin
   Clrscr;
   Hasil:= 1 + 1.2;
   Hasil:= INT dari  ‘,x,’ = ‘, hasil);
   Readln;
End.

4.LN
LN Berfungsi untuk menghasilkan nilai logaritma dari sebuah bilangan
Contoh:

Code:
Code: Select all
Program logaritma;
Uses crt;
Var hasil    : real;
   X   : integer;
Begin
   Clrscr;
   X := 100;
   Hasil := LN (x);
Writeln ( ‘Penggunaan LOG dari ‘,x,’ = ‘,hasil);
Readln;
End.


5.SIN
Sintaks SIN berfungsi untuk menghitung nilai silus dari sebuah bilangan yang biasanya di gunakan untuk menghitung sudut tertentu dari 0° sampai 360° pada operasi matematika.
Contoh:

Code:
Code: Select all
Program sinus;
Uses crt;
Var hasil   : real;
   X   : integer;
Begin
   Clrscr;
   X := 60;
   Hasil := SIN(x);
   Writeln (‘ Penggunaan SIN dari ‘,x,’ = ‘, hasil);
   Readln;
End.

6.SGR

Sintaks SQR Berguna untuk melakukan penghitungan kuadrat dari sebuah bilangan.
Contoh:

Code:
Code: Select all
Program kuadrat;
Uses crt;
Var    hasil1,x : real;
   Hasil2,y: integer;
Begin
   Clrscr;
   X := 10.2;
   Y := 3;
   Hasil1   := SQR (x);
   Hasil2   :=SQR (y);
   Writeln(‘ Penggunaan SQR dari ‘,x,’ = ‘,hasil1);
   Writeln(‘ Penggunaan SQR dari ‘,y,’ = ’,hasil2);
   Readln;
End.

7.SQRT
Sintaks SQRT Berguna untuk melakuan penghitungan akar kuadrat dan sebuah bilangan.
Contoh:

Code:
Code: Select all
Program akarkuadrat;
Uses crt;
Var    Hasil1,x   : real;
   Hasil2   : real;
   Y   : integer;
Begin
   Clrscr;
X := 4;
Y := 16;
Hasil1 := SQRT (x);
Hasil2 := SQRT (y);
Writeln(‘ Penggunaan SQRT dari ‘,x,’ = ’,hasil1);
Writeln(‘ Penggunaan SQRT dari ‘,y,’ = ‘,hasil2);
Readln;
End.

8.Pemangkatan Lebih Dari 2

Untuk menghitung bilangan dengan pangkat lebih 2. Misalnya 4 pangkat 3, maka harus menggunakan struktur perulangan untuk melakukan perkalian sebanyak jumlah pangkat. Contoh:
22 =2 X 2= 4
43 =4 X 4 X 4 = 64
40 = 1
Contoh :

Code:
Code: Select all
Program hitungpangkat;
Uses crt;
Var hasil,x   : integer;
I, pangkat   : integer;  
Begin
   Clrscr;
   X := 4;
Pangkat := 4;
Hasil := 1;
If pangkat <> 0 then
Begin
For I := 1 to pangkat do
Begin
      Hasil := hasil * x;
End;
End
Else
Begin
   Hasil := 0
End;
Writeln (x,’ pangkat ‘,pangkat,’ = ‘, hasil);
Readln;
End.

9.PRED
Printah PRED di gunakan untuk menghasilkan nilai yang lebih kecil darinya. Perintah PRED hanya dapat di gunakan pada type data numeric,Character,Boolean.
Contoh:

Code:
Code: Select all
Program tampil_pred;
Uses crt;
Var
   X, angka   : integer;
   Y, kar      : char;
   Bol, hasil   : Boolean;
   Kata, kata2   : string;
Begin
   Clrscr;
X := 11;
Y := ‘D’;
Bol := true;
Angka := PRED (x);
Kar := PRED (y);
Hasil := PRED (bol);
Writeln (hasil);
Writeln (‘ Nilai PRED dari ‘,x,’ = ‘,angka);
Writeln (‘ Nilai PRED dari ‘,y,’ = ‘,kar);
Readln;
End.



10.SUCC

Perintah SUCC digunakan untuk menghasilkan nilai yang lebih besar darinya. Sama seperti perintah PRED,SUCC hanya dapat digunakan pada type data numeric, character,dan Boolean
Contoh:

Code:
Code: Select all
Program tampil_succ;
Uses crt;
Var
   X, angka   : integer;
   Y, kar      : char;
   Bol, hasil   : Boolean;
Begin
   Clrscr;
   X := 100;
   Y := ‘z’;
   Bol := false;
   Angka := SUCC (x);
   kar := SUCC (y);
   hasil := SUCC (bol);
   writeln (‘ Nilai SUCC dari ‘,x,’ = ‘,angka);
   writeln (‘ Nilai SUCC dari ‘,y,’ = ‘,kar);
   readln;
end.

11.CHR
Perintah CHR digunakan untuk mengkanfersi data numeric menjadi data bertiype karakter berdasarkan code ASCII.
Contoh:

Code:
Code: Select all
program tampil_CHR;
uses crt;
var
x: integer;
kar : char;
begin
clrscr;
x:=100;
kar:=CHR(x);
writeln('Nilai CHR dari ',x,'=',kar);
readln;
end.


12.ORD
Perintah ORD di gunakan untuk mengkonversi data bertipe karakter menjadi data bertipe numeric berdasarkan code ASCII.
Contoh:

Code:
Code: Select all
program tampil_ord;
usescrt;
var
x:integer;
kar:char;
begin
clrscr;
kar:='@';
x:=ORD(kar);
writeln('Nilai CHR dari',kar,'=',x);
readln;
end.

13.ODD
Perintah ODD digunakan untuk menentukan sebuah bilangan apakah termasik bilangan ganjil atau bukan. Output dari operasi ODD adalah Boolean.
COntoh:

Code:
Code: Select all
program tampil_ODD;
uses crt;
var
x: integer
hasil: boolean;
begin
clrscr;
x:=11;
hasil:= ODD(x);
writeln(x,'apakah bilangan ganjil?',hasil);
readln;
end.


14.INC dan DEC
Perintah INC digunakan untuk menambah nilai bilangan numerik sebesar 1, sedangkan perintah DIC digunakan untuk mengurangi nilai bilangan numeric sebesar 1. Format penulisan NIC sebagai Berikut:
Contoh:
NIC(Vriable_data);
NIC(x)

format penulisan DEC
DEC(variable_data);
NIC(x);

contoh;
Code:
Code: Select all
program NIC_DEC;
usescr;
var x:integer;
beginclrscr;
x:= 1;
writeln('perintah NIC dengan while');
while x<= 10 do
begin
write(x,' ');
NIC(x);
end;
writeln();
writeln('Perintah DEC dengan While');
while x>= 1 do
begin
writex,' ');
DEC(x);
end;
readln;
end.

15. RANDOM
Perintah RANDOM di gunakan untuk menampilkan bilangan numeric secara acak. Adapun format penulisan nya adalah sebagai berikut;
Contoh:
RANDOM (Range_Nilai_Acak);
contoh bilangan mengacak 1-100
RANDOM(100);

contoh

Code:
Code: Select all
program acak_bilangan;
uses crt;
var i :integer;
begin
clrscr;
for i:=1 o 20 do
begin
writeln('bilangan ke',i,'=',random(100));
end;
readln;
end.
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)

About Us
    Write About your Forum and stuff where this theme is Placed Just I am trying to extend the paragraphs to make some nice looking lines. But you can write about your forum lol. Like what your forum have special and all. or just leave what i have written if you don't like to write much..