Преобразование текста в число

[ducky]

Преобразование текста в число

дано задание. Определить, является ли заданный текст правильной записью целого числа (возможно, со знаком).

правильно я написала, или можно как-то проще?


program V_6_14;
var c:array [1..9] of char;
a,i:integer;
begin
write ('vvedite text');
if (c[1]='+') or (c[1]='-') or (c[1]='1') or (c[1]='2') or (c[1]='3') or (с[1]='4') or (c[1]='5') or (c[1]='6') or (c[1]='7') or (c[1]='8') or (c[1]='9')
then a:=2;

if length(c)>1 then
for i:=2 to length(c) do
if (c<>'1') or (c>'2') or (c<'2') or (c>'3') or (c<'3') or (c>'4') or (c<'4') or (c>'5') or (c<'5') or (c>'6') or (c<'6') or (c>'7') or (c<'7') or (c>'8') or (c<'8') or (c>'9') or (c<'9')
then a:=a-1;


if a=2 then writeln ('text - pravilnaja zapis celogo chisla')
else writeln ('zadanij text ne est pravilnoj zapisju celogo chisla') ;
readln ;
end.

 

[Vladimir_S]

дано задание. Определить, является ли заданный текст правильной записью целого числа (возможно, со знаком).

правильно я написала, или можно как-то проще?

Да уж прямо скажем - можно и попроще. И существенно. Например, так:

VAR
 S:String;
 V:LongInt;
 Code:WORD;
BEGIN
 WriteLn('Enter the string');
 ReadLn(S);
 VAL(S,V,Code);
 If Code=0 then
  WriteLn('Correct')
 else
  WriteLn('Not correct');
 ReadLn;
END.

Здесь вводится строка (что, кстати, в Вашей программе попросту пропущено), а затем используется стандартный оператор преобразования строковой переменной в числовую. Если код операции =0, то операция корректна и преобразование прошло успешно, если код >0, то нет. И все дела.

А еще одно модераторское замечание. Пожалуйста, создавая тему, руководствуйтесь установленной Правилами (п.2.1) регламентацией наименований.
Название темы изменено.