Algoritma & Program Tukar

Posted: 25 Maret 2014 in Strategi Algoritma

Algoritma

Program Tukar

{ diberikan bilangan bulat A dan B, kemudian tukarlah bilangan itu dan tampilkan hasilnya }

Deklarasi 

A,B,C : integer

Deskripsi

read (A,B)

C <– A

A <– B

B <– C

write(A,B)

1

Source Code Pascal :

//Algoritma :
Program Tukar;
//{ diberikan bilangan bulat A dan B, kemudian tukarlah bilangan itu dan tampilkan hasilnya }

//Deklarasi :
uses wincrt;
var A,B,C:integer;
Begin

//Deskripsi
writeln(‘masukkan nilai A : ‘);readln(A);
writeln(‘masukkan nilai B : ‘);readln(B);
C:=A;
A:=B;
B:=C;
writeln(‘A=’,A, ‘ B=’,B);
End.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s