Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Thypson

21 / 21 / 19

Регистрация: 10.09.2013

Сообщений: 285

Загвоздка с модулями

18.06.2017, 02:21. Показов 536. Ответов 0

Метки нет (Все метки)

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

Ранее никогда не работал с модулями в Pascal. Но тут предстала такая задача:
Написать программу и два модуля. Первый использовать как библиотеку переменных и констант, второй как библиотеку подпрограмм. Загвоздка в том, как всё таки правильно передать переменную из первого во второй модуль.
Вот код написал такой, но ошибка "Нельзя преобразовать тип variables к integer". Как правильно реализовать? Ну написал код самый простой, присваивание n:=5 и вывод на экран, через оба модуля всё...
Код program.pas:

Pascal
1
2
3
4
5
6
program prog;
uses first,second;
var n: variables;
begin
  n_five(n);
end.

Код first.pas:

Pascal
1
2
3
4
5
6
7
8
9
unit first;
interface
type 
  variables = record
  n: integer;
end;
implementation
begin
end.

Код second.pas:

Pascal
1
2
3
4
5
6
7
8
9
10
unit second;
interface
procedure n_five(n:integer);
implementation
  procedure n_five;
  begin
  n:=5;
  writeln(n);
  end;
end.

Добавлено через 30 минут
Решил сам))) second.pas - неизменный)
program.pas:

Pascal
1
2
3
4
5
program prog;
uses first,second;
begin
  n_five(n);
end.

first.pas:

Pascal
1
2
3
4
5
6
unit first;
interface
var n:integer;
implementation
begin
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

18.06.2017, 02:21

Ответы с готовыми решениями:

Загвоздка в паскале!
Добрый день! Помогите пожалуйста! Столкнулась с некоторыми загвоздками при составлении программы по...

Ошибка в программе с модулями
Даны матрицы A и B. Если максимальный элемент матрицы A больше максимального элемента матрицы B, то...

Работа с модулями и файлами прямого доступа
Привет! Люди добрые, помогите пожалуйста нарисовать блок-схему для отдельной процедуры, входящей...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

18.06.2017, 02:21

Помогаю со студенческими работами здесь

В матрице все отрицательные эл. главной диагонали, заменить их модулями
В матрице все отрицательные эл. главной диагонали, заменить их модулями. Вывести измененную матрицу...

Вычислить разность между модулями максимального и минимального элементов
Помогите написать программу с помощью процедур или функций. Условие: дан двумерный...

Матрица. Заменить отрицательные элементы их модулями и обнулить первый столбец
дана матрица А(n,m) целых чисел. заменить все отрицательные элементы этой матрицы их модулями и...

Отрицательные элементы массива заменить их модулями, а положительные - их удвоенными значениями
Не могу решить задачу, прошу у вас помощи господа Дан одномерный массив, значения элементов...

заменить все отриц. элементы исходной матрици их модулями и посчитать количество замен.
вот задача:

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных выбран регистр накопления, в. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

Наверх