Jak zabezpieczyc program zeby sie nie sypal bo zle wprowadzonnej zmiennej

Question

Witam.

Chciałbym sie dowiedziec jak zabezpieczyc program zeby sie nie sypal gdy zle wprowadze zmienna. Np. chce wprowadzic zmienna, niech bedzie integer. Gdy wpisze zamiat liczby jakas litere lub ciag znakow program sie posypie. Jak zrobic aby się tak nie dzialo? Znalazłem w necie cos o funckji val ale nie bylo to dla mnie do konca zrozumiale wiec mam nadzieje ze pomozecie. I czy ta sama zasada dziala w drugą strone? Jesli chce wprowadzic stringa a wpisze liczbe to rowniez da sie to zabezpieczyc?

Answer 1

String przechowuje ogolnie znaki, obojetnie czy to cyfry czy litery czy znaki funkcyjne itp, wiec nie bardzo rozumiem ostatnie pytanie.

Ja zawsze lubilem w programowaniu to, ze mozna samemu rozwiazywac problemy na swoj sposob. Jakby Ci sie chcialo, to zawsze moglbys stworzyc swoja funkcje ktora odpowiadalaby za pobieranie pojedynczych znakow z klawiatury, a pozniej odpowiednie nimi zarzadzanie.

Nie wiem jak to jest w delphi, ale w C++ uzywajac bardziej zaawansowanych bibliotek, sa gotowe rozwiazania do takich zagadnien. Np w Qt wystarczyloby wczytywac z klawiatury do zmiennej typu QString a pozniej uzywajac funkcji z klasy QString toInt() przerabiac na integer.

Comments

MAsz racje. Drugie pytanie bez sensu zadalem. Bardziej chodzilo mi wlasnie o wykorzystanie funkcji val bo czesto pisza ze to jest wykorzystywane.

 

var
  i:integer;
  a:integer;
begin
  repeat
    write('Podaj liczbe: ');
    {$I-}
    readln(a);
    {$I+}
    i := ioresult;
    if i<>0 then
      writeln('To nie jest liczba');
  until i=0;
  writeln('Podales: ',a);
end.

Znalazlem jeszcze cos takiego. Ale nie rozumiem tych 4 linijek pod write'Podaj liczbe'. A nie ma sensu sie uczyc na pamiec jak sie nie rozumie. Mogłbys mi wyjasnic te linjiki?

    {$I-}
    readln(a);
    {$I+}
    i := ioresult;

---

Niestety kolego nie pomogę Ci, bo to nie moj język, a na telefonie nie bardzo chce mi sie sprawdzać co to moze byc :/

Answer 2

Wyklucz wpisywanie innych znaków jak liczby...  W pętli z warunkiem.

Answer 3

W notatkach znalazłem, kiedyś P. Mirosław przedstawił coś takiego, nie pamiętam z jakiego odcinka.

int nr_miesiaca;
if (!(cin >> nr_miesiaca)) zwraca, false gdy nie jest to liczba.
{ cerr (konsola błedów) << „To nie jest liczba”; }

Może to Cie jakoś nakieruję, pomoże :)

~ Sorki, po odpowiedzi zwróciłem uwagę dopiero, że nie chodzi o C++.

Answer 4

Do tego celu możesz wykorzystać funkcję TryStrToInt(zmienna_string,zmienna_int). Poniżej wkleję Ci przykład procedury z zastosowaniem tejże funkcji. ;)
 

procedure Podaj_n;
begin
  while not TryStrToInt(n_str, n) do
  begin
  Write('Podaj liczbe naturalna: ');
  Readln(n_str);
  if TryStrToInt(n_str,n) then Writeln('Podane n wynosi: ', n)
  else Writeln('Podano nieprawidlowa wartosc: ');
  end;
  end;