Sabtu, 20 Oktober 2012

Algoritma dan Pascal Formula S

Algoritma dan Program Pascal untuk menghitung :

S = 1 - 2/3 + 3/5 - 4/7 + ...

Sebelum kita membuat Algoritma dan Program diatas, maka terlebih dahulu kita tentukan POLA yang digunakan oleh Deret S tersebut. Adapun pola yang digunakan oleh Deret S diatas adalah :

S = i / (2i-1)

misal : 
  • i = 1  -->  S = 1/(2.1-1)   -->   S = 1/1
  • i = 2  -->  S = 2/(2.2-1)   -->   S = 2/3
  • i = 3  -->  S = 3/(2.3-1)   -->   S = 3/5
  •  . . .
  • i = n  -->  S = i / (2.i-1)    -->   S = i / (2i-1)

          
Bentuk Algoritma Formula/Rumus S
Algoritma formulas
{I.S : diinputkan satu bilangan oleh user}
{F.S : menampilkan hasil perhitungan rumus S}

Deklarasi:
 i : integer
 n : integer
 s : real
 
Algoritma:
 input(n)
 
 s <- 0
 for i <- 1 to n do
  if i mod 2 = 1 then
   s <- s+(i/(2*i-1))
  else
   s <- s-(i/(2*i-1))
  endif
 endfor
 
 output('S = ',s:0:2)

Bentuk Pascal Formula/Rumus S
program formulas;
uses crt;

var
   i : integer;
   n : integer;
   s : real;

begin
     write('Masukkan Banyak Deret Pecahan : '); readln(n);
     writeln();

     s := 0;
     for i:=1 to n do
     begin
          if i mod 2 = 1 then
              s:=s+(i/(2*i-1))
          else
              s:=s-(i/(2*i-1));
     end;

     writeln();
     write('S = ',s:0:2);

     readkey();
end.

Screenshot :
input/output

Jumat, 19 Oktober 2012

Algoritma dan Pascal Deret Bilangan Ganjil

Algoritma dan Program Pascal untuk menampilkan jumlah deret bilangan ganjil.

Bentuk Algoritma Deret Bilangan Ganjil
Algoritma deretbilanganganjil
{I.S : diinputkan satu bilangan oleh user}
{F.S : menampilkan jumlah deret bilangan ganjil}

Deklarasi:
 x   : integer
 akhir  : integer
 jumlah  : integer
 
Algoritma:
 input(akhir)
 
 jumlah <- 0
 for x <- 1 to akhir do
  if x mod 2 = 1 then
   jumlah <- jumlah+x
  endif
 endfor
 
 output('Jumlah Deret Bilangan Ganjil dari 1 sampai ',x,' = ',jumlah)

Bentuk Pascal Deret Bilangan Ganjil
program deretbilanganganjil;
uses crt;

var
   x      : integer;
   akhir  : integer;
   jumlah : integer;

begin
     write('Masukkan batas akhir angka : '); readln(akhir);
     writeln();

     jumlah := 0;
     for x:=1 to akhir do
     begin
          if x mod 2 = 1 then
             jumlah := jumlah + x;
     end;

     write('Jumlah Deret Bilangan Ganjil dari 1 sampai ',akhir,' = ',jumlah);
     readkey();
end.

Screenshot :
input
output

Kamis, 18 Oktober 2012

Algortima dan Pascal Segitiga Bintang

Algoritma dan Program Pascal untuk menyelesaikan kasus seperti di bawah ini (warna bintang setiap baris dibedakan).

N=3

*
**
***
**
*

Bentuk Algoritma Segitiga Bintang
Algoritma segitigabintang
{I.S : Diinputkan satu angka oleh user}
{F.S : Menampilkan barisan segitiga bintang}

Deklarasi:
 n : integer
 i : integer
 j : integer
 
Algoritma:
 input(n)
 
 for i <- 1 to n do
  for j <- 1 to i do
   output('*')
  endfor
  output('')
 endfor
 
 for i <- n-1 downto 1 do
  for j <- 1 to i do
   output('*')
  endfor
  output('')
 endfor
Bentuk Program Pascal Segitiga Bintang dimana warna bintang setiap baris dibedakan.
program segitigabintang;
uses crt;

var
   n : integer;
   i : integer;
   j : integer;

begin
     write('Masukkan Jumlah Baris Segitiga Bintang : '); readln(n);
     clrscr();

     i := 0;
     j := 0;
     for i:=1 to n do
     begin
          for j:=1 to i do
          begin
               write('*');
          end;
          writeln(''); textcolor(i);
     end;

     for i:=n-1 downto 1 do
     begin
          for j:=1 to i do
          begin
               write('*');
          end;
          writeln(''); textcolor(j);
     end;
     readkey();
end.
Screenshot :
input
output

Sabtu, 13 Oktober 2012

Algoritma dan Pascal Bintang

Algoritma dan Pascal untuk menyelesaikan kasus seperti di bawah ini (warna bintang setiap baris dibedakan).

N=5

*
**
***
****
*****

Bentuk Algoritma untuk membuat barisan bintang seperti diatas.
Algoritma bintang
{I.S : Diinputkan satu angka oleh user}
{F.S : Menampilkan barisan bintang}

Deklarasi:
 n : integer
 i : integer
 j : integer
 
Algoritma:
 input(n)
 
 for i <- 1 to n do
  for j <- 1 to i do
   output('*')
  endfor
  output('')
 endfor
Bentuk Pascal untuk membuat barisan bintang dimana warna bintang setiap baris dibedakan.
program bintang;
uses crt;

var
   n : integer;
   i : integer;
   j : integer;

begin
     write('Masukkan Jumlah Baris Bintang : '); readln(n);
     clrscr();

     i := 0;
     j := 0;
     for i:=1 to n do
     begin
          for j:=1 to i do
          begin
               write('*');
          end;
          writeln(''); textcolor(i);
     end;
     readkey();
end.
Screenshot :
input
output