Категория
Информатика
Тип
реферат
Страницы
8 стр.
Дата
04.11.2009
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
18195.zip — 11.62 kb
  • sozdanie-bibliotek-podprogramm-v-turbo-pascal_18195_1.rtf — 66.84 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо



Текст работы

число, записанное теми же цифрами.
При решении каждой из этих задач может быть использована функция, возвращающая количество цифр в записи натурального числа.
Вот возможный вариант такой функции:
Function Digits(N : LongInt) : Byte;
Var Kol : Byte;
Begin
Kol := 0;
While N 0 Do Begin Kol := Kol + 1; N := N Div 10 End;
Digits := Kol
End;
Сохраним этот текст в файле с расширением .inc (это расширение внешних подпрограмм в Turbo Pascal), например, c.
Еще необходима функция возведения натурального числа в натуральную степень.
Function Power(A, N : LongInt) : LongInt; файл c
Var I, St : LongInt;
Begin
St := 1;
For I := 1 To N Do St := St * A;
Power := St
End;
Попробуем использовать функции при решении задачи номер один.
Program Example1;
Var N, S : LongInt;
$I c подключаем внешнюю функцию c, возвращающую количество
цифр в записи числа
$I c внешняя функция, выполняющая возведение числа A в степень N
Begin
Write('Введите натуральное число: ');
ReadLn(N);
для определения последней цифры числа N берем остаток от деления этого числа на 10, а для определения первой делим N на 10 в степени на единицу меньшую,
чем количество цифр в записи числа (нумерация разрядов начинается с 0)
S := N Mod 10 + N Div Power(10, Digits(N) - 1);
WriteLn('Искомая сумма: ', S)
End.
Внешние процедуры создаются и внедряются в использующие их программы аналогично функциям, и мы не будем подробно на этом останавливаться.
Далее речь пойдет о модулях: их структуре, разработке, компиляции и использовании.
Модуль — это набор ресурсов (функций, процедур,



Ваше мнение



CAPTCHA