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.

[Turbo Pascal] Program nie działa.

AdamMmadA 20 Mar 2010 21:06 1238 2
  • #1 20 Mar 2010 21:06
    AdamMmadA
    Poziom 11  

    Witam mam problem.Otóż napisałem taki oto programik ale nie wiem jak do niego narysować schemat blokowy i coś mi nie chce on działać.Czy ktoś mnie poratuje i napisze co jest nie tak?

    Code:
    program ocena;
    
    var
       a:real;
       odp:char;
    begin

    repeat
         Writeln ('Witam w programie: Ocena z informatyki');
    repeat
         Writeln ('Podaj liczbe punktow:');
         readln (a);

         if
         (a>=0) and (a<=34) then
         Writeln ('Ocena to: niedostateczny (1)');
         if
         (a>=35) and (a<=50) then
         Writeln ('Ocena to: dopuszczajcy (2)');
         if
         (a>=51) and (a<=66) then
         Writeln ('Ocena to: dostateczny (3)');
         if
         (a>=67) and (a<=83) then
         Writeln ('Ocena to: dobry (4)');
         if
         (a>=84) and (a<=92) then
         Writeln ('Ocena to: bardzo dobry (5)');
         if
         (a>=93) and (a<=100) then
         Writeln ('Ocena to: celujacy (6)');

         if
         (a<0) or (a>100) then
         writeln ('Bledna punktacja!! Punktacja powinna miescic sie pomiedzy 0 a 100');
         Writeln ('Czy chcesz kontynuowac? t\n');
         readln (odp);
         until upcase (odp)='n'
         readln;
         end.


    Proszę pamiętać o używaniu znaczników code. - arnoldziq

    0 2
  • #3 21 Mar 2010 00:50
    arnoldziq
    Moderator Programowanie

    Ten warunek nigdy się nie spełni :

    Code:
     until upcase (odp)='n' 

    I masz w programie o jednego repeat za dużo.

    0