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;
Ошибка в коде
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
Код:
і ще одна помилка readln(hexa); код 3
Отлично, вот если бы еще мою ошибку кто нить решил…
Цитата: Міша02
і ще одна помилка readln(hexa); код 3
Переменные в var объявите.
спасибо помогли..