folder Tahribat.com Forumları
linefolder Delphi - Pascal
linefolder Pascal Problemi (Yardım Lazım)



Pascal Problemi (Yardım Lazım)

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Geenmeboo
    Geenmeboo's avatar
    Kayıt Tarihi: 21/Nisan/2007
    Erkek

    arkadaşlar pascal programımız şu;

    1 den 500 e kadar olan tek sayıların karelerinin toplamını ve 500 den 1000 e kadar olan çift sayıların kareköklerinin toplamını hesaplayan program.

    veriler 2 farklı renkte yazılacak

    ve benim yazdığm program şu fakat "." expected hatası verio bir inceleyip düşüncenizi yazarak yardımcı olursanız çok mutlu olurum:

    Program test;

    uses crt;

    var

    s,i:Integer;

    t:Longint;

    c:Real;

    begin clrscr;

    t:=0; c:=0;

    for i:=1 to 500 do

    begin;

    If i mod 2 = 1 then t:=t+SQR(i) end;

    textcolor(green);

    writeln('1den 500e kadar olan tek sayilarin toplami..=',t);writeln;

    readln;

    end;

    for s:=500 t0 1000 do

    begin;

    If s mod 2 = 0 then c:=c+SQRT(s);

    end;

    end;

    textcolor(purple);

    write('500den 1000e kadar olan çift sayilarin kareköklerinin toplami...=',c:10:3);

    writeln;

    readln;

    end.


    NEDEN? (soru olarak)
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    SSH
    SSH's avatar
    Kayıt Tarihi: 21/Temmuz/2005
    Erkek

    tosunum son satırı

    end;

    end.

    bu şekilde düzelt 


    sırıtma la.
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Geenmeboo
    Geenmeboo's avatar
    Kayıt Tarihi: 21/Nisan/2007
    Erkek

    Program test;

    uses crt;

    var

    s,i:Integer;

    t:Longint;

    c:Real;

    begin clrscr;

    t:=0; c:=0;

    for i:=1 to 500 do

    begin;

    If i mod 2 = 1 then t:=t+SQR(i) end;

    textcolor(green);

    writeln('1den 500e kadar olan tek sayilarin toplami..=',t);writeln;

    readln;

    end; BURADA "." expected hatası verio usta ne yaptıysam ne denediysem düzelmedi.bir de şaşırtırıcı olan şey bunu dier end'te vermio bunda verio.

    for s:=500 to 1000 do

    begin;

    If s mod 2 = 0 then c:=c+SQRT(s);

    end;

    end;

    textcolor(purple);

    write('500den 1000e kadar olan çift sayilarin kareköklerinin toplami...=',c:10:3);

    writeln;

    readln;

    end.


    NEDEN? (soru olarak)
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    SSH
    SSH's avatar
    Kayıt Tarihi: 21/Temmuz/2005
    Erkek
    orayı end şeklinde yaz nokta felan koyma

    sırıtma la.
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Geenmeboo
    Geenmeboo's avatar
    Kayıt Tarihi: 21/Nisan/2007
    Erkek

    aradaki end leri kaldırdım çalıştı???

    hoca bize böle öğretmemişti acaba sınavda da öle yazsam puan verir mi?


    NEDEN? (soru olarak)
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    emilll
    emilll's avatar
    Kayıt Tarihi: 06/Mayıs/2007
    Erkek
    Geenmeboo bunu yazdı:
    -----------------------------

    arkadaşlar pascal programımız şu;

    1 den 500 e kadar olan tek sayıların karelerinin toplamını ve 500 den 1000 e kadar olan çift sayıların kareköklerinin toplamını hesaplayan program.

    veriler 2 farklı renkte yazılacak

    ve benim yazdığm program şu fakat "." expected hatası verio bir inceleyip düşüncenizi yazarak yardımcı olursanız çok mutlu olurum:

    Program test;

    uses crt;

    var

    s,i:Integer;

    t:Longint;

    c:Real;

    begin clrscr;

    t:=0; c:=0;

    for i:=1 to 500 do

    begin;

    If i mod 2 = 1 then t:=t+SQR(i) end;

    textcolor(green);

    writeln('1den 500e kadar olan tek sayilarin toplami..=',t);writeln;

    readln;

    end;

    for s:=500 t0 1000 do

    begin;

    If s mod 2 = 0 then c:=c+SQRT(s);

    end;

    end;        (bu end' i sil fazladan yazmışsın )

    textcolor(purple);

    write('500den 1000e kadar olan çift sayilarin kareköklerinin toplami...=',c:10:3);

    writeln;

    readln;

    end.


    -----------------------------

    http:// bilgisayarkullanicisi.blogspot.com/ http://bilgisayarkullanicisi.blogspot.com/
Toplam Hit: 3214 Toplam Mesaj: 6