Разработка алгоритмов и программ решения различных задач с использованием библиотечных модулей пользователя

@NikolayStadnik · Регистрация: 05.10.2016

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

Задание 1:
Составить текст решения задачи на языке Turbo Pascal.
1. Создать модуль пользователя z9_unit, в котором должна содержаться
одна процедура либо функция в соответствии с вариантом. Вариант
определяется по последней цифре учащегося в журнале.
2. Создать программу для использования полученного модуля.

Варианты выполнения заданий:
Вариант: Процедура/функция: Описание: список аргументов: Тип результата:
1 / Function / вычисление факториала числа/ a:integer/ longint/

@Puporev · 08.10.2016, 08:36

Pascal

unit z9_unit;
interface
function fact(n:integer):longint;
implementation
function fact;
var i:integer;
    f:longint;
begin
f:=1;
for i:=1 to n do
f:=f*i;
fact:=f;
end;
end.

Pascal

uses crt,z9_unit;
var n:integer;
begin
clrscr;
repeat
write('Введите натуральное число от 1 до 12 n=');
readln(n);
until n in [1..12];
write(n,'!=',fact(n));
readln
end.

@NikolayStadnik 2 / 2 / 1 Регистрация: 05.10.2016 Сообщений: 58
		1
	Разработка алгоритмов и программ решения различных задач с использованием библиотечных модулей пользователя 08.10.2016, 08:16. Показов 1519. Ответов 1 Метки нет (Все метки) Задание 1: Составить текст решения задачи на языке Turbo Pascal. 1. Создать модуль пользователя z9_unit, в котором должна содержаться одна процедура либо функция в соответствии с вариантом. Вариант определяется по последней цифре учащегося в журнале. 2. Создать программу для использования полученного модуля. Варианты выполнения заданий: Вариант: Процедура/функция: Описание: список аргументов: Тип результата: 1 / Function / вычисление факториала числа/ a:integer/ longint/ 0

	08.10.2016, 08:36

Разработка алгоритмов и программ решения различных задач с использованием библиотечных модулей пользователя

Решение