Lihat Jam

Wahyu Efendi. Diberdayakan oleh Blogger.

My Link

Detik News

Goal.com News - Indonesian

Radar Cirebon Online

Translate

English French German Spain Italian Dutch

Russian Portuguese Japanese Korean Arabic Chinese Simplified
by : BTF

Cari Blog Ini

Memuat...

Runtunan Pascal

Minggu, 20 Februari 2011
1.Pendahuluan
Runtunan adalah struktur algoritma paling dasar yang berisi rangkaian instruksi yang diproses secara sekuensial, satu persatu mulai dari instruksi pertama sampai instruksi terakhir. Algoritma merupakan runtunan (sequence) satu atau lebih instruksi, yang berarti bahwa :
1.Tiap instruksi dikerjakan satu per satu;
2.Tiap instruksi dilaksanakan tepat sekali; tidak ada instruksi yang di ulang;
3.Urutan instruksi yang dilaksanakan pemroses sama dengan urutan instruksi sebagaimana yang tertulis dari algoritmanya;
4.Akhir dari instruksi terakhir merupakan akhir algoritma;

Setiap instruksi di dalam runtunan ditulis dalam satu baris, atau beberapa instruksi dalam baris, atau beberapa instruksi dalam baris yang sama tetapi antara setiap instruksi dipisahkan dengan tanda titik koma (;).
Uraian dan contoh
Runtunan merupakan struktur dasar algoritma terdiri dari satu atau lebih instruksi, yang tiap instruksidikerjakan secara berurutan sesuai dengan urutan penulisan dari algoritma tersebut. Sebuah instruksi dikerjakan setelah instruksi sebelumnya dikerjakan. Hasil akhir dari algoritma runtunan ini ditentukan oleh urutan instruksinya. Jika terjadi perubahan instruksi maka hasil akhirnya kemungkinan juga berubah. Instruksi-instruksi dalqam algoritma ini akan dikerjakan semua dan tidak ada yang diabaikan. Pada dasarnya semua program dibuat berdasarkan struktur algoritma runtunan
Simbol Flowchart :


















Contoh Algoritma dan flowchart untuk menghitung luas persegi panjang :
1) Algoritma
- Langkah 1 : Mulai
- Langkah 2 : Masukkan panjang persegi panjang (p)
- Langkah 3 : Masukkan lebar persegi panjang (l)
- Langkah 4 : Luas = p * l
- Langkah 5 : Tampilkan Luas
- Langkah 6 : Selesai

2) Flowchart


3) Program menggunakan Bahasa Pemrograman Turbo Pascal 7.0 :

Uses wincrt;
Var
p, l, Luas : Integer; {boleh real}
begin
clrscr;
write (’Masukkan nilai panjang = ’); readln (p);
write (’Masukkan nilai lebar = ’); readln (l);
Luas := p * l;
write (’Jadi Luas Persegi Panjang adalah ’, Luas);
readln;
end.


Berikut adalah contoh masalah yang berisi runtunan :
Program untuk membaca dua buah nilai untuk peubah A dan B, lalu mempertukarkan nilai kedua peubah tersebut . misal : sebelum pertukaran nilai A = 8, dan nilai B =5, maka setelah pertukaran, nilai A = 5 dan nilai B= 8.

Program pertukaran ; {mempertukarkan nilai A dan B. Nilai A dan B dibaca terlebih dahulu}
Uses wincrt;
Var
A,B,C : integer;
Begin
Writeln(‘Nilai sebelum ditukar’);
Writeln(‘================’);
{ baca nilai A dan B}
Write (‘A = ’); readln(A);
Write (‘B = ’); readln(B);
Writeln;
{pertukarkan nilai A dan B}
C:=A; {nilai A disimpan di C (tempat penampungan sementara)}
A:=B; {A diisi dengan nilai B}
B:=C; {isi nilai B dengan nilai A semula yang disimpan di C}
Writeln(‘Nilai setelah ditukar’);
Writeln(‘===============’);
Writeln (‘A = ’,A);
Writeln (‘B = ’,B);
End.

0 komentar:

Poskan Komentar

banner125125 d'famous_125x125 ads_box ads_box ads_box
 
Ada kesalahan di dalam gadget ini

Indowebster

Indowebster
Download Software

Entri Populer

Followers

Mengenai Saya

Foto Saya
cirebon, jawa barat, Indonesia
saya awalnya orang yg sangat pendiam setelah kehidupan keras yg saya alami saya berangsur menjadi orang yg humoris dgn tujuan menghibur diri sendiri. saya gak peduli dgn omongan orang alias cuek karna bagi saya yg mengetahui saya hanya saya dan TUHAN dan ini hidup saya, ini dunia saya. saya memang orang yg keras kepala yg selalu berbuat menurut apa yg saya rasakan dan ada dalam hati saya tp itu menjadikan satu ciri khat saya.

Gudang Lagu

Gudang Lagu
Download Lagu