Question

Napisz algorytm sprawdzania czy podana przez uzytkownika liczba a jest liczba
całkowita (w języku Pascal).

Nie proszę o napisanie całego programu tylko o sam sposób na sprawdzenie, czy a jest l. całkowitą. Próbowałam czegoś takiego:

read(a);

b:= a div 1;

if a=b then write('TAK') else write('NIE');

ale sprawdziłam działanie programu i wychodzi, że każda liczba (niecałkowita) też jest całkowita...

Answer 1

Jak się Tobie wydaje, ile jest `2.5/1`, jeżeli nie `2.5`?

Na myśl w tej chwili przychodzą mi jedynie dwie metody:

1) 

Const DecimalSeparator = '.'; // Jeżeli dołączysz SysUtils, usuń tę zmienną
Var Str: String;
Begin
  Readln(Str);
  if (Pos(DecimalSeparator, Str) > 0) Then
   Writeln('Z "przecinkiem"') Else
   Writeln('Bez "przecinka"');
End.

 

2) (imho lepszy, po opakowaniu procedurą):

Try

 Readln(ZmiennaTypuCałkowitego);

Except

 Writeln('Wpisano coś poza liczbą całkowitą');

End;

 

Btw, "algorytm" to może być w formie opisu lub schematu, a kod w jakimś języku to implementacja tegoż algorytmu.