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


 

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

71790. ПОНЯТИЕ ЧЕСТИ И ДОСТОИНСТВА, ЕГО СОДЕРЖАНИЕ И РАЗВИТИЕ В РОССИЙСКОЙ ПРАВОВОЙ СИСТЕМЕ 195 KB
  Права человека органично вплетены в повседневную деятельность людей в их общественные отношения. Такие права как право на жизнь честь и достоинство личности свободу совести мнений убеждений автономию личной жизни право на участие в политических процессах необходимые условия...
71791. О ПОНЯТИИ АДМИНИСТРАТИВНОЙ ОТВЕТСТВЕННОСТИ 110.5 KB
  Обобщив наиболее распространенные в научной среде определения административной ответственности последнюю можно было бы предварительно определить как вид юридической ответственности которая выражается в применении органом управления должностным лицом административного наказания...
71792. ОСНОВАНИЯ ВОЗНИКНОВЕНИЯ, ИЗМЕНЕНИЯ И ПРЕКРАЩЕНИЯ НАЛОГОВЫХ ПРАВООТНОШЕНИЙ 75.5 KB
  Под таковыми понимаются факты фактические обстоятельства имеющие согласно закону юридическое значение в качестве правового основания условия необходимого для реализации нормы права. В налоговом праве можно выделять юридические факты двух видов действия бездействие и события.
71793. ОСОБЕННОСТИ ПРАВОВОГО РЕГУЛИРОВАНИЯ ЭКОНОМИКИ НА УРОВНЕ СУБЪЕКТОВ РОССИЙСКОЙ ФЕДЕРАЦИИ 134 KB
  Государственное регулирование экономики и его методы могут быть разными в различных государствах. Принципы такого разграничения устанавливаются Конституцией в ней же закреплены основные предметы ведения и полномочий отнесенные к компетенции Федерации и ее субъектов.
71794. ПОНЯТИЕ ПРАВА РЕГИОНАЛЬНОГО ИНТЕГРАЦИОННОГО ОБЪЕДИНЕНИЯ 229 KB
  Понятие права регионального интеграционного объединения имеет особое значение поскольку затрагивает соотношение полномочий объединения как международной организации с одной стороны и государств-членов с другой.
71795. ФИКСАЦИЯ ХОДА И РЕЗУЛЬТАТОВ НАЛОЖЕНИЯ АРЕСТА НА ИМУЩЕСТВО 83 KB
  При наложении ареста на имущество большое значение имеет фиксация его результатов так как это определяет правовые последствия реализации данной меры уголовно-процессуального принуждения. Применение видеозаписи при наложении ареста на имущество связано с трудностями и далеко...
71796. ФЕДЕРАЛЬНЫЙ ОКРУГ КАК ОРГАНИЗАЦИОННО-ТЕРРИТОРИАЛЬНАЯ ОСНОВА ДЕЯТЕЛЬНОСТИ ПРОКУРАТУРЫ РОССИЙСКОЙ ФЕДЕРАЦИИ 180.5 KB
  Как известно федеральные округа были введены Указом Президента России от 13 мая 2000 г. № 849 О полномочном представителе Президента Российской Федерации в федеральном округе с последующими изменениями и дополнениями.
71797. ОСОБЕННОСТИ ОФОРМЛЕНИЯ ЗАКЛАДНОЙ 99.5 KB
  Ипотечное кредитование один из самых проверенных и надежных в мировой практике способов привлечения частных инвестиций в сферу недвижимости и улучшения жилищных условий граждан позволяющих сделать жилье более доступным населению учитывать интересы всех участников...
71798. К ВОПРОСУ О ФЕНОМЕНЕ КОРРУПЦИИ 105.5 KB
  Коррупция существует с древнейших времен в качестве одной из наихудших и в то же время широко распространенных форм человеческого поведения которая наносит огромный ущерб работе государственного аппарата и обществу в целом.