10204

Подпрограммы. Процедуры и функции

Лабораторная работа

Информатика, кибернетика и программирование

Лабораторная работа № 5 Тема: Подпрограммы. Процедуры и функции Цель работы: отработать навыки использования подпрограмм процедур и функций при написании программного кода. Образцы решения задачи. Задача № 1. Определить количество и сумму цифр в числе. Анализ по...

Русский

2013-03-21

35 KB

10 чел.

Лабораторная работа № 5

Тема: Подпрограммы. Процедуры и функции

Цель работы: отработать навыки использования подпрограмм (процедур и функций) при написании программного кода.

Образцы решения задачи.

Задача № 1. Определить количество и сумму  цифр в числе.

Анализ постановки задачи.

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

Входные данные.  

Число, подлежащее обработке - number (тип – целый).

Выходные данные.

Сумма цифр в числе - sum (тип – целый).

Количество цифр в числе - kol (тип – целый).

Алгоритм.

  1.  Запросить целое число.
  2.  Найти сумму цифр числа (функция summ).
  3.  Найти количество цифр в числе (функция koll).
  4.  Вывести результат на печать.

Текст программы

var

        number : longint;

        sum, kol        : word;

function summ(num : longint):word;

var    s, temp     : word;

begin

  s:=0;

  while num<>0 do

                  begin

                    temp:=number mod 10;

                    s:=s+temp;    {подсчитывается сумма цифр в числе}

                    number:=number div 10

                  end;

  summ:=s;

end;

function koll(num : longint):word;

var     k : word;

begin

  k:=0;

  while num<>0 do

                  begin

                    k:=k+1;    {подсчитывается количество цифр в числе}

                    number:=number div 10

                  end;

  koll:=k;

end;

begin {main}

  writeln(‘Введите целое число’);

  readln(number);

  sum:=summ(number);

  kol:=koll(number);

  writeln (‘sum=  ‘, sum, ‘   kol= ’, kol)

end.

Задача № 2. Определить является  целое число совершенным.

Анализ постановки задачи.

Исходя из определения понятия совершенного числа, будем использовать типовой алгоритм нахождение делителей числа, который запишем в виде функции.

Входные данные.

Число, подлежащее обработке – number (тип - целый).

Выходные данные.

Сумма делителей числа  sum (тип - целый).

Алгоритм.

  1.  Запросить целое число.
  2.  Найти сумму делителей числа (функция delitel).
  3.  Сравнить обрабатываемое число с суммой делителей числа и вывести соответствующее сообщение на печать.

Текст программы

var

          number, sum        : integer;

function delitel (num : longint) :word;

var   s         : word;

       del     : word;

begin

 s:=0;

 for del:= 1 to  num div 2 do

                          if num mod del =0 then s:=s+del;

 delitel:=s;

end;

begin  {main}

  writeln(‘Введите целое число’);

  readln(number);

  sum:= delitel(number);

  if number=sum then writeln(‘Заданное число является совершенным’)

                           else  writeln(‘Заданное число не является совершенным’)

end.

Задания для самостоятельного решения.

Для задач своего варианта лабораторной работы № 4 написать программы с использованием подпрограмм (процедуры или функции).

Контрольные вопросы:

  1.  Что такое функция?
  2.  Назовите особенности организации функций.
  3.  Что такое процедура?
  4.  Как осуществляется вызов функции?
  5.  Где указываются формальные параметры?
  6.  Где указываются фактические параметры?
  7.  Кем определяется количество и тип формальных параметров?
  8.  Возможно ли использование подпрограмм без параметров?
  9.  В чем состоят отличительные особенности организации процедур от функций?
  10.   Должно ли количество фактических параметров совпадать с количеством формальных параметры? Обоснуйте ответ.


 

А также другие работы, которые могут Вас заинтересовать

71647. Специфика защитных мероприятий на РОО 54 KB
  Особенности радиационных загрязнение при авариях на АЭС При разрушении ядерного реактора процесс выделения ядерного топлива не прекращается и он превращается в постоянный источник ядероактивных продуктов.
71648. Защита населения и территории при авариях на химически опасных объектах 56.5 KB
  Аварии на химически опасных объектах химическое загрязнение окружающей среды контроль химической обстановки. Химическиопасные объекты: Производящие использующие хранящие химически отравляющие вещества при аварии на которых возможно поражение людей животных растительности.
71649. ІСТОРІЯ РОЗВИТКУ ГІМНАСТИКИ 174.5 KB
  Під гімнастикою стародавні греки розуміли всі вправи, які застосовувались для фізичного розвитку. Безумовно, зміст древньогрецької гімнастики відрізняється від змісту гімнастики сучасної.
71650. Социально-экономическая и политическая обстановка в стране в 1920-30-е гг. Укрепление тоталитарного режима 90 KB
  Под ними понимались политические и экономические рычаги воздействия: полновластие РКПб государственный сектор в промышленности централизованная финансовая система монополия внешней торговли Главная политическая цель -– снять социальную напряженность укрепить социальную базу...
71651. Статистика себестоимости продукции. Затраты на производство 172.5 KB
  В процессе производства продукции коммерческая организация использует конкретные материальные энергетические трудовые ресурсы формирующие затраты производства в натуральном выражении Объемы затрат на производство определяются видами продукции принятыми технологиями используемыми...
71652. Статистика научно-технического прогресса 40 KB
  Этапы и направления научно-технического прогресса Основные этапы научно-технического прогресса характеризуют такие направления как: Разработка новой техники выпуск первой промышленной серии. Освоение производства и выпуска новой техники характеризующееся показателем обновления...
71653. Статистика продукции промышленности 45 KB
  Это означает что продукция непромышленного производства например продукция подсобного сельского хозяйства капитального строительства столовых а также работы по капитальному и текущему ремонту зданий и сооружений включаются в объем продукции других отраслей материального производства.
71654. Статистика основного капитала 241.5 KB
  Для целей настоящего Положения при принятии к бухгалтерскому учету активов в качестве основных средств необходимо единовременное выполнение следующих условий: а использование в производстве продукции при выполнении работ или оказании услуг либо для управленческих нужд организации...
71655. Статистика оборотных фондов 168 KB
  Понятие и состав оборотных фондов как части национального богатства Оборотные фонды важная часть национального богатства страны ею наиболее мобильный постоянно возобновляемый элемент. Они являются материальной частью оборотных средств производителен в состав которых входят...