FPS pagalba, Val funkcija

Sveiki, reikia parašyti programėlę free pascal kalba ir susidūriau su problema, kurios nemoku išspresti. Taigi prie reikalo: vartotojo yra įvedamas, kintamasis kuris turėtų būti integer tipo, tačiau jeigu įvedamas ne integer tipo kintamasis turi būti atvaizduojama klaida. Naudoju Val funkcija ir viskas būtų kaip ir gerai, tačiau jeigu įvedamas neigiamas skaitmuo val funkcija nelaiko jo integer tipo kintamuoju, o man turi tikt ir teigiami ir neigiami skaičiai. Paprastas programėlės pavizdys:

program test;
var m, laikinas: char;
   n, klaida: integer;
begin
 readln(m);
 Val(m, n, klaida);
 if klaida > 0 then writeln('Blogai ivestas ksaitmuo');
 Readln;
end.

Gal kas turi minčių?

Įvedinėk ne char, o string tipo kintamąjį. Char yea vienas simbolis, o neigiamas skaičius -1 jau du simboliai.

pateikiu funkciją, kuri tai atlieka pilnai ir tvarkingai:

type Numbers = set of '0'..'9';

//nustato ar string tipo kintamasis yra skaicius, jei TRUE, skaiciu grazina kintamaje Number
function IsNumber(s :string; var Number :integer) :boolean;
var i, n, StartAt :integer;
begin
	IsNumber := TRUE;
	n := length(s);
	StartAt := 1;
	if s[1] = '-' then StartAt := 2;

	for i := StartAt to n do
	begin
		if not (s[i] in Numbers) then IsNumber := FALSE;
	end;

	if IsNumber then val(s, Number);
end;

Įvedinėk ne char, o string tipo kintamąjį. Char yea vienas simbolis, o neigiamas skaičius -1 jau du simboliai.

 

pateikiu funkciją, kuri tai atlieka pilnai ir tvarkingai:

 

type Numbers = set of '0'..'9';

//nustato ar string tipo kintamasis yra skaicius, jei TRUE, skaiciu grazina kintamaje Number
function IsNumber(s :string; var Number :integer) :boolean;
var i, n, StartAt :integer;
begin
	IsNumber := TRUE;
	n := length(s);
	StartAt := 1;
	if s[1] = '-' then StartAt := 2;

	for i := StartAt to n do
	begin
		if not (s[i] in Numbers) then IsNumber := FALSE;
	end;

	if IsNumber then val(s, Number);
end;

O kuo blogai paprasčiausias

val(input, number, error);
if error <> 0 then write('tai skaicius') else write('tai ne skaicius');

Šiuo atveju input irgi turi būti string.