[nevidimko]

нужно написать программу на паскале,для решения такой задачки :
" Дан массив строк, каждая из которых может рассматриваться как целое шестнадцатеричное число без знака. Разработать программу преобразования представления строк массива из шестнадцатеричной системы счисления в двоичную. Распечатать введенные шестнадцатеричные значения и полученный массив."

или хоть подскажите функцию перевода из 16тиричной системы в двоичную,сказали есть такая функция

[lmikle]

HexToInt тебе поможет. Ну а уж из инта сделать двоичные цифирьки просто...

[nevidimko]

такого же нет в паскале вроде

[Phedor]

Из справки:

Unit
Classes

Syntax


[Delphi] function HexToBin(Text: PAnsiChar; Buffer: PAnsiChar; BufSize: Integer): Integer;

Text - строка содержащая 16-ричные значения
Buffer - куда вернуть результат
BufSize - размер буфера

Возвращает сколько реально данных записано в Buffer.

[Страдалецъ]

Это справка для Delphi, а челу надо под Pascal. Насколько я помню, там стандартной функции нет, так что надо искать готовое решение в инете или писать самому.

[Aristarh Dark]

Перевод из 16-ричной в 2-ичную систему счисления - самый простой, на мой вгляд. Так что я не вижу никаких проблем.

[Aristarh Dark]

Эх... Добрый я что-то сегодня

Код:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
function HextoBin(Value:string):string;
var
  i:integer;
begin
  Result:='';
  for i:=1 to Length(Value) do
    case Value[i] of
      '0':Result:=Result+'0000';
      '1':Result:=Result+'0001';
      '2':Result:=Result+'0010';
      '3':Result:=Result+'0011';
      '4':Result:=Result+'0100';
      '5':Result:=Result+'0101';
      '6':Result:=Result+'0110';
      '7':Result:=Result+'0111';
      '8':Result:=Result+'1000';
      '9':Result:=Result+'1001';
      'A','a':Result:=Result+'1010';
      'B','b':Result:=Result+'1011';
      'C','c':Result:=Result+'1100';
      'D','d':Result:=Result+'1101';
      'E','e':Result:=Result+'1110';
      'F','f':Result:=Result+'1111';
    end; //of case
end;
var
  s:string;
begin
  ReadLn(s);
  WriteLn(hextobin(s));
  readln;
end.

[nevidimko]

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

[nevidimko]

это ты случайно не для делфи нацарапал?а то в паскале чета неполучается

[Страдалецъ]

Уберите:

Код:

{$APPTYPE CONSOLE}
uses
  SysUtils;