TUGAS 2 STRATEGI ALGORITMA

Algoritma Faktorial:

Hitung Hit Faktorial (input a,n : integer)

{Menghitung f*f*f…*n

Masukkan : f

Keluaran : hasil faktorial}

Deklarasi:

f : integer

n : integer

Algoritma:

if f>1

return f faktorial to f-1

tampilkan hasil n      faktorial(n)

end if

Menggunakan C++ :

#include <iostream.h>

#include <conio.h>

long faktorial(long f)

{

 if (f>1)

         return (f* faktorial(f-1));

 else

         return (1);

}

int main()

{

 long n;

 cout<<"PROGRAM MENGHITUNG FAKTORIAL"<<endl;

 cout<<"Masukkan Bilangan : ";

 cin>>n;

 cout<<"Faktoraial" << n <<"! = "<<faktorial(n);

 getch();

 return 0;

}

Menggunakan Pascal:

Program Faktorial_pascal;

                {program ini untuk mencari hasil factorial}

uses crt;

function Faktorial(f:integer):long faktorial;

begin

if (f>1) then

Faktorial:=f*faktorial(f-1);

else 

Faktorial:=1;

end;

var x: integer;

begin

writeln(‘PROGRAM HITUNG FAKTORIAL’);

 writeln;

 write('MAsukan Bilangan : ');

 readln(n);

 writeln(n,' faktorial ','= ',faktorial(n));

 writeln;

end

Algoritma Mencari Bilangan Terbesar:

Cari cari Nilai_Terbesar (input i : integer, b : float)

{Mencari nilai terbesar dari sekumpulan array

Masukkan : b,i

Keluaran    : bilangan terbesar

}

Deklarasi

b : integer

i : float

Algoritma :

maks=b[1];

For (i=0; i<3; i++)

If (maks<b[i])

Maks =b[i];

end for

Menggunakan C++ :

#include <iostream>

#include <conio.h>

using namespace std;

int main()

{

int b[5];

int i;

for(i=0;i<5;i++)

{

cout<< "PROGRAM MENCARI BILANGAN TERBESAR";

cout<<endl;

cout<<"masukan nilai = ["<<i<<"] : ";

cin>>b[i];

}

int maks=b[1];

for (i=0;i<5;i++)

{

    if(maks<b[i]){maks=b[i];}  

}

   

cout<<endl;

cout<<"Nilai terbesar = " <<maks<<endl;

cout<<endl;

getch();

}

Menggunakan Pascal:

Program Mencari_BIlangan_Terbesar;

                {program ini untuk mencari bilangan terbesar dari sekumpulan array}

uses crt;

Var

i ; float

b: Array[1..b] integer;

Begin

Randomize;

Writeln('Masukan nilai = ');

Writeln;

readln(i);

For i := 1 to 5 Do

Writeln;

maks :=b[1];

For i := 1 to 3 Do

Begin

If maks[i]<b Then b:=maks[i];

Writeln(‘Nilai Terbesar =’,maks);

writeln;

end;