Witam,
Mam pytanie: co zrobić, aby przy wpisaniu przez operatora czegoś innego niż liczba(np znak, słowo) wyskoczył komunikat proszący o podanie wartości jeszcze raz? chodzi o to aby program się "nie wykładał" przy podaniu np słowa do zmiennej integer
Kontrola wpisywanych zmiennych
- Rejestracja: dni
- Ostatnio: dni
0
- Rejestracja: dni
- Ostatnio: dni
- Lokalizacja: Gorlice
0
program test;
var
sLiczba: string;
Liczba: Integer;
Error: Integer;
begin
repeat
Write('Podaj Liczbe: ');
Readln(sLiczba);
Val(sLiczba, Liczba, Error);
if (Error > 0) then
Write('To nie jest liczba. ');
until Error = 0;
{dalsza czesc programu}
end.