Ввести строку, содержащую цифры. Определить является ли она записью шестнадцатеричного числа.

[Roman1295]

//Ввести строку, содержащую цифры. Определить является ли она записью шестнадцатеричного  числа.
var s :string; b: set of char;  i: integer;
begin
b:=['0'..'9']; //Задали множество 16-ричных символов
readln(s);
For i:=1 to length(s) do
If not(s[i] in b) then writeln('Нет') else
writeln('Да');
end.

Просьба проверить правильность выполнения.
Спасибо.

[Poma][a]

1)

b:=['0'..'9'];

Неверно
2) Такой цикл тоже не верен!

cheker := ['0'..'9', 'A'..'F'];
i := 1;

while (s[i] in cheker) and (i <= Length(s)) do
     Inc (i);

WriteLn (i > Length(s))

[eoln]

Как вариант

  readln(s);
  val('$'+s, i ,q);
  writeln(not boolean(q));

[Stilet]

//Ввести строку, содержащую цифры. Определить является ли она записью шестнадцатеричного  числа.
var s :string; b: set of char;  i: integer;
begin
readln(s);
For i:=1 to length(s) do
If not(s[i] in ['0'..'9','A..F','a..f']) then begin
 writeln('Нет');readln;halt;
end;
writeln('Да');
end.

Так правильнее, если уж не отдаляться от топа.

[eoln]

Кавычки забыл
'A..F','a..f' ==> 'A'..'F','a'..'f'

[Poma][a]

Господин eoln, а можете чуть-чуть прокомментировать Ваше решение?

[eoln]

val - старая "досовская" процедура умеет переводить в 8 (если память не изменяет),10,16-ричные системы. Для 16-ричной системы надо к числу приписать спереди символ $. В переменную q возвращается номер первого ошибочного символа (0 в случае успеха). Потом просто переводим 0 в false, а не ноль в true с помощью приведения типов и выводим противоположное (с помощью not) на экран.

Господин ... прям как при царе

[Poma][a]

Опаньки! А вот это уже очень-преочень интересно! Можно еще один вопрос : а чтобы перевести в 8-ную с.с. что нужно приписать?

Огромное спасибо!

P.S. До СССР-ского "товарищ" еще не дорос

[Stilet]

а чтобы перевести в 8-ную с.с. что нужно приписать?

А паскаль только с 16-ричкой знаком. И то случайно...

Кавычки забыл

Ну дык... 21-е же было...

[eoln]

Ага, точно. Старый паскаль не умеет, а free понимает символ & для 8-ричной системы