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


 

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

43778. РАЗРАБОТКА ЗАЛЕЖИ “Южно-Карловской” БАЖЕННОВСКОГО МЕСТОРОЖДЕНИЯ ХРИЗОТИЛ-АСБЕСТА 378.01 KB
  Мощность водоносного горизонта в породах палеозоя определяется глубиной развития открытой трещиноватости и составляет 4060 м. Объем вскрыши в торцах карьера м3 определяется по формуле: =9241874 1 где: Д ширина дна карьера м; Hср средняя глубина торцевого борта м; ﻻ угол откоса торца карьера о; ﻻ л и ﻻ в углы откосов нерабочих бортов карьера с лежачей и висячей стороны о. Объем вскрыши в торцах карьера м3 определяется по формуле: =10410274 2 Прирезаемый...
43779. Менеджмент организаций 100.35 KB
  1 Анализ выполнения плана по производству и реализации работ Работы Объем производства работ млн. Объем реализации работ млн.пер 100 Темп прироста = Темп роста 100 Вывод :В отчётном периоде по сравнению с прошлым объём производства работ сократился на 380 млн. а также объём реализации работ снизился на 539 млн.
43780. Совершенствование сервисного продукта придорожных кафе РУП «Белоруснефть-Могилевоблнефтепродукт» на основе предоставления услуги выносной кухни с разработкой элементов бизнес-плана 2.27 MB
  Содержание придорожного сервисного продукта и организация производства общественного питания на объектах придорожного сервиса Теоретический раздел8 Значение придорожного сервиса в Республике Беларусь характеристика услуги по предоставлению питания в объектах придорожного сервиса. Особенности организации обслуживания в объектах общественного питания с использованием Pos терминала. Продвижение сервисного продукта объектов питания через интернет Передовой опыт...
43782. Лошадь в сельском подворье 110 KB
  Лошадь русской рысистой породы - правильного, гармоничного телосложения, однако из-за особенностей разведения, сложившихся на начало XX века, может иметь довольно различный экстерьер. Как правило, это — это сухая лошадь, с длинноватой спиной, наклонной, сухой шеей средней длины, крепкими сухими ногами, пропорционально несколько короче, чем спина.
43783. ИСПОЛЬЗОВАНИЕ СОВРЕМЕННЫХ ИНФОРМАЦИОННЫХ ТЕХНОЛОГИЙ В УЧЕРЕЖДЕНИЯХ ДОПОЛНИТЕЛЬНОГО ОБРОЗОВАНИЯ 239.16 KB
  Понятие информационной технологии. Составляющие информационной технологии. Современные информационные технологии. Информационные технологии в дополнительном образовании.
43785. Лишение свободы как уголовное наказание 163.04 KB
  В теории уголовного права нет единого определения содержания наказания в виде лишения свободы, но большинство ученых считают, что содержание этого одного из наиболее суровых видов наказаний состоит в принудительной изоляции осужденного путем помещения его в предназначенные для этого учреждения на срок, установленный приговором суда, со специальным режимом содержания.
43786. Розробка обємно-планувальних рішень готелю на 90 місць категорії *** 386.97 KB
  Метою дипломної роботи є розробка обємнопланувальних рішень готелю на 90 місць категорії . Задачі роботи: Визначити земельну ділянку для будівництва готелю. Обґрунтувати розміщення готелю на земельній ділянці.