Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Ошибка в коде

75K
26 декабря 2011 года
Міша02
6 / / 26.12.2011
function pow16(m: byte):integer;
var i: byte;
begin
pow16 := 1;
for i := 1 to m do
pow16 := pow16 * 16;
end;

begin
write('Hexadecimal: ');
readln(hexa);

n := length(hexa);

decimal := 0;
m := n;
for i:=1 to n do begin
ch := hexa;
if ch in ['A'..'F'] then
case ch of
'A': digit := 10;
'B': digit := 11;
'C': digit := 12;
'D': digit := 13;
'E': digit := 14;
'F': digit := 15
end
else
digit := ord(ch) - ord('0');
m := m - 1;
decimal := decimal + digit * pow16(m);
end;

writeln('Decimal: ',decimal);

readln
end.

В рядку pow16 := pow16 * 16; показує ошибка 88 не розумію чому?

і ще одна помилка readln(hexa); код 3
278
27 декабря 2011 года
Alexander92
1.1K / / 04.08.2008
 
Код:
function pow16(m: byte):integer;
var
   i: byte;
   res: integer;
begin
   res := 1;
   for i := 1 to m do
      res := res * 16;
   pow16 := res;
end;
75K
27 декабря 2011 года
Міша02
6 / / 26.12.2011
і ще одна помилка readln(hexa); код 3
79K
27 декабря 2011 года
Andriy47
1 / / 27.12.2011
Отлично, вот если бы еще мою ошибку кто нить решил…
277
27 декабря 2011 года
arrjj
1.7K / / 26.01.2011
Цитата: Міша02
і ще одна помилка readln(hexa); код 3



Переменные в var объявите.

75K
28 декабря 2011 года
Міша02
6 / / 26.12.2011
спасибо помогли..
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог