Главная страница
Навигация по странице:

  • «МОСКОВСКИЙ МЕЖДУНАРОДНЫЙ УНИВЕРСИТЕТ»

  • ВЫПОЛНЕНИЕ ПРАКТИЧЕСКИХ ЗАДАНИЙ ПО ДИСЦИПЛИНЕ ИНФОРМАЦИОННЫЕ ТЕХНОЛОГИИ В

  • Листинг программы

  • Результат работы программы

  • Условие задания: Найти максимум из пяти введенных чисел.Текстовый алгоритм

  • инфотехнологии. ПЗ_Иформационные технологии в управлении_Летифова. Пз задание 1


    Скачать 59.85 Kb.
    НазваниеПз задание 1
    Анкоринфотехнологии
    Дата01.06.2022
    Размер59.85 Kb.
    Формат файлаdocx
    Имя файлаПЗ_Иформационные технологии в управлении_Летифова.docx
    ТипДокументы
    #561442

    Автономная некоммерческая организация высшего образования

    «МОСКОВСКИЙ МЕЖДУНАРОДНЫЙ УНИВЕРСИТЕТ»


    Кафедра экономики и управления
    Форма обучения: очно-заочная



    ВЫПОЛНЕНИЕ

    ПРАКТИЧЕСКИХ ЗАДАНИЙ

    ПО ДИСЦИПЛИНЕ

    ИНФОРМАЦИОННЫЕ ТЕХНОЛОГИИ В управлении



    Группа Му21ГУ171в
    Студент
    Летифова А.В.

    МОСКВА 2022
    Содержание


    ПЗ 9. Задание 1 3

    Задание 2 5

    Задание 3 7




    ПЗ 9. Задание 1



    Условие задания:
    Пешеход шел по пересеченной местности. Его скорость движения по равнине v1 км/ч, в гору – v2 км/ч, под гору – v3 км/ч и в подъем – v4 км/ч. Время движения соответственно t1, t2, t3 и t4 ч. Какой путь прошел пешеход?

    Текстовый алгоритм:
    1. Ввести v1, v2, v3, v4, t1, t2, t3, t4.

    2. 1 := v1*t1.

    3. S2 := v2*t2.

    4. S3 := v3*t3.

    5. S4 := v4*t4.

    6. S := S1 + S2 + S3 + S4.

    7. Вывести значение S.

    8. Конец.

    Листинг программы:
    Private Sub CommandButton1_Click()

    Dim v1, v2, v3, v4, t1, t2, t3, t4, s1, s2, s3, s4, s As Double

    v1 = Worksheets("Лист1").Cells(2, 2)

    v2 = Worksheets("Лист1").Cells(3, 2)

    v3 = Worksheets("Лист1").Cells(4, 2)

    v4 = Worksheets("Лист1").Cells(5, 2)

    t1 = Worksheets("Лист1").Cells(2, 4)

    t2 = Worksheets("Лист1").Cells(3, 4)

    t3 = Worksheets("Лист1").Cells(4, 4)

    t4 = Worksheets("Лист1").Cells(5, 4)

    s1 = v1 * t1

    s2 = v2 * t2

    s3 = v3 * t3

    s4 = v4 * t4

    s = s1 + s2 + s3 + s4

    Worksheets("Лист1").Cells(6, 2) = s

    End Sub

    Результат работы программы:

    Задание 2



    Условие задания:
    Вычислить значение функции:


    Текстовый алгоритм:
    1. Ввести х.

    2. Если х <= -10, то у := -х2.

    3. Иначе, если x<0, то y := x4+1.

    4. Иначе y := x+2.

    5. Вывести у.

    6. Конец.

    Листинг программы:
    Private Sub CommandButton2_Click()

    Dim x, y As Double

    x = Worksheets("Лист1").Cells(8, 2)

    If x <= -10 Then

    y = -x * x

    ElseIf x < 0 Then

    y = x ^ 4 + 1

    Else

    y = x + 2

    End If

    Worksheets("Лист1").Cells(9, 2) = y

    End Sub

    Результат работы программы:







    Задание 3



    Условие задания:
    Найти максимум из пяти введенных чисел.

    Текстовый алгоритм:

    1. Ввести числа a, b, c, d, e.

    2. Сравнить a, b и c. Если a >= b и a >= c, то max1 := a.

    3. Иначе, если b >= c, то max1 := b.

    4. Иначе max1 := c.

    5. Сравнить max1, d и e. Если max1 >= d и max1 >= e, то max := max1.

    6. Иначе, если d >= d, то max := d.

    7. Иначе max := e.

    8. Вывести max.

    9. Конец.

    Листинг программы:
    Private Sub CommandButton3_Click()

    Dim a, b, c, d, e, max1, max As Double

    a = Worksheets("Лист1").Cells(11, 2)

    b = Worksheets("Лист1").Cells(11, 4)

    c = Worksheets("Лист1").Cells(11, 6)

    d = Worksheets("Лист1").Cells(11, 8)

    e = Worksheets("Лист1").Cells(11, 10)

    If a >= b And a >= c Then

    max1 = a

    ElseIf b >= c Then

    max1 = b

    Else

    max1 = c

    End If
    If max1 >= d And max1 >= e Then

    max = max1

    ElseIf d >= e Then

    max = d

    Else

    max = e

    End If
    Worksheets("Лист1").Cells(12, 2) = max

    End Sub


    Результат работы программы:










    написать администратору сайта