Задана строка s, представляющая собой запись числа в двоичной системе счисления

@Таня Н · Регистрация: 22.03.2018

Author24 — интернет-сервис помощи студентам

Задана строка s, представляющая собой запись числа в двоичной системе счисления. Осуществить перевод заданного числа в систему с основанием 16.

@Joy · 23.03.2018, 08:54

Pascal

const base='0123456789ABCDEF';
var 
  n2,n16:string;
  i:integer;
 begin
   write('Введите число в 2-ой системе счисления:');
   readln(n2);
   while length(n2) mod 4>0 do n2:='0'+n2;
   for i:=1 to length(n2) do 
     if i mod 4=0 then 
       n16:=n16+base[8*ord(n2[i-3]='1')+4*ord(n2[i-2]='1')+2*ord(n2[i-1]='1')+ord(n2[i]='1')+1];
    writeln('Ответ:',n16);    
end.

@Таня Н · 23.03.2018, 09:05 **[ТС]**

Ошибка: Функция ORD с параметрами указанных типов не найдена

@ZX Spectrum-128 · 23.03.2018, 09:21

Таня Н, перейдите на современный компилятор. PABC закрыт 11 лет назад.

@Joy · 23.03.2018, 09:25

Таня Н, Функция Strtoint есть в нем?
Попробуйте строку

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

n16:=n16+base[8*ord(n2[i-3]='1')+4*ord(n2[i-2]='1')+2*ord(n2[i-1]='1')+ord(n2[i]='1')+1];

заменить на

Pascal

1	n16:=n16+base[8strtoint(n2[i-3])+4strtoint(n2[i-2])+2*strtoint(n2[i-1])+strtoint(n2[i])+1];

у меня в Linux Pascal ABC не работает, проверяю на Pascal ABC.Net.

@Таня Н 0 / 0 / 0 Регистрация: 22.03.2018 Сообщений: 10
		1
	Задана строка s, представляющая собой запись числа в двоичной системе счисления 22.03.2018, 21:05. Показов 1060. Ответов 4 Метки нет (Все метки) Задана строка s, представляющая собой запись числа в двоичной системе счисления. Осуществить перевод заданного числа в систему с основанием 16. 0

@Таня Н 0 / 0 / 0 Регистрация: 22.03.2018 Сообщений: 10
	23.03.2018, 09:05 [ТС]	3
	Ошибка: Функция ORD с параметрами указанных типов не найдена 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	23.03.2018, 09:21	4
	Таня Н, перейдите на современный компилятор. PABC закрыт 11 лет назад. 0

	23.03.2018, 09:25