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.   Должно ли количество фактических параметров совпадать с количеством формальных параметры? Обоснуйте ответ.


 

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

30236. Расчет себестоимости туристского продукта и услуг социально-культурного сервиса 50.5 KB
  Но если цена продукции зависит от ситуации которая складывается на рынке то затраты на ее производство непосредственно зависят от финансовохозяйственной деятельности самого предприятия. Следовательно совокупные затраты предприятия представляют собой издержки производства и издержки обращения и они лежат в основе определения себестоимости продукции работ услуг. При определении себестоимости общего объема выпуска продукции все затраты группируются по принципу однородности по следующим элементам: материальные затраты за вычетом...
30237. Понятие и виды цен. Методы ценообразования и ценовая политика на предприятиях СКСиТ 146 KB
  Только после этого можно определять цели в соответствии с которыми устанавливаются цены. Сущность цены. Кривая спроса показывает что спрос потребителей на туристские услуги увеличивается по мере снижения цены на них. Производители напротив увеличивают предложение по мере роста цены.
30238. Налогообложение в СКСиТ 61.5 KB
  Предприятий для которых туризм представляет собой основной вид деятельности. – принадлежность к группе малых предприятий регламентируется среднегодовой численностью персонала для различных видов деятельности в пределах 30100 человек. По общероссийскому классификатору отраслей народного хозяйства ОКОНХ основные предприятия туристской сферы относятся к отрасли Здравоохранение физкультура и социальное обеспечение по Общероссийскому классификатору услуг населения ОКУН большинство видов деятельности туристских организаций относится к...
30239. Оценка эффективности деятельности предприятий СКСиТ 85.5 KB
  Оценка эффективности деятельности предприятий СКСиТ. Понятие эффективности Для того чтобы предприятие могло сформировать основные направления своего развития и выработать соответствующую экономическую стратегию необходимо сформулировать критерии к которым оно должно стремиться и соответствующие показатели характеризующие выполнение этих критериев. В общем виде показатель экономической эффективности функционирования предприятия определяется в виде отношения результата к затратам необходимым для достижения этого результата. E = F R...
30240. Прогнозирование и планирование деятельности предприятий СКСиТ 66.84 KB
  Туристским организациям как национальным государственным так и частным постоянно требуются статистические данные для выявления тенденций на рынке туризма. Статистика туризма показывает где и на что туристы тратят деньги. Таким образом статистика туризма может предоставить информацию жизненно необходимую для многих видов коммерческой деятельности. Такие сведения представляют несомненную ценность для тех кто занимается планированием развитием и практической реализацией как международного так и внутреннего туризма.
30241. Назначение, состав, этапы разработки бизнес-плана предприятий СКСиТ 55 KB
  Назначение состав этапы разработки бизнесплана предприятий СКСиТ. Значение бизнесплана. Бизнесплан – это документ описывающий все основные аспекты будущего коммерческого предприятия анализирующий проблемы с которыми может столкнуться фирма и способы их решения. Бизнесплан позволяет: всесторонне обосновать тот или иной проект или мероприятие; разработать стратегию и тактику поведения для достижения цели; определить финансовые результаты о реализации проекта.
30243. Влияние туризма на развитие экономики дестинации, эффект мультипликации в туризме 79 KB
  Влияние туризма на развитие экономики дестинации эффект мультипликации в туризме. Индустрия туризма является важнейшим участником мировой торговли; во многих странах именно поступления от туризма формируют основную часть доходов в иностранной валюте. Здесь следует дать и некоторые другие определения используемые в макроэкономике туризма. В такой ситуации развитие доходного туризма может существенно поправить положение.
30244. Организационно-правовые формы предпринимательской деятельности в СКСиТ 42 KB
  Общество с ограниченной ответственностью – это учрежденное одним или несколькими лицами общество УК которого в соответствии с учредительными документами разделен на доли определенных размеров; участники ООО не отвечают по его обязательствам и несут риск в пределах стоимости внесенных вкладов. Общество с дополнительной ответственностью это учрежденное одним или несколькими лицами общество УК которого в соответствии с учредительными документами разделен на доли определенных размеров; участники ОДО солидарно несут субсидиарную...