Program Menentukan FPB dan KPK dengan Turbo Pascal & C++

Ø  Syntax Turbo pascal 1.5

Program fpb_kpk; uses wincrt; var a, b, d, x, y, c: integer; begin clrscr; write('Masukan Angka 1 : '); readln(a); write('Masukan Angka 2 : '); readln(b); x:=0; y:=0; for d:=a downto 1 do begin if ((a mod d=0) and (b mod d=0)) then begin x:=x+1; if x=1 then begin writeln ('FPB-nya adalah : ',d); end; end; end; for d:=a to (a*b) do begin if ((d mod a=0) and (d mod b=0)) then begin y:=y+1; if y=1 then begin writeln ('KPK-nya adalah : ',d); end; end; end; readln; end.

Ø  Syntax C++ :

#include <cstdlib> #include <iostream> using namespace std; int main(int argc, char *argv[]) { int a,b,c,d; int p; int faktor1, faktor2, kpk, fpb; cout<<”masukkan pilihan anda : \n”; cout<<”1. Menentukan KPK \n “; cout<<”2. Menentukan FBP \n”; cout<<”3. Exit \n “; cin>>p; switch(p) { case 1: cout<<”menghitung KPK \n”; cout<<”masukkan Bilangan pertama : \n”; cin>>a; cout<<”masukkan bilangan kedua : \n”; cin>>b; if (a<b) if (a%b) { for(c=0;c<=a;c++) { if(a%c); else faktor1=c; } for(d=0;d<=b;d++) { b%d; if (b%d); else faktor2=d; }} else kpk=a; else if (b%a) { for(d=0;d<=b;d++) { if(b%d); else faktor1=d; } for(c=0;c<=b;c++) { if (a%c); //lamjutkan else faktor2=c; } } else kpk=b; fpb=faktor1*faktor2; cout<<”bilangan pertama :”<<faktor1<<endl; cout<<”bilangan kedua :”<<faktor2<<endl; cout<<”KPK :”<<kpk<<endl; break; case 2: cout<<”menghitung FPB\n”; cout<<”masukkan bilangan pertama : \n”; cin>>a; cout<<”masukkan bilangan kedua : \n”; cin>>b; if (a) if (b%a) { for(c=0;c>=a;c–) { if(c%a); //lamjutkan else faktor1=c; } for(d=0;d>=b;d–) { if(d%b); //lanjutkan else faktor2=d; } for(c=0;c>=b;c–) { if(c%a); //lanjutkan else faktor1=c; } } else fpb=b; fpb=faktor1+faktor2; cout<<”bilangan pertama : ” <<faktor1<<endl; cout <<”bilangan kedua :” <<faktor2<<endl; cout<<”FPB : “<<kpk<<endl; break; case 3: cout<<”exit now !!! \n”; break; default: cout<<”error !! “; } //getch(); system(“PAUSE”); return EXIT_SUCCESS; }

Browse More Articles

Tweet

Written by Unknown

We are Creative Blogger Theme Wavers which provides user friendly, effective and easy to use themes. Each support has free and providing HD support screen casting.