Minggu, 15 September 2013

Pascal Infix ke Postfix

Program Pascal untuk mengubah Notasi Infix ke Notasi Postfix kemudian menghitungnya berdasarkan angka yang diinputkan oleh user. program Implementasi_Stack; uses crt; const max = 255; type AInfix = string[max]; Pointer = ^Stack; Stack = record info : char; next : Pointer; end; Point = ^Angka; Angka =...

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  -->...

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 ...

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 ...