Minggu Kelima (Alpro) : Latihan Diktat

dikarenakan ada tugas dari diktat, saya disini ingin membahas sedikit dua soal yang saya kerjakan.

saya mengerjakan BAB 6 no 8 dan 10.

yaitu prosedure

no 8 buatlah prosedure menghitung nilai tinggi segitiga

Algoritma

Prosedure tinggi  input a:integer l:integer

(menghitung nilai tinggi berdasarkan rumus luas segitiga L=1/2xaxt)

Deklarasi

t : integer

Deskripsi

t<-l/a*2

write(t)

untuk c++ nya

#include <iostream>
using namespace std;
/* run this program using the console pauser or add your own getch, system("pause") or input loop */
int tinggi (int x, int y){
    int t;
        t=(x/y*2);
        return (t);
}

int main(int argc, char** argv) {
    int a=0, l=0, tin;
    cout<<"Menghitung tinggi segitiga"<<endl;
    cout<<"Masukkan Luas Segitiga = "; cin>>l;
    cout<<"Masukkan Alas Segitiga = "; cin>>a;
    tin=tinggi(l,a);
    cout<<"Tinggi Segitiga = "<<tin;
    return 0;
}

 
no 10 yaitu membuat prosedure menghitung permutasi

Algoritma

Prosedure faktorial input n:integer r:integer

(menghitung permutasi menggunakan faktorial)

Deklarasi

f : integer i:integer p:integer permutasi: integer

Deskripsi

 iß1  fß1

while(i<=x) f<-f*i  

i<-i+1 end loop

i<-1 p<-n-r

while (i<=p) p<-p*i

i<-i+1

end loop permutasi<- f/p

write(permutasi)

untuk c++ nya

#include <iostream>

/* run this program using the console pauser or add your own getch, system("pause") or input loop */
using namespace std;

int faktorial(int x){
    int i=1, f;
    f=1;
    while(i<=x){
        f=f*i; i++;
    } return (f);
}

int main(int argc, char** argv) {
    int n, r, p, permutasi;
    cout<<"Menghitung Permutasi "<<endl;
    cout<<"Masukkan nilai n = "; cin>>n;
    cout<<"Masukkan nilai r = "; cin>>r;
    p=n-r;
    permutasi=faktorial(n)/faktorial(p);
    cout<<"Hasil Permutasi nPr = "<<permutasi;
    return 0;
}