Link HTML
4 October 2012
Algoritma Pemilihan
15 October 2012

Runtunan di bahasa Pascal

Runtunan adalah struktur algoritma paling dasar yang berisi rangkaian intruksi yang diprosessecara sekuensial, satu per satu, mulai dari intruksi pertama sampai instruksi terakhir.

Yang berarti:

  1. Tiap instruksi dikerjakan satu per satu.
  2. Tiap instruksi dilaksanakan tepat sekali, tiak boleh diulang.
  3. Urutan instruksi harus sama dengan teks algoritmanya.
  4. Akhir dari instruksi terakhir merupakan alhir algoritma.

 

Contoh contoh Runtunan

1.Bagaimana mencetak pesan :”Hallo, Pak Rasid”

Program :     ?

Deklarasi :    ?

Algoritma :    ?

Dengan cara:

  1. Langsung cetak
  2. Dengan peubah / variable
  3. Dengan konstanta
  4. Dengan keyboard

 

2.Program Tukar A,B

 Buatlah algoritma dan programnya !

 Program :     ?

Deklarasi :    ?

Algoritma :    ?

Dengan Variable A,B,C

 

Kode programnya:

Program ember;

uses wincrt;

var a,b,c : integer;

begin

a := 5;
b := 7;

writeln (‘Nilai a adalah ‘,a, ‘ dan nilai b adalah’,b);

c := a ;
a := b ;
b := c ;

writeln (‘Nilai a adalah ‘,a, ‘ dan nilai b adalah’,b);

end.

 

Membaca/Menulis dari/ke  Arsip

Adakalanya data masukan dibaca dari arsip (file) atau keluaran (output) program ditulis ke arsip.

Contoh:

program luaspersegipanjang;

uses wincrt;

var     panjang   : real;

lebar      : real;

luas        : real;

Fin, Fout  : text;

Begin

assign(Fin,’data.txt’);

reset(Fin);

assign(Fout,’hasil.txt’);

rewrite(Fout);

 

read(Fin, panjang, lebar);

luas := panjang*lebar;

 

writeln(Fout,’Luas segiempat = ‘,luas:0:2);

 

close(Fin);

close(Fout);

 

end.

 

Catatan:

Program ini akan berjalan lancar jika kita membuat file notepad dengan nama data.txt dan hasil .txt

Muhammat Rasid Ridho
Muhammat Rasid Ridho
Software Developer yang Suka Jalan jalan, Belajar Jaringan dan Berbagi Cerita. Instagram: muhammat.rasid.ridho Jangan lupa tulis komentar di bawah ini ya teman teman ... !

Leave a Reply

Your email address will not be published.