Delphi Dephi Sayıları birbirleriyle değiştirmek

Kim-Jong

Onursal
Onursal
Katılım
18 May 2015
Mesajlar
1,226
Tepkime puanı
0
Bu derste Delphi'de girilen iki sayının değerini birbiriyle değiştirmeyi öğrenelim.

Kod:
program degistir;

{$APPTYPE CONSOLE}


var
x,y,z:integer;


begin
writeln;
writeln(İİki tamsayi degeri giriniz.İ);
readln(x,y);
writeln('Ilk Durum:İ,'x:İ,x,'y:İ,y);
writeln;
z:=x;
x:=y;
y:=z;
writeln('Son durum:İ,'y:İ,y,İ İ,'x:İ,x);

readln;
end.
 
Üst