Zadanie z Turbo Pascala (problem)

28.10.2008

18:51

[1]

Armorgedon12 [ DreamCatcher ]

Zadanie z Turbo Pascala (problem)

Witam.

Mam z kolegą problem z napisaniem programu w Turbo Pascalu.

Otóż dostaliśmy takie zadanie:
"Napisz program który wpisze że liczba jest mniejsza, większa lub równa 0"

I zrobiliśmy takie coś:

Program zero;
uses crt;
var
a:integer;
begin
clrscr;
writeln('Podaj liczbe');
readln(a);
if(a=0)then writeln('Liczba jest równa 0');
begin;
if (a>0) then writeln ('Liczba jest dodatnia');
else writeln('Liczba jest ujemna');
readln;
end;
end.

Program źle wyświetla zdania. Jesteśmy początkujący w programowaniu... Mógłby ktoś podać gdzie jest błąd? Z góry dziękuję
Pozdrawiam.

GBreal.II [ floydian ]

zamiast drugiego begina daj else i zlikwiduj przedostatni end. Bo teraz sprawdzasz, czy zmienna jest równa zero, a pozniej (niezaleznie od tego, jaki byl wynik pierwszego 'ifa'!) jesli tylko nie jest wieksza od zera, to wypisujesz, ze jest ujemna.