Zadanie 8 - przedział liczbowy Sprawdź, czy wpisana liczba jest z przedziału -5 do 10. Jeźeli tak, wyświetl komunikat "Poprawne dane", jeśli nie komunikat "Błąd danych"
jak to rozwiazac z uzyciem funkcji isnumber?
Havaii
Niewiem jak to zrobic z uzyciem funkcji isnumber. ale w Pascalu bylo by to :
PROGRAM NAZWA; USES CRT; VAR LICZBA:REAL; BEGIN WRITELN('PODAJ LICZBE'); READLN(LICZBA); IF LICZBA>-5 THEN BEGIN IF LICZBA<10 THEN BEGIN WRITELN('POPRAWNE DANE'); END; END; REPEAR UNTIL KEYPRESSED; END.
ale w Pascalu bylo by to :
PROGRAM NAZWA;
USES CRT;
VAR
LICZBA:REAL;
BEGIN
WRITELN('PODAJ LICZBE');
READLN(LICZBA);
IF LICZBA>-5 THEN
BEGIN
IF LICZBA<10 THEN
BEGIN
WRITELN('POPRAWNE DANE');
END;
END;
REPEAR UNTIL KEYPRESSED;
END.
Moze to ci w czyms pomoze... ;]