Программирование разветвляющихся вычислительных процессов


IF a*b=0 Then MsgBox("ab=0") Else y=1/(a*b): MsgBox ("y="& y)



жүктеу 326 Kb.
бет2/2
Дата25.10.2022
өлшемі326 Kb.
#39829
түріЛабораторная работа
1   2
Л Р 3

IF a*b=0 Then MsgBox("ab=0") Else y=1/(a*b): MsgBox ("y="& y)


End Sub
2. Индивидуальные задания
Задание 1. Использование линейной формы записи операторов
условной передачи управления
Составить программу разветвляющихся вычислительных процессов (ввод и вывод выполнить с использованием функций соответственно InputBox и MsgBox) линейной формы записи оператора условного перехода.
1) Выполнить расчет значения переменных C и В по формулам при a = 9,5; x = 7. Вывести полученные значения С и В в диалоговое окно оператора MsgBox в порядке их возрастания.
2) Даны два числа – К и L. Вывести на печать то из чисел, для которого получается больший целый остаток от его деления на четыре.
3) Даны два числа – А и D. Определить и вывести на печать целый остаток от деления большего из чисел на меньшее.
4) Даны два вещественных числа – В и С. Вывести на печать заданные числа в порядке убывания их целых частей.
5) Даны два числа – R и N. Вывести эти числа на печать в порядке убывания их модулей.
6) Даны два числа – K и N. Если разность этих чисел является четным числом, то вывести на экран их сумму, в противном случае – их произведение.
7) Даны два числа – V и W. Вывести на печать сумму модулей этих чисел, если произведение чисел кратно трем, в противном случае – разность этих
чисел.
8) Даны два числа – С и W . Определить, является ли первое число кратным второму.
9) Даны два вещественных числа – Р и С. Вывести на печать сумму этих чисел, если целая часть их разности не превышает 10, в противном случае – произведение этих чисел.
10) Даны два числа – С и К. Вывести на печать разность этих чисел, если целая часть их отношения равна нулю, в противном случае – сумму этих чисел.
11) Даны два вещественных числа – J и M. Определить, является ли целая часть суммы заданных чисел кратна пяти.
12) Из двух заданных вещественных чисел (A и N) вывести на печать то, у которого дробная часть меньше.
13) Даны два вещественных числа – Р и Q. Вывести эти числа на печать в порядке убывания их дробных частей.
14) Даны два числа – К и В. Вывести на печать сумму этих чисел, если К больше В, в противном случае – их разность.
15) Даны два числа – Н и У. Если сумма заданных чисел кратна трем, то вывести на печать их произведение, в противном случае – среднеарифмети-ческое этих чисел.
16) Написать программу, которая вычисляет частное двух чисел. Прог-рамма должна проверять правильность введенных пользователем данных и, если они неверные (делитель равен нулю), выдавать сообщение об ошибке.
17) Дано целое число A. Если заданное число кратно четырем, то увеличить его в три раза, в противном случае – возвести в квадрат.
18) Даны два вещественных числа – X и Y, не равные друг другу. Наименьшее из этих чисел заменить половиной их суммы. Вывести результат замены и второе число на лист Excel.
19) Дано вещественное число А. Удвоить это число, если оно отрицательное, или увеличить на 10, если – положительное.
20) Даны два натуральных числа – К и Р. Проверить, делится ли одно из них на другое без остатка или нет. Результат проверки вывести на экран.
21) Даны два числа – А и С. Определить, является ли второе число кратным первому.
22) Даны два вещественных числа – J и M. Определить, является ли целая часть разности заданных чисел кратна трем.
23) Даны два числа – Р и Т. Если сумма этих чисел является нечетным числом, то вывести на экран их разность, в противном случае – их произведение.
24) Дано целое число М. Если заданное число кратно семи, то увеличить его в пять раз, в противном случае – возвести в куб.
25) Дано вещественное число В. Утроить это число, если оно положительное, или увеличить на 5, если – отрицательное.


Задание 2. Варианты заданий с использованием блочной формы
оператора условного перехода
Выполнить расчеты функции z(x) по данным, приведенным в Таблице 1. Применить для ввода х функцию InputBox, вывода z – MsgBox, ввода
a и bCells.
Таблица 1
Функции для вычисления с использованием условного оператора



Номер
варианта

Функция

Исходные данные

Результат
при заданном
значении x

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






















жүктеу 326 Kb.

Достарыңызбен бөлісу:
1   2




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау