Файл: Образовательная программа среднего профессионального образования Комплект контрольнооценочных средств по учебным.docx
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 06.12.2023
Просмотров: 397
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
For j = 1 To nFor y = 1 To kIf Mid(x, y, 1) = Mid(i, j, k) Then s = s + 1Next yNext jNext iCase 2s = 0For i = 10 To 352For j = 1 To kIf x = Mid(i, j, 2) Then s = s + 1Next jNext iCase 3s = 0For i = 10 To 352For j = 1 To kIf x = Mid(i, j, 3) Then s = s + 1Next jNext iEnd SelectText2.Text = sEnd SubPrivate Sub Command2_Click()Form5.Hide: Form6.ShowEnd SubPrivate Sub Command3_Click()Form5.Hide: Form4.ShowEnd SubЗадача № 61) Постановка задачи: Программа пересчитывает из кубического метра в галлон.2)Интерфейс задачи:3) Листингпрограммы:Dim S As IntegerDim T As IntegerIf Not IsNumeric(Vvod.Text) ThenMsgBox("Неверныйформатзаписи!", MsgBoxStyle.OkOnly, Title:="Ошибка")ElseS = Vvod.TextT = S * 264Vvod.Text = TEnd IfЗадача № 71) Постановка задачи: Программа пересчитывает из литра в галлон.2)Интерфейс задачи:3)Листингпрограммы:Dim L, G As Double, dial As DialogResultIf Not IsNumeric(TextBox1.Text) ThenMessageBox.Show("неправильныйформат")TextBox1.Focus()ElseL = TextBox1.TextG = L / 3.78541178Label4.Text = GEnd Ifdial = MessageBox.Show("хотитепосчитатьещераз?", "Выйти", MessageBoxButtons.YesNo, MessageBoxIcon.Asterisk)If dial = DialogResult.Yes ThenTextBox1.Text = ""Label4.Text = ""ElseApplication.Exit()EndIfЗадача № 81) Постановка задачи: Программа пересчитывает из метров в футы.2)Интерфейс задачи:3)Листингпрограммы:Dim S As DoubleDim T As DoubleIf Not IsNumeric(Vvod.Text) ThenMsgBox("Неверныйформатзаписи!", MsgBoxStyle.OkOnly, Title:="Ошибка")ElseS = Vvod.TextT = S * 0,305Vvod.Text = TEnd IfЗадача № 91) Постановка задачи: Программа пересчитывает из аршина в метр.2)Интерфейс задачи:3)Листингпрограммы:Dim S As DoubleDim T As DoubleIf Not IsNumeric(Vvod.Text) ThenMsgBox("Неверныйформатзаписи!", MsgBoxStyle.OkOnly, Title:="Ошибка")ElseS = Vvod.TextT = S * 1.28Vvod.Text = TEnd IfЗадача № 101) Постановка задачи: Программа пересчитывает рубли в евро.2)Интерфейс задачи:3)Листингпрограммы:
Dim S As DoubleDim T As DoubleIf Not IsNumeric(Vvod.Text) ThenMsgBox("Неверныйформатзаписи!", MsgBoxStyle.OkOnly, Title:="Ошибка")ElseS = Vvod.TextT = S * 50Vvod.Text = TEnd IfЗадача № 111) Постановка задачи: Программа пересчитывает из ярда в метр.2)Интерфейс задачи:3)Листингпрограммы:Dim S As DoubleDim T As DoubleIf Not IsNumeric(Vvod.Text) ThenMsgBox("Неверныйформатзаписи!", MsgBoxStyle.OkOnly, Title:="Ошибка")ElseS = Vvod.TextT = S * 1.905Vvod.Text = TEnd IfЗадача № 121) Постановка задачи: Программа пересчитывает скорость ветра из м/с в км/ч.2)Интерфейс задачи:3)Листингпрограммы:Dim SkorostAs IntegerDim rezult As IntegerIf Not IsNumeric(txtVvod.Text) ThenMessageBox.Show("Ошибка!", "ПРоверкаошибки", MessageBoxButtons.OK, MessageBoxIcon.Stop)ElseSkorost = txtVvod.Textrezult = Skorost * 360lblResult.Text = rezultEndIfЗадача № 131) Постановка задачи: Программа рассчитывает площадь квадрата.2)Интерфейс задачи:3)Листингпрограммы:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim Side As IntegerSide = TextBox1.TextLabel1.Text = Square(Side)'By value, ByVal, by reference ByRefEnd SubFunction Square(ByVal a As Integer) As IntegerSquare = a ^ 2End FunctionЗадача № 141) Постановка задачи: Программа рассчитывает значение по заданной формуле.2)Интерфейс задачи:3)Листингпрограммы:Dim N As Long, x, S1, S As SingleDim k As IntegerDim i As IntegerDim dial As DialogResultPublic Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickIf Not IsNumeric(TextBox1.Text) Or Not IsNumeric(TextBox2.Text) ThenMessageBox.Show("неправильныйформат")TextBox1.Focus()TextBox2.Focus()ElseS1 = 1N = TextBox1.Textx = TextBox2.TextFor i = 0 To NS1 = S1 * MATH.SIN(x)Next iLabel4.Text = SEnd IfEndSubЗадача № 151) Постановка задачи: Программа рассчитывает значение по заданной формуле. 2)Интерфейс задачи:
3)Листингпрограммы:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonRasschitat.ClickDim i As IntegerDim k As IntegerDim N As IntegerDim S As Double = 1Dim S1 As DoubleDim x As IntegerIf Not IsNumeric(TextBoxChisloN.Text) Or Not IsNumeric(TextBoxChisloX.Text) ThenMsgBox("Неверныйформатзаписи!")ElseN = TextBoxChisloN.Textx = TextBoxChisloX.TextFor i = 0 To NFor k = 1 To NS = S * ((i + x) / k)Next kS1 = S1 + SNext iTextBoxOtvet.Text = S1TextBoxOtvet.Text = (Format(S1, "#.##"))EndIfEndSubЗадача № 161) Постановка задачи: Программа рассчитывает значение по заданной формуле. 2)Интерфейс задачи:3)Листингпрограммы:Dim N As Long, x, S1, S As SingleDim k As IntegerDim i As IntegerDim dial As DialogResultPublic Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickIf Not IsNumeric(TextBox1.Text) Or Not IsNumeric(TextBox2.Text) ThenMessageBox.Show("неправильныйформат")TextBox1.Focus()TextBox2.Focus()ElseS1 = 1N = TextBox1.Textx = TextBox2.TextFor i = 0 To NS1 = S1 + (1/x^i)Next iLabel4.Text = S1EndIfEndSubЗадача № 171) Постановка задачи: Программа рассчитывает значение по заданной формуле. 2)Интерфейс задачи:3)Листингпрограммы:Dim N As Long, x, S1, S As SingleDim k As IntegerDim i As IntegerDim dial As DialogResultPublic Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickIf Not IsNumeric(TextBox1.Text) Or Not IsNumeric(TextBox2.Text) ThenMessageBox.Show("неправильныйформат")TextBox1.Focus()TextBox2.Focus()ElseS1 = 1N = TextBox1.Textx = TextBox2.TextFor i = 1 To NS1 = S1 *(x-i)Next iLabel4.Text = S1EndIfEndSubТеоретические задания: по дисциплине «Дискретная математика»
Практические задания: по дисциплине «Дискретная математика»Задачи с решениями.Задача №18Между планетами введено космическое сообщение по следующим маршрутам: З-К, П-В, З-П, П-К, К-В, У-М, М-С, С-Ю, Ю-М, М-У. Можно ли добраться с З до М?Решение:Составим схему-граф маршрутов:Мы видим, что от З до М добраться нельзя.Задача №1925 борцов играют по олимпийской системе (проигравший выбывает). За какое наименьшее количество встреч можно определить победителя?Решение:После каждой встречи 1 боец выбывает, в конце останется только один боец, значит наименьшее количество встреч 24.Задача № 20Аркадий, Борис. Владимир, Григорий и Дмитрий при встрече обменялись рукопожатиями (каждый пожал руку каждому по одному разу). Сколько всего рукопожатий было сделано? Решение:Пусть каждому из пяти молодых людей соответствует определенная точка на плоскости, названная первой буквой его имени, а производимому рукопожатию — отрезок или часть кривой, соединяющая конкретные точки — имена.Если подсчитать число ребер графа, изображенного на рисунке справа, то это число и будет равно количеству совершенных рукопожатий между пятью молодыми людьми. Их 10.Задача № 21Кенигсбергские мосты.К XVIII веку через реку, на которой стоял город Кенигсберг (ныне Калининград), было построено 7 мостов, которые связывали с берегами и друг с другом два острова, расположенные в пределах города ( см.рисунок)Задача заключается в следующем: нужно пройти (если это возможно) по всем семи мостам так, чтобы на каждом из них побывать лишь по одному разу и вернуться к тому месту, откуда начал маршрут.Решение:Решить эту задачу удалось в 1736 г. Леонарду Эйлеру . В ходе решения задачи (после интерпретации условия задачи в виде графа, где вершины - острова и берега, а ребра - мосты, представленного на рисунке.)Прохождение по всем мостам при условии, что нужно на каждом побывать один раз и вернуться в точку начала путешествия, на языке теории графов выглядит как задача изображения «одним росчерком» графа, представленного на рисунке. Но, поскольку граф на этом рисунке имеет четыре нечетные вершины, то, согласно закономерности 7 такой граф начертить «одним росчерком» невозможно. Значит, и пройти по кенигсбергским мостам, соблюдая заданные условия,
нельзя.Задача № 22В трех различных домах живут три поссорившиеся между собой соседа. Недалеко от их домов имеются три колодца. Можно ли от каждого дома проложить к каждому из колодцев тропинку так, чтобы никакие две из них не пересекались?Решение:Построим граф, вершины которогоА, Б, В, 1, 2, 3соответствуют домам и колодцам условия задачи, и попробуем доказать, что девятую тропинку — ребро графа, не пересекающее остальные ребра, провести нельзя.Проведенные в графе на рисунке ребра А1, А2, A3 и В1,В2, ВЗ (соответствующие тропинкам от домов А и В ко всем колодцам). Построенный граф разбил плоскость на три области: X, У, Z. Вершина Б, в зависимости от ее расположения на плоскости, попадает в одну из этих трех областей. Если вы рассмотрите каждый из трех случаев «попадания» вершины Б в одну из областей X, Y или Z, то убедитесь, что всякий раз одна из вершин графа 1, 2 или 3 (один из колодцев) будет «недоступной» для вершины Б (т. е. нельзя будет провести одно из ребер Б1, Б2 или Б3. которое не пересекло бы уже имеющихся в графе ребер).Таким образом, ответ на вопрос задачи будет таким: «Нельзя!»Задача № 23
Dim S As DoubleDim T As DoubleIf Not IsNumeric(Vvod.Text) ThenMsgBox("Неверныйформатзаписи!", MsgBoxStyle.OkOnly, Title:="Ошибка")ElseS = Vvod.TextT = S * 50Vvod.Text = TEnd IfЗадача № 111) Постановка задачи: Программа пересчитывает из ярда в метр.2)Интерфейс задачи:3)Листингпрограммы:Dim S As DoubleDim T As DoubleIf Not IsNumeric(Vvod.Text) ThenMsgBox("Неверныйформатзаписи!", MsgBoxStyle.OkOnly, Title:="Ошибка")ElseS = Vvod.TextT = S * 1.905Vvod.Text = TEnd IfЗадача № 121) Постановка задачи: Программа пересчитывает скорость ветра из м/с в км/ч.2)Интерфейс задачи:3)Листингпрограммы:Dim SkorostAs IntegerDim rezult As IntegerIf Not IsNumeric(txtVvod.Text) ThenMessageBox.Show("Ошибка!", "ПРоверкаошибки", MessageBoxButtons.OK, MessageBoxIcon.Stop)ElseSkorost = txtVvod.Textrezult = Skorost * 360lblResult.Text = rezultEndIfЗадача № 131) Постановка задачи: Программа рассчитывает площадь квадрата.2)Интерфейс задачи:3)Листингпрограммы:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim Side As IntegerSide = TextBox1.TextLabel1.Text = Square(Side)'By value, ByVal, by reference ByRefEnd SubFunction Square(ByVal a As Integer) As IntegerSquare = a ^ 2End FunctionЗадача № 141) Постановка задачи: Программа рассчитывает значение по заданной формуле.2)Интерфейс задачи:3)Листингпрограммы:Dim N As Long, x, S1, S As SingleDim k As IntegerDim i As IntegerDim dial As DialogResultPublic Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickIf Not IsNumeric(TextBox1.Text) Or Not IsNumeric(TextBox2.Text) ThenMessageBox.Show("неправильныйформат")TextBox1.Focus()TextBox2.Focus()ElseS1 = 1N = TextBox1.Textx = TextBox2.TextFor i = 0 To NS1 = S1 * MATH.SIN(x)Next iLabel4.Text = SEnd IfEndSubЗадача № 151) Постановка задачи: Программа рассчитывает значение по заданной формуле. 2)Интерфейс задачи:
3)Листингпрограммы:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonRasschitat.ClickDim i As IntegerDim k As IntegerDim N As IntegerDim S As Double = 1Dim S1 As DoubleDim x As IntegerIf Not IsNumeric(TextBoxChisloN.Text) Or Not IsNumeric(TextBoxChisloX.Text) ThenMsgBox("Неверныйформатзаписи!")ElseN = TextBoxChisloN.Textx = TextBoxChisloX.TextFor i = 0 To NFor k = 1 To NS = S * ((i + x) / k)Next kS1 = S1 + SNext iTextBoxOtvet.Text = S1TextBoxOtvet.Text = (Format(S1, "#.##"))EndIfEndSubЗадача № 161) Постановка задачи: Программа рассчитывает значение по заданной формуле. 2)Интерфейс задачи:3)Листингпрограммы:Dim N As Long, x, S1, S As SingleDim k As IntegerDim i As IntegerDim dial As DialogResultPublic Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickIf Not IsNumeric(TextBox1.Text) Or Not IsNumeric(TextBox2.Text) ThenMessageBox.Show("неправильныйформат")TextBox1.Focus()TextBox2.Focus()ElseS1 = 1N = TextBox1.Textx = TextBox2.TextFor i = 0 To NS1 = S1 + (1/x^i)Next iLabel4.Text = S1EndIfEndSubЗадача № 171) Постановка задачи: Программа рассчитывает значение по заданной формуле. 2)Интерфейс задачи:3)Листингпрограммы:Dim N As Long, x, S1, S As SingleDim k As IntegerDim i As IntegerDim dial As DialogResultPublic Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickIf Not IsNumeric(TextBox1.Text) Or Not IsNumeric(TextBox2.Text) ThenMessageBox.Show("неправильныйформат")TextBox1.Focus()TextBox2.Focus()ElseS1 = 1N = TextBox1.Textx = TextBox2.TextFor i = 1 To NS1 = S1 *(x-i)Next iLabel4.Text = S1EndIfEndSubТеоретические задания: по дисциплине «Дискретная математика»
|
конъюнктивная нормальные формы |
|
|
|
|
СКНФ) |
минимальной КНФ, полинома Жегалкина |
|
полноту. |
|
|
|
|
|
|
|
|
транзитивность; выделение классов эквивалентности |
|
|
|
|
|
|
|
| |
|
| |
связности в графе |
|
|
| |
|
| |
|
|
Практические задания: по дисциплине «Дискретная математика»Задачи с решениями.Задача №18Между планетами введено космическое сообщение по следующим маршрутам: З-К, П-В, З-П, П-К, К-В, У-М, М-С, С-Ю, Ю-М, М-У. Можно ли добраться с З до М?Решение:Составим схему-граф маршрутов:Мы видим, что от З до М добраться нельзя.Задача №1925 борцов играют по олимпийской системе (проигравший выбывает). За какое наименьшее количество встреч можно определить победителя?Решение:После каждой встречи 1 боец выбывает, в конце останется только один боец, значит наименьшее количество встреч 24.Задача № 20Аркадий, Борис. Владимир, Григорий и Дмитрий при встрече обменялись рукопожатиями (каждый пожал руку каждому по одному разу). Сколько всего рукопожатий было сделано? Решение:Пусть каждому из пяти молодых людей соответствует определенная точка на плоскости, названная первой буквой его имени, а производимому рукопожатию — отрезок или часть кривой, соединяющая конкретные точки — имена.Если подсчитать число ребер графа, изображенного на рисунке справа, то это число и будет равно количеству совершенных рукопожатий между пятью молодыми людьми. Их 10.Задача № 21Кенигсбергские мосты.К XVIII веку через реку, на которой стоял город Кенигсберг (ныне Калининград), было построено 7 мостов, которые связывали с берегами и друг с другом два острова, расположенные в пределах города ( см.рисунок)Задача заключается в следующем: нужно пройти (если это возможно) по всем семи мостам так, чтобы на каждом из них побывать лишь по одному разу и вернуться к тому месту, откуда начал маршрут.Решение:Решить эту задачу удалось в 1736 г. Леонарду Эйлеру . В ходе решения задачи (после интерпретации условия задачи в виде графа, где вершины - острова и берега, а ребра - мосты, представленного на рисунке.)Прохождение по всем мостам при условии, что нужно на каждом побывать один раз и вернуться в точку начала путешествия, на языке теории графов выглядит как задача изображения «одним росчерком» графа, представленного на рисунке. Но, поскольку граф на этом рисунке имеет четыре нечетные вершины, то, согласно закономерности 7 такой граф начертить «одним росчерком» невозможно. Значит, и пройти по кенигсбергским мостам, соблюдая заданные условия,
нельзя.Задача № 22В трех различных домах живут три поссорившиеся между собой соседа. Недалеко от их домов имеются три колодца. Можно ли от каждого дома проложить к каждому из колодцев тропинку так, чтобы никакие две из них не пересекались?Решение:Построим граф, вершины которогоА, Б, В, 1, 2, 3соответствуют домам и колодцам условия задачи, и попробуем доказать, что девятую тропинку — ребро графа, не пересекающее остальные ребра, провести нельзя.Проведенные в графе на рисунке ребра А1, А2, A3 и В1,В2, ВЗ (соответствующие тропинкам от домов А и В ко всем колодцам). Построенный граф разбил плоскость на три области: X, У, Z. Вершина Б, в зависимости от ее расположения на плоскости, попадает в одну из этих трех областей. Если вы рассмотрите каждый из трех случаев «попадания» вершины Б в одну из областей X, Y или Z, то убедитесь, что всякий раз одна из вершин графа 1, 2 или 3 (один из колодцев) будет «недоступной» для вершины Б (т. е. нельзя будет провести одно из ребер Б1, Б2 или Б3. которое не пересекло бы уже имеющихся в графе ребер).Таким образом, ответ на вопрос задачи будет таким: «Нельзя!»Задача № 23