- Katılım
- 12 Eylül 2014
- Mesajlar
- 167
- Tepkime puanı
- 0
- Puanları
- 0
Bu derste Delphi'de girilen iki sayının değerini birbiriyle değiştirmeyi öğrenelim.
PHP 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.
PHP 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.