Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 03.12.2023
Сообщений: 7
1

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

02.09.2024, 13:10. Показов 305. Ответов 1

Author24 — интернет-сервис помощи студентам
Делал свой модуль, появилась ошибка, с остальными подпрограммами в модулe так не происходит.
Pascal Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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.
"Параметры в описании подпрограммы отличаются от параметров в ее предописании"
Без предописания модуль запускается нормально.

Нужно исправить ошибку.
Заранее спасибо за помощь!
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
02.09.2024, 13:10
Ответы с готовыми решениями:

Ошибка: Серьезность Код Описание Проект Файл Строка Состояние подавления Отсутствует аргумент, соответствует
using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Threading.Tasks; namespace...

Каждой скобке соответствует какое-то число. Каждому числу соответствует какая-то буква. Напишите получившееся слово.
Каждой скобке соответствует какое-то число. Каждому числу соответствует какая-то буква. Напишите получившееся слово. ...

Сортировка: 41 ошибка - операнд не соответствует оператору
procedure vstavka; begin for i:=2 to n do begin q:=А; j:=1; while q>=A and j<1 do inc(j); for k:=i-1 dowto j do...

1
183 / 137 / 56
Регистрация: 14.06.2024
Сообщений: 376
02.09.2024, 14:03 2
Лучший ответ Сообщение было отмечено ELias171727 как решение

Решение

Pascal Скопировано
1
2
3
4
5
6
7
8
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;
...............
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
02.09.2024, 14:03
Помогаю со студенческими работами здесь

Ошибка в делегате: указанная функция не соответствует типу делегата
Здравствуйте, как пофиксить ошибку на 28 строчке? #pragma once namespace philo1 { using namespace System; using...

Ошибка: Нет перегруженного метода , который соответствует делегату
Подскажите, пожалуйста, что за ошибка и как с ней бороться? Ошибка CS0123 Нет перегруженного метода для "Sum", который...

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

Yml файл не соответствует схеме, строка: -1 Позиция: -1, ошибка: Premature end of file
Здравствуйте, не могу разобраться что не так с моим умл-файлом. Сам я в составлении таких файлов полный ноль - первый раз делаю, не могли...

Ошибка при создании триггера: Имя столбца или число предоставленных значений не соответствует определению таблицы
Есть вот такой код При выполнении выдает ошибку сообщение: 213, уровень: 16, состояние: 1, процедура: trigger_InsteadOfUPDATE, строка: 13...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Новые блоги и статьи
Оптимизация БД в Kubernetes: бэкап и восстановление с CNPG и ZFS Snapshot
bytestream 21.02.2025
Cloud Native PostgreSQL - это специализированный оператор Kubernetes, разработанный для автоматизации развертывания и управления кластерами PostgreSQL. Он обеспечивает бесшовную интеграцию с. . .
Хранилище Kubernetes: бенчмарки ZFS, Cloud Disk и Local Path
bytestream 21.02.2025
Современные решения для хранения данных в Kubernetes предлагают широкий спектр возможностей - от простых локальных директорий до сложных распределенных систем хранения. ZFS, облачные диски и Local. . .
Оптимизация БД в Kubernetes: исследуем хранилище с OpenEBS и ZFS
bytestream 21.02.2025
OpenEBS и ZFS представляют собой сочетание технологий, которое позволяет создавать надежные и высокопроизводительные системы хранения данных для контейнеризированных приложений. OpenEBS - это. . .
Оптимизация БД в Kubernetes: автоматизация обслуживания с CNPG
bytestream 21.02.2025
CloudNative PostgreSQL (CNPG) - это решение, разработанное специально для управления PostgreSQL в среде Kubernetes. Оно позволяет автоматизировать множество рутинных операций, таких как создание. . .
Оптимизация БД в Kubernetes: собираем кластер и конфигурируем PostgreSQL
bytestream 21.02.2025
При развертывании PostgreSQL в Kubernetes важно понимать, что мы получаем не просто систему управления базами данных, а целый комплекс взаимосвязанных компонентов. Это включает в себя системы. . .
Как перейти с C/C++ на Rust: руководство для начинающих
bytestream 21.02.2025
Решение о переходе с C/ C++ на Rust может стать переломным моментом в карьере программиста. Rust предлагает уникальное сочетание производительности на уровне системных языков и безопасности. . .
Пакет Context в Go
Wired 21.02.2025
Пакет Context в языке Go - важнейший инструментарий для управления потоками выполнения программы и обмена данными между горутинами. Он появился в стандартной библиотеке в 2014 году и быстро стал. . .
Многопоточность в Rust: неблокирующиеся структуры и каналы
Wired 21.02.2025
Давайте разберемся с ключевыми элементами, которые делают многопоточность в Rust такой надежной. В основе всего лежат атомарные типы - специальные структуры данных, которые гарантируют безопасные. . .
Многопоточность в Rust: безопасность памяти с мьютексами и RwLock
Wired 21.02.2025
В отличие от других языков программирования, где использование примитивов синхронизации может привести к сложно обнаруживаемым ошибкам и утечкам памяти, система типов Rust обеспечивает корректность. . .
Многопоточность в Rust: мьютексы и безопасность потоков
Wired 21.02.2025
Многопоточное программирование - одна из самых сложных областей разработки, где даже опытные программисты могут допускать серьезные ошибки. Rust предлагает уникальный подход к решению этих проблем,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер