АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Выбор максимального из трёх чисел с использованием подпрограммы–функции выбора максимума из двух чисел

Читайте также:
  1. A) Выборочной совокупностью
  2. II Выбор схемы станции
  3. III. Из-за чего шла борьба на выборах?
  4. А) Первичный выбор жизненного пути.
  5. Алгебраїчна форма запису комплексних чисел та дії над комплексними числами, записаними у цій формі
  6. Аналитическая работа при выборе и обосновании стратегии развития предприятии
  7. Аудиторская выборка
  8. Билет № 30 Анализ учения русского философа (по выбору)
  9. Билет № Анализ учения зарубежного философа (по выбору)
  10. Блок визначення мінімального або максимального значення MinMax
  11. Борьба политических сил России за выбор пути дальнейшего развития (февраль - октябрь 1917 г.)
  12. В будущее с помощью чисел

¢подпрограмма–функция (описание)

Function max2(ByValx As Integer, └┘–

ByVal y As Integer) As Integer

If x>y Then max2= x Else max2= y

End Function

¢Главная подпрограмма

Private Sub CmdРешение_ Click ()

Dim a As Integer, b As Integer, └┘–

c As Integer, maximum As Integer

a = CInt(Text1.Text)

b = CInt(Text2.Text)

c = CInt(Text3.Text)

maximum=max2(max2( a, b), c)

Text4.Text= maximum

End Sub

Пояснения.

В главной подпрограмме в конце действий выполняется вывод в поле с именем “Text4” максимального значения из 3-х чисел. Это значение определено с использованием и последовательным вызовом подпрограммы – функции выбора максимума из 2-х чисел.

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

После первого обращения к функции с именем “max2” она имеет значение максимума из значений переменных “a” и “b”. Это значение передается в качестве фактического параметра при втором обращении к функции наряду со значением переменной «с». В итоге получается окончательный результат.

12. Выполнить программу из файла max3_func.xls. Далее закрыть этот файл.

13. В конце работы самостоятельно реализовать проект по варианту, заданному преподавателем.

14. Завершить работу щелчком ЛКМ на пункте «Завершение сеанса <имя группы>».

 

Содержание отчета

Отчет должен содержать:

· номер, название и цель работы;

· краткую теоретическую часть, включающую описание форматов строчного и блочного условных операторов, возможности вложенности одного условного оператора в другой; изложены основные понятия, связанные с использованием вспомогательных подпрограмм и главной подпрограммы; определение статусов параметров, задающих условия передачи этих параметров из главной подпрограммы во вспомогательную и обратно;

· результаты выполнения работы согласно заданию, выданному преподавателем, а именно, текст составленных программ с пояснениями к ним, структуру окна формы задачи, описание действий по выполнению программ, результаты выполнения программы;

· заключение по работе.

 

 

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



 

1. Определение разветвляющегося алгоритма. Пример.

2. Что такое логические операции, их назначение? Приведите примеры.

3. Синтаксис условного оператора «если…то». Формы записи условного оператора.

4. Сколько строк кода может следовать за операторами ThenилиElse?


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 |


При использовании материала, поставите ссылку на Студалл.Орг (0.006 сек.)