• 07-12-2009, 21:14:13
    #1
    Üyeliği durduruldu
    merhabalar
    bir sorum var:
    Klavyeden girilen iki sayıyı yer değiştiren program?
    bunu pascal kodlarıyla basit birşekilde yazabilirmisinz lütfen çok acil.
  • 07-12-2009, 21:21:02
    #2
    Üyeliği durduruldu
    bunu ben de bulmuştum ama aynısı yazmama rağmen çalışmadı :S saol yinede
  • 07-12-2009, 22:15:54
    #3
    iki sayıyı değiştirmek derken ne yapmak istediğini söylersen yardımcı olurum

    bi örnek ver ne için kullanılacak önce mantığını anlayalım sonra kod yazması kolay

    sayı değiştirme genellikle küçükten büyüğe büyükten küçüğe sıralama yapmak için kullanılır. Eğer bunun için kullanıcaksan bubble sort denilen bir yöntem var
  • 07-12-2009, 22:21:44
    #4
    uses crt;
    var
    a,b,deg:integer;
    begin
    writeln(‘1. sayıyı gir:’);
    readln(a);
    writeln(‘2. sayıyı gir:’);
    readln(b);
    deg:=b;
    b:=a;
    a:=deg;
    writeln(‘1.sayı:’,a);
    writeln(‘2.sayı:’,b);
    readln;
    end.

    bu kodu bi dene dostum.olmazsa söyle başka bi yol deneyelim.ama ben bu programdan bi mantık anlıyamadım. ne için kullancaksın.
  • 07-12-2009, 22:22:30
    #5
    gardoman adlı üyeden alıntı: mesajı görüntüle
    Dostum pascalı unutmusum ama internette bi araştırdım.Şunu dene

    10)Klavyeden girilen iki sayının yerini değiştiren program.



    kaynak: http://www.dahiweb.com/pascal-progra...dili-baslangic
    Program doğru görünüyor nerde hata verdi ki.
    Bence verse verse tırnak işaretlerinden verir ( ' ´ ` " ) burda verdiğim tırnak işaretlerini dene bakalım.
  • 07-12-2009, 22:24:11
    #6
    muhtemelen tek tırnakta hata vermiştir tırnaklar ' şeklinde olacak
  • 07-12-2009, 22:27:23
    #7
    En Kısa Yoldan Değişkenleri Yazdırırken Ters Yazarsın Olur

    uses crt;
    var
    s1,s2:integer;
    begin
    writeln('1. sayıyı giriniz:');
    readln(s1);
    writeln('2. sayıyı giriniz:');
    readln(s2);
    writeln('1.sayı:',s1);
    writeln('2.sayı:',s2);
    readln;
    end.
    Yada Üstteki Arkadaşında Örnek Vermiş Olduğu Gibi


    uses crt;
    var
    s1,s2,gec:integer;
    begin
    writeln('1. sayıyı giriniz:');readln(s1);
    writeln('2. sayıyı gir:');readln(s2);
    gec:=s2;
    s2:=s1;
    s1:=gec;
    writeln('1.sayı:',s1);
    writeln('2.sayı:',s2);
    readln;
    end.
    Arkadaşım 2. Kodu Denedim Çalışıyor
  • 07-12-2009, 22:28:42
    #8
    buradaki sorun değişken adlarından bence

    uses crt;
    var
    a,b,degistirme:integer;
    begin
    write(‘1. sayıyı gir:’);readln(a);
    write(‘2. sayıyı gir:’);readln(b);
    degistir:=b;
    b:=a;
    a:=degistir;
    writeln(‘1.sayı:’,a);
    writeln(‘2.sayı:’,b);
    readkey;
    end.


    burdaki kalın yazan değişkenleri adı aynı olsun sorun kalmaz.bi önceki postumda düzeltip verdim bi denermisin.
  • 07-12-2009, 22:48:12
    #9
    webkarizma adlı üyeden alıntı: mesajı görüntüle
    buradaki sorun değişken adlarından bence

    uses crt;
    var
    a,b,degistirme:integer;
    begin
    write(‘1. sayıyı gir:’);readln(a);
    write(‘2. sayıyı gir:’);readln(b);
    degistir:=b;
    b:=a;
    a:=degistir;
    writeln(‘1.sayı:’,a);
    writeln(‘2.sayı:’,b);
    readkey;
    end.


    burdaki kalın yazan değişkenleri adı aynı olsun sorun kalmaz.bi önceki postumda düzeltip verdim bi denermisin.
    hocam sanırım arkadaş direk kopyalıyor tırnaklar ' olmadığından hata veriyor