Sayıları birbirleriyle değiştirmek

Bu derste Delphi'de girilen iki sayının değerini birbiriyle değiştirmeyi öğrenelim.

Bu derste Delphi'de girilen iki sayının değerini birbiriyle değiştirmeyi öğrenelim.


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.

  • Etiketler;
Mutlu Yılmaz
Mutlu Yılmaz, şu an Kırıkkale Üniversitesinde Bilgisayar ve Öğretim Teknolojileri Öğretmenliği okuyor. Bilgilerini Sanalkurs'ta paylaşmayı sürdürecek.
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git