algoritma cara membuat kopi

1.      Beli kopi dan gula di toko.

2.      Siapkan air panas, cangkir dan sendok teh.

3.      Tuangkan 2 sendok teh gula dan 1 sendok kopi ke dalam cangkir.

4.      Tuangkan air panas ke dalam cangkir yang sudah berisi gula dan kopi.

5.      Aduk selama 30 detik.

6.      Kopi siap dinikmati.

contoh fungsi

   program luas_persegipanjang;

uses wincrt;

function luas(pj,lbr:integer):integer;

begin

luas:=pj*lbr;

end;

var

pj,lbr:integer;

begin

clrscr;

writeln('program menghitung luas persegi panjang');

writeln('masukkan panjang ');readln(pj);

writeln('masukkan lebar ');readln(lbr);

writeln('jadi luas persegipanjang= ', luas(pj,lbr));

end.

contoh array

    program cari_suku_fibonacci;

uses wincrt;

var

 x:array[1..50] of integer;

i,n:integer;

begin

x[1]:=1;

x[2]:=1;

write('Anda mencari suku ke : ');readln(n);

write(x[1],' ');

write(x[2],' ');

for i:=3 to n do

begin

x[i]:=x[i-1]+x[i-2];

write(x[i],' ');

end;

writeln;

writeln('Suku ke ',i,' = ',x[i]);

end.

Jalannnya program permutasi dan kombinasi

1.      Program membaca tipe data dari variable-variabel yang ditentukan

2.      Program utama yang dijalankan pertama kali adalah prosedur n! (n faktorial). Cara kerjanya adalah membaca data dari n sampai 1 dan menyusunnya dalam perkalian.

3.      Kemudian prosedur r! (r faktorial)

4.      Program yang ketiga adalah (n-r)! (faktorial)

5.      Perintah untuk menuliskan “program menghitung kombinasi dan permutasi” dijalankan.

6.      Menuliskan “n=” dan program membaca n sebagai integer.

7.      Menuliskan “r=” dan program membaca r sebagai integer.

8.      Program memanggil ketiga prosedur diatas dan dijalankan berdasarkan data n dan r yang telah diinputkan.

9.      Setelah itu program menjalankan rumus kombinasi yaitu dan rumus permutasi yaitu

10.  Program menuliskan pernyataan “n Kombinasi r adalah” diikuti hasil perhitungan rumus kombinasi (C ) diatas.

11.  Program menuliskan pernyataan “n Permutasi r adalah” diikuti  hasil perhitungan permutasi (P) di atas.

12.  Program selesai.

PROGRAM BILANGAN GANJIL

program bilangan_ganjil;

uses wincrt;

var

i,n,bil_ganjil:integer;

begin

write('bilangan ganjil 1-');readln(n);

if n=0 then writeln('bilangan ganjil adalah 1')

else

for i:=1 to n do

begin

bil_ganjil:=2*i-1;

writeln('maka bilangan ganjil ',bil_ganjil,'');readln(bil_ganjil);

end;

end.

program menghitung luas jajar genjang

1.       Pada baris pertama diketikkan nama program yaitu “luas jajargenjang”.

2.       Pada baris kedua diketikkan uses wincrt.

3.       Berikutnya adalah menyebutkan variable-variabel yang akan digunakan dalam penghitungan luas jajargenjang ini yaitu, a (alas); t (tinggi); dan ls (luas) yang tipe datanya berupa integer (bilangan bulat).

4.       Kemudian memulai perintah menuliskan dan membaca variable-variabel seperti pada gambar di bawah ini.

5.       Setelah bagian tersebut, diakhiri dengan “end.”

6.       Catatan: setiap akhir penulisan perintah atau pernyataan, harus diakhiri dengan tanda (;).