Паскаль: является ли введенная с клавиатуры последовательность символов записью двоичного или шестнадцатеричного числа

[Студент ММИ]

Написать программу, которая проверяет, является ли введенная с клавиатуры последовательность символов записью двоичного или шестнадцатеричного числа. Если это так, вывести соответствующее сообщение и запись числа в десятичной системе счисления.

Програмка, сразу пишет 0:(
program AAAAAAAA;
var s: string;
N,k,b,d,m,a:longint;
Code:integer;
function step(x:integer):longint;
var i:integer; st:longint;
begin
if x=0 then step:=1 else
begin
st:=1;
for i:=1 to x do begin
st:=st*2;
step:=st;
end;end;
Begin;
Writeln('Azaza');
Readln(s);
while Pos(' ',s)>0 do Delete(s,1, Pos(' ',s));
val('$'+s, N, Code);
if Code<>0
then writeln('Tu lox!!!!')
else writeln('Eto chislo =',N);
val(s,N,Code);
m:=0;
k:=0;
m:=N;
repeat
b:=a mod 10;
d:=a div 10;
m:=m+b*step(k);
k:=k+1;
a:=d;
until d=0; End;End; BEgin
writeln('s 2 v 10 = ',d);
readln

END.

Я решил выводить сразу два значения если таковы есть в двух системах, но оно сразу выбивает 0.... и почему s:=st невозможно, когда оба значения стринговые?

[min@y™]

Да откуда ж вы такие все одинаковые лезете-то?

и почему s:=st невозможно, когда оба значения стринговые?

[ViktorR]

Замечание:
1. Функция с именем step и переменная step. Вы уж определитесь.

function step(x:integer):longint;
...
if x=0 then step:=1 else...

2. Если в записи встречаются только ноль и единица, то это может быть и шестнадцатеричным числом.
Какой признак следует использовать для разделения.
Так, например, в начале может быть пара символов Bx10111 или bx10111, где Bx, bx - признак двоичного числа, или Hx hx - соответственно для 16-тиричного.
Другой путь: все символы 0 и 1 - двоичное, а если символы из набора 0..9, A..B, a..b - 16-тиричное.
3. :

{Описать два набора)
 Const  Simbin = '01';
       Simhex  = '0123456789ABCDEF';

{Описать два флага}
var Db, Hex : boolean;
   s : string;
   i : integer;
...
Db := true;
Hex := true;
...
{В цикле просмотреть слово. В первом варианте цикл следует начать с трех}
for i := 1 {3} to length(s) do begin
{если символ не принадлежит набору Simbin, то Db := false}
{если символ не принадлежит набору Simhex, то Hex := false}
{Для определения принадлежности символа слова одному из наборов следует использовать функцию Pos(), которая вернет номер позиции
if Pos(s[i],Simbin) = 0 then ...
if Pos(s[i],Simhex) = 0 then ... }
end;
if ((NOT Db) AND (NOT Hex)) then {строка не число}
if (Db AND (UpCase(s[1]) = 'D')) then {преобразование двоичного в десятичное}
if (Hex AND (UpCase(s[1]) = 'H')) then {преобразование 16-тиричного в десятичное}
...

Сами преобразования можно оформить в виде функции.
Это алгоритм мазками ...


Как-то так, ...
PS: С кодом не разобрался ...

[type_Oleg]

Сообщение от ViktorR

Замечание:
1. Функция с именем step и переменная step. Вы уж определитесь.
...

А что такого? В Pascal так и возвращается значение функции.
Эта if x=0 then step:=1 else.. - это же в описании функции.

Можно еще через Result, но не во всех Паскалях вроде..

[Вадим Мошев]

Сообщение от type_Oleg

А что такого? В Pascal так и возвращается значение функции.
Эта if x=0 then step:=1 else.. - это же в описании функции.

Можно еще через Result, но не во всех Паскалях вроде..

Вообще, лично нас так учили. Присваивать имени функции значение только в само конце подпрограммы и не использовать её нигде до этого.


например:

function f(x: integer): integer;
begin
...
if Cond then s:=<что-то>...
....
f:=s
end;

[Serge_Bliznykov]

Вообще, лично нас так учили. Присваивать имени функции значение только в само конце подпрограммы и не использовать её нигде до этого.

Вадим Мошев, в приведённом Вами примере Вы для промежуточных результатов Вы используете дополнительную переменную (у Вас это переменная s). Так вот, современные реализации языка Паскаль УЖЕ имеют такую переменную с именем Result. её описывать не нужно, а использовать можно и нужно (в том числе и для промежуточных присвоений).

[Poma][a]

А у меня не работает.. Что я делаю не так? Или фряха не современная? Или это не паскаль вовсе?

[type_Oleg]

Странно, в Лазарусе Result есть. Хотя там тоже fpc.
А вот в gcc (в Geany) нет.

[Stilet]

D:\_MainDir\lazarus\fpc\2.6.4\bin\i 386-win32>fpc -Mobjfpc q.pas
Free Pascal Compiler version 2.6.4 [2014/06/14] for i386
Copyright (c) 1993-2014 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling q.pas
Linking q.exe
3 lines compiled, 0.2 sec , 26176 bytes code, 1644 bytes data

Понятно как нуна компилить?

[Poma][a]

Понятно как нуна компилить?

Два последних вопроса как бэ намекают.. не?