Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Błąd w pętli repeat - pascal

Reinawen 30 Paź 2010 12:09 941 3
  • #1 30 Paź 2010 12:09
    Reinawen
    Poziom 11  

    Witam, czy mógłby mi ktoś wyjaśnić dlaczego podany program nie zakończy się po podaniu litery 'n'. Gdzie leży błąd ?

    Code:

    program kolo;
    var znak:char;
    r:real;
    begin
    repeat
    writeln('Podaj promien: ');
    read(r);
    writeln('Pole jest rowne: ',PI*r*r:0:2);
    Writeln('Chcesz powtorzyc program t / n : ');
    readln(znak);
    until Upcase(znak)<>'T';
    end.



    0 3
  • #2 30 Paź 2010 13:18
    190175
    Użytkownik usunął konto  
  • #3 30 Paź 2010 13:28
    Reinawen
    Poziom 11  

    Sorry mój błąd w poprzednim poście mianowicie program nie zakańcza się ani po podaniu t ani n.

    0
  • Pomocny post
    #4 30 Paź 2010 14:57
    arnoldziq
    Moderator Programowanie

    Robisz podstawowy błąd przy używaniu read() i readln().
    Spróbuj w ten sposób :

    Code:
    program kolo;
    
    var
      znak : char;
      r    : real;
    begin
     repeat
       writeln('Podaj promien: ');
       readln(r);
       writeln('Pole jest rowne: ',PI*r*r:0:2);
       Writeln('Chcesz powtorzyc program t / n : ');
       read(znak);
     until Upcase(znak)<>'T';
    end.

    0