Ошибка: описание не соответствует предописанию

@ELias171727 · Регистрация: 03.12.2023

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

Делал свой модуль, появилась ошибка, с остальными подпрограммами в модулe так не происходит.

Pascal

unit db;
 
interface
 
  ///To Ten, Возвращает число b переведенное из системы исчесления sys в десятичную.
  function toten( b :string; sys :2..16 ) :int64;
 
implementation
 
  function toten( b :string; sys :2..16 ) :int64;
    var
      res :int64;
      now :int64 :=1;
  begin
    for var i:=1 to length( b ) do
    begin
      case( ord( b[ length( b )-i+1 ] ) ) of
        49..57:res+=now*( ord( b[ length( b )-i+1 ] )-48 );
        97..102:res+=now*( ord( b[ length( b )-i+1 ] )-86 );
      end;
      now:=now*sys;
    end;
    toten:=res;
  end;
  
initialization
  println( toten( '12a9', 11 ) );
  print( 'Должно выйти 1703' );
end.

"Параметры в описании подпрограммы отличаются от параметров в ее предописании"
Без предописания модуль запускается нормально.

Нужно исправить ошибку.
Заранее спасибо за помощь!

@udmurt2024 · 02.09.2024, 14:03

Pascal

unit db;
interface
type base=2..16;
   ///To Ten, Возвращает число b переведенное из системы исчесления sys в десятичную.
  function toten( b :string; sys :base ) :int64;
 implementation
   function toten( b :string; sys :base ) :int64;
...............

	02.09.2024, 14:03

Ошибка: описание не соответствует предописанию

Решение