|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.06.2009, 19:38 | #1 |
Пользователь
Регистрация: 20.12.2008
Сообщений: 64
|
Строки.Паскаль.Подскажите плз.
подскажите как проверить является число целым или вещественным(с дробной частью) или надо вообще по другому делать?
var n:real; s:string; w:integer; begin readln(s); val(s,n,w); if w=0 then writeln('число') else writeln('не число'); end.
/\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\
:: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: ::читать тут:: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: |
05.06.2009, 19:49 | #2 |
пропагандирую жизЪ
Форумчанин
Регистрация: 19.03.2007
Сообщений: 950
|
у тебя n- real, значит любое число которое ты введешь будет считаться вещественным
Посторонним В.
|
05.06.2009, 19:50 | #3 |
Форумчанин
Регистрация: 06.01.2009
Сообщений: 340
|
Да, верно написал.
val - преобразует строку с число. Чтобы убедиться, является ли число целым или вещественным, можно дописать проверку: if n = int(n) then // integer (в смысле без дробной части) else // real (с дробной частью)
Истинный успех – это то, что Вы сделали в сравнении с тем, что могли бы сделать.
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили "Титаник". |
05.06.2009, 19:55 | #4 |
Пользователь
Регистрация: 20.12.2008
Сообщений: 64
|
спасибо))мозги уже не варять а еще 5 задач решать надо))
/\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\
:: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: ::читать тут:: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите плз,строки | Sirega | Паскаль, Turbo Pascal, PascalABC.NET | 10 | 11.01.2009 23:54 |
помогите плз с паскалем , строки | Damer | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 11.01.2009 19:48 |
помогите плз с задачой (строки на яз.Паскаль) | Saken | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 30.11.2008 14:26 |