Member baru? Bingung? Perlu bantuan? Silakan baca panduan singkat untuk ikut berdiskusi.

Welcome to Forum Sains Indonesia. Please login or sign up.

Maret 03, 2024, 04:58:17 PM

Login with username, password and session length

Topik Baru

Artikel Sains

Anggota
Stats
  • Total Tulisan: 139,653
  • Total Topik: 10,405
  • Online today: 80
  • Online ever: 1,582
  • (Desember 22, 2022, 06:39:12 AM)
Pengguna Online
Users: 0
Guests: 38
Total: 38

Aku Cinta ForSa

ForSa on FB ForSa on Twitter

Program 'tukar dengan 2 variabel'

Dimulai oleh Alan adhityo, September 30, 2010, 07:31:22 PM

« sebelumnya - berikutnya »

0 Anggota dan 1 Pengunjung sedang melihat topik ini.

Alan adhityo

gw pingin sharing aja ni .  ;D
biasanya program tukar pakai 3 variabel kan, nah yang ini pakai 2 variabel.

this is it, with pascal,, and cekidot..  ;D  ;D  ;D

program tukar

uses crt;

var
  x,y: integer;

begin
clrscr;
write('masukkan x : '); readln(x);
write('masukkan y : '); readln(y);
writeln('x = ',x);
writeln('y = ',y);

writeln('hasil:');

    x:=x+y;
    y:=x-y;
    x:=x-y;

writeln('x = ',x);
writeln('y = ',y);
readln;
end.




Alan adhityo