Archive for November, 2010

Tugas Pra-UTS : Algoritma & Flowchart

BAHASA PEMROGRAMAN

Tugas Pra-UTS : Algoritma & Flowchart

Program case_of dan For_To_Do

Dosen Pembimbing : Bpk. Agung Deddlyawan Ismail

Asisten Dosen      : Ahmad fajarisma

Nama                         : NURHAYATI

NIM/ Kelas            : ( 09320231) / IIIE

Fakultas                 : KIP Matematika Dan Komputasi

ALGORITMA Program For…to…do

Contoh pROgram

Program for_to_do

Uses winCrt ;

Var i, n, jum : integer ;

Begin

Write (‘ masukkan banyak data ?‘) ; readln (n) ;

Writeln (‘no jumlah’) ;

Writeln ( ‘———–‘) ;

Jum : = 0 ;

For i :=1 to n do

Begin

Jumlah = jum + i ;

Writeln ( i, ‘ ‘, i+I ) ;

End ;

Writeln (‘———–‘)

Writeln ( ‘ total bilangan i= ‘ , jum’ ) ;

End.

PROGRAM FOR…TO…DO AKAN MUNCUL

Masukkan Banyaknya Data ? (misal kita mengetik 5)

No.      JUMLAH

1          2

2          4

3          6

4          8

5          10

TOTAL BILANGAN i=15

ALGORITMA PROGRAM FOR…TO…DO

  1. Deklarasikan variable yang dibutuhkan misal (banyaknya data, total)
  2. Masukkan input yang diminta/ masukkan banyaknya data
  3. Misal banyaknya data 5 maka  nanti akan munculnya jumlah data sebanyak 5 tersebut.
  4. Ulangilah beberapa langkah tersebut sehingga menemukan hasil yang akan kita penuhi

flowchart Program case…of

Program yang harus dijadikan flowchart

Contoh program

Program  case_of ;

Uses winCrt ;

Var Kode : char ;

Begin

Repeat

Write (‘ masukkan menu makanan ?’) ; readln (kode) ;

Until ( kode in [‘a’..’g’]) ;

Case kode of

‘a’ : writeln (‘pecel’) ;

‘b’ : writeln (‘nasgor’) ;

‘c’ : writeln (‘rawon’) ;

‘d’ : writeln (‘soto’) ;

‘e’ : writeln (‘sate’) ;

‘f’ : writeln (‘kikil’) ;

‘g’ : writeln (‘iga bakar’) ;

End;

End.

FLOWCHART PROGRAM FOR…TO…DO {NURHAYATI 09320231 }


FLOWCHART & ALGORITMA PEMBELIAN BARANG

ALGORITMA PEMBELIAN KEBUTUHAN POKOK

1. Masukkan harga barang yang sudah dibeli

2. Tetapan harga barang yang sudah bibeli

Jika membeli >= Rp. 10.000 maka mendapat bonus Mangkok

Jika membeli >= Rp. 25.000 maka mendapat bonus Dompet

Jika membeli >= Rp. 50.000 maka mendapat bonus Sarung

3. Mendapat bonus/ Tidak dapat bonus

4. Ket.

 

FLOWCHART PEMBELIAN BARANG

 

PROGRAM YANG AKAN DIJALANKAN

TUGAS MEMBUAT PROGRAM

Program Belanja_kebutuhan_dapat_Bonus ;

Uses

WinCrt;

Var

Pembelian : Longlnt

Begin

Write (‘total pembelian =’);

Read (pembelian);

If pembelian >=10.000 then;

Writeln (‘mendapat 1 mangkok’);

Else

If pembelian >=25.000 then;

Writeln (‘mendapat 1 dompet’);

Else

If pembelian >=50.000 then;

Writeln (‘mendapat 1 sarung’);

Else

Writeln (‘kurang beruntung’);

End.