Правила форума
Прочтите прежде чем задавать вопрос!
Вот как ее решила я:
Код
program laba;
uses crt;
var
s:string;
w, code:integer;
procedure start;
begin
writeln('введите строку');
readln(s);
end;
procedure process;
begin
Val(s,w,code);
end;
procedure finish;
begin
If code=0 then
writeln('Строка ', s,' является записью целого числа ')
else
writeln('Строка ', s,' не является записью целого числа ');
readln;
end;
begin
writeln ('Эта программа определяет, является ли введенная вами строка правильной записью целого числа.');
readln;
start;
process;
finish;
end.
uses crt;
var
s:string;
w, code:integer;
procedure start;
begin
writeln('введите строку');
readln(s);
end;
procedure process;
begin
Val(s,w,code);
end;
procedure finish;
begin
If code=0 then
writeln('Строка ', s,' является записью целого числа ')
else
writeln('Строка ', s,' не является записью целого числа ');
readln;
end;
begin
writeln ('Эта программа определяет, является ли введенная вами строка правильной записью целого числа.');
readln;
start;
process;
finish;
end.
Однако, здесь идет конвертирование и проверка всей строки сразу.... Это очень ограничило количество вводимых символов.... Мне поставили новую задачу: сделать так, чтобы шли конвертирование и проверка каждого символа... Сложность еще в том, что целые числа могут быть и отрицательными, и если делать посимвольную проверку, то нужно учитывать знак "-" в начале строки...
Подскажите пожалуйста, как сделать!
Сообщение отредактировано: bama_girl -
