Program w Pascalu - problem z warunkiem

luigi · Post autor: **luigi** » 1 lis 2006, o 21:22

Dla average=1.8 wyświetla się "dopuszczający", ale przecież jest warunek że na dopuszczjący average>1.8, więc powinno być "niedostateczny". Czego tu brakuje, gdzie jest błąd?

Kod: Zaznacz cały

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  average : real;


begin

write('Wprowadz srednia: ');
readln(average);
if average>5.5 then
                  writeln('Ocena koncowa: celujacy')
               else
                  if (average>4.75) and (average<=5.5) then
                                                          writeln('Ocena koncowa: bardzo dobry')
                                                       else
                                                          if (average>3.75) and (average<=4.75) then
                                                                                                   writeln('Ocena koncowa: dobry')
                                                                                                else
                                                                                                   if (average>2.75) and (average<=3.75) then
                                                                                                                                            writeln('Ocena koncowa: dostateczny')
                                                                                                                                         else
                                                                                                                                            if (average<=2.75) and (average>1.8) then
                                                                                                                                                                                    writeln('Ocena koncowa: dopuszczajacy')
                                                                                                                                                                                 else

                                                                                                                                                                                    writeln('Ocena koncowa: niedostateczny');


readln;
end.

Sokół · Post autor: **Sokół** » 1 lis 2006, o 21:39

Kod: Zaznacz cały

if (average<=2.75) and (average>1.8) then

zmień na

Kod: Zaznacz cały

if (average<=2.75) and (average<1.8) then

zanim zaczniesz mowic, ze nie bedzie dzialac - sprobuj

luigi · Post autor: **luigi** » 1 lis 2006, o 21:45

dlaczego... działa?

bagin · Post autor: **bagin** » 2 lis 2006, o 10:06

no tak, ale jak wpiszesz 1.7 to już nie będzie działać.
myślę, że lepiej będzie podać dokładniejszą wartość w warunku. Średnią zazwyczaj podajesz do 2 miejsc po przecinku, więc jak w warunku zamiast 1.8 podasz 1.801 nie zrobi to wielkiej różnicy,a program rozróżni, że 1.8 to ocena niedostateczna

Sokół · Post autor: **Sokół** » 2 lis 2006, o 16:22

no tak, ale jak wpiszesz 1.7 to już nie będzie działać.

będzie.

skompilowany program
zrodlo

bagin · Post autor: **bagin** » 2 lis 2006, o 19:16

hmm z tego co zauważyłem to kod , który podałeś na stronie jest ten sam co kod luigi'ego , na wszelki wypadak z kopiowałem go do kompilatora
otrzymane wyniki były następujące:
dla średniej 2.0 dop
1.8 dop -> powinno być ndst
1.7 ndst
potem wprowadziłem poprawki jakie zaleciłeś w pierwszym poście:

zamiast if (average1.8) then
wstawiłem if (average powinno być dop
1.8 ndst
1.7 dop -> powinno być ndst

Sokół · Post autor: **Sokół** » 2 lis 2006, o 20:08

a no racja, skompilowalem nie to co trza i dlatego.