Algoritma Pertukaran Nilai (Tugas Soal No.6 Halaman 110)

Algoritma Pertukaran Nilai (Tugas Soal No.6 Halaman 110)
Soal :

Di baca tiga buah bilangan bulat X,Y,dan Z. Tulislah algoritma untuk mempertukarkan tripel (X,Y,Z) menjadi (Y,Z,X)

Source Code :

PROGRAM pertukaran_nilai;

USES CRT;

VAR
   x : INTEGER;
   y : INTEGER;
   z : INTEGER;
   n : INTEGER;

BEGIN

   //Input
   WRITELN('------------------------');
   WRITE('Masukan Nilai X : ');READLN(x);
   WRITE('Masukan Nilai Y : ');READLN(y);
   WRITE('Masukan Nilai Z : ');READLN(z);
   WRITELN('------------------------');
   WRITELN('X,Y,Z -> Y,Z,X ');
   WRITE(X,',',Y,',',Z);
   WRITE(' -> ');

   //Proses
    N := X;
    X := Y;
    Y := Z;
    Z := N;

    //Output
    WRITELN(X,',',Y,',',Z);

   READLN;
END.

Tampilan program ketika di jalankan :

Algoritma Pertukaran Nilai (Tugas Soal No.6 Halaman 110)