Реализовать тестирование модуля, разрабатываемого как часть приложения "Калькулятор"

@OneKonstantin · Регистрация: 03.02.2020

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

Реализовать тестирование модуля, разрабатываемого как часть приложения "Калькулятор" и реализующего одну из его функций. Результат работы должен быть представлен в виде 2-х отдельных файлов кода с комментариями: тестируемый модуль и тестирующая этот модуль программа (суммарный размер не должен превышать 100 кБ). Мне дали задание на дистанционном обучение сделать функцию M+ калькулятора (М+ - добавить текущее значение на экране к значению в памяти (сложение)).
Учебу до дистанционки проболел, а теперь еще и дома сидеть пыхтеть, помогите пожалуйста, буду при многом благодарен, сдать надо в понедельник, ибо до практики не допустят, на которой мне куда больше рассказывают и объясняют про паскаль нежели на парах, в паскале ноль...

Пример выполнения задания

Модульное программирование предполагает построение программы из отдельных программных блоков особого вида - модулей. Модуль позволяет разбить текст программы на несколько физических файлов, компилируемых раздельно. Это дает возможность автономно отлаживать и тестировать модули. В отдельном каталоге создадим два файла: unitDemo.pas - тестируемый модуль и unitDrive.pas - модуль с основной процедурой тестирующего приложения.

Содержимое файла unitDemo.pas:

Pascal
1
2
3
unit unitDemo;
 
end.

Заголовок тестируемого модуля начинается ключевым словом unit и объявляет имя модуля, которое обязано совпадать с именем файла. Для того, чтобы модуль можно было использовать, в разделе uses вызывающего модуля (которым может быть и основная программа) нужно указать имя требуемого файла модуля без расширения.

Содержимое файла unitDrive.pas:

Pascal
1
2
3
4
5
uses unitDemo;
 
begin
 
end.

Если теперь скомпилировать файл unitDrive.pas, процесс компиляции успешно завершится. Файлы подготовлены.
Предположим, что тестируемый модуль содержит функцию Summ, возвращающую сумму двух целых чисел. Объявим имя Summ в разделе интерфейса (секция interface), содержащем объявление всех имен, присутствующих в модуле. Эти имена будут доступны (чаще говорят «видны») в других модулях при подключении unitDemo посредством раздела uses. Далее в раздел реализации (секция implementation) необходимо добавить программный код функции Summ.

Содержимое файла unitDemo.pas:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
unit unitDemo;
 
interface
function Summ(a, b: integer): integer;
 
implementation
function Summ(a, b: integer): integer;
begin
  result := a + b;
end;
 
end.

После внесения изменений в тестируемый модуль, процесс компиляции отдельного файла unitDemo.pas успешно завершается. Осталось только проверить функцию Summ в работе.

Содержимое файла unitDrive.pas:

Pascal
1
2
3
4
5
uses unitDemo;
 
begin
 writeln( Summ(2, 2) );
end.

@Puporev · 25.03.2020, 10:04

И в чем проблема? Все же написано, до последней буквы.

@Puporev · 25.03.2020, 10:06

Размеры файлов 148 и 47 байт.

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	25.03.2020, 10:06
	Размеры файлов 148 и 47 байт. 0

Реализовать тестирование модуля, разрабатываемого как часть приложения "Калькулятор"

Решение