Final Test Math Computations

Ilmu yang mengintegrasikan matematika terapan dan ilmu komputer disebut…

• Pemrograman Matematika

• Simulasi Matematika

• Teori Komputasi

• Komputasi Matematika

Output Program Berikut adalah

A<-c(3,5,2,1,4)

print(A)

m<-A[1]

for (i in 2:length(A) ){

if(A[i]>m){

m<- A[i]

}

}

cat(m, "\n")

• [1] 3 5 2 1 6

  
  

  6

• [1] 1 2 3 5 6

  
  

  1

• [1] 3 5 2 1 6

  
  

  5

• [1] 1 2 3 5 6

  
  

  6

Sempurnakanlah Program Berikut sehingga outputnya adalah rata-rata dari X (isilah titik-titik) :

x<-c(1,2,3,4,5,6,7,8,9)

......

ijumlah<-0

for(i in 1<n){

ijumlah<-ijumlah+x[i]

}

meanx<-ijumlah/n

.....

(a)  

yang termasuk operator relasi

• =

• <=

• ==

• !=

• x

script umum untuk membuat fungsi

• nama_fungsi<-function(paramter1, parameter2,..){

  
  

  }

• function<-nama_fungsi(paramter1, parameter2,..)

• nama_fungsi<-function[paramter1, parameter2,..]{

  
  

  }

• nama_fungsu<-function{paramter1, parameter2,..}{

  
  

  }

Output Program Berikut;

var_loop<-c("perulangan")

i<-1

repeat{

cat(var_loop, i,"\n")

i<-i+1

if(i>3){

break

}

}

• perulangan 1

  perulangan 2

• perulangan 1

  perulangan 2

  perulangan 3

• perulangan 2

  perulangan 4

  perulangan 6

• perulangan 1

  perulangan 3

  perulangan 5

yang mana dari script berikut yang merupakan script untuk menghitung nilai faktorial (pilih lebih dari satu)

• inisialFak_n<-1

  Fak_n<-inisialFak_n;

  i<-1

  while(i<=n){

  Fak_n<-Fak_n*i

  i<-i+1

  }

• fak<-function(n){

  if(n==0){

  fak<-1;

  }else{

  return(n*fak(n-1))

  }

• fak<-function(n){

  if(n==0){

  fak<-1;

  }else{

  return((n-1)*fak(n))

  }

• inisialFak_n<-1

  Fak_n<-inisialFak_n;

  i<-0

  while(i<=n){

  Fak_n<-Fak_n*i

  i<-i+1

  }

Jenis kesalahan dalam membuat program

• Kesalahan Script

• Kesalahan Logika

• Kesalahan overcapasity

• kesalahan running time

pilih yang mana termasuk operator logika (Pilih lebih dari satu yang benar)

• &&

• I

• !

• %

tuliskan kegunaan fungsi berikut:

a<- as.integer(readline("input "))