Diktat Alpro Bab 5 - No.3

#Diktat Alpro Bab 5 - No.3

3. Buatlah algoritma dan program untuk mencetak bilangan yang habis dibagi 3 dan 5
antara 1 sampai dengan 100.

Program:
#include <iostream>
#include <math.h>
using namespace std;
/* run this program using the console pauser or add your own getch, system("pause") or input loop */

int main(int argc, char** argv) {
    int a,b,i,jumlah=0;
    cout<<"Menghitung Perkalian dengan Penjumlahan"<<endl;
    cout<<"Masukan Nilai pertama = ";cin>>a;
    cout<<"Masukan Nilai Kedua   = ";cin>>b;
    if (a>0 && a<0 || b>0){
    for(i=1;i<=b;i++)
        jumlah+=a;
        cout<<a<<"x"<<b<<"="<<jumlah;
    }else if(b<0 && a<0){
        for(i=0;i>a;i--)
        jumlah-=b;
        cout<<a<<"x"<<b<<"="<<jumlah;          
    }else{
        for(i=1;i<=a;i++)
        jumlah+=b;
        cout<<a<<"x"<<b<<"="<<jumlah;
    }
    return 0;
}

Algoritma:

{Membaca i (bilangan 1 sampai dengan 100), kemudian menentukan bilangan yang habis dibagi 3 dan 5}

Deklarasi

i           : integer           {bilangan 1 sampai dengan 100}

Deskripsi

Read i
I ß 1 sampai dengan 100
for (int i=1; i<=100; i++)
if (i mod 3==0)
Write i
Else (i mod 5==0)
Write i

5. {Menghitung nilai permutasi dan kombinasi n buah bola yang diambil r bola}

 Deklarasi

            hasil,n,k : integer

            proses[2],yesno[2]; character

. Deskripsi

            Read(n,k)

            if(n<k)

            then write("Nilai n tidak boleh lebih kecil dari k")

            else

            write"(Pilih P (permutasi) atau C (kombinasi))"

            if(proses[0]=='p' || proses[0]=='P')

            hasil = faktorial(n)/faktorial(n-k);

            then write("\n \n")

            then write(n,"P",k," : ",hasil)

           

            else if (proses[0]=='c' || proses[0]=='C')

            hasil = faktorial(n)/(faktorial(k) * faktorial(n-k));

            then write("\n \n")

            then write(n,"C",k," : ",hasil)

           

            else

            then write("\n\tAnda tidak memilih P atau C")

            then write("\n\tIngin mengulang? <y/n> ")

            Read(yesno[0])

            if (yesno[0]=='Y'||yesno[0]=='y')

            Y=1

            else if (yesno[0]=='N'||yesno[0]=='n'||yesno[0]!='Y'||yesno[0]!='y')

            Y=0