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

  • ЛАБОРАТОРНАЯ РАБОТА 19-20 К ДИСЦИПЛИНЕ « ПРОГРАММИРОВАНИЕ » ВАРИАНТ №1

    		•

    19-20 Лабораторная Аюшева. Лабораторная работа 1920 к дисциплине программирование


    Скачать 454.97 Kb.
    НазваниеЛабораторная работа 1920 к дисциплине программирование
    Дата13.04.2018
    Размер454.97 Kb.
    Формат файлаdocx
    Имя файла19-20 Лабораторная Аюшева.docx
    ТипЛабораторная работа
    #41072

    МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РФ

    ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ

    ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО

    ОБРАЗОВАНИЯ «МОРДОВСКИЙ ГОСУДАРСТВЕННЫЙ

    ПЕДАГОГИЧЕСКИЙ ИНСТИТУТ

    ИМЕНИ М. Е. ЕВСЕВЬЕВА»

    Физико-математический факультет

    Кафедра информатики и вычислительной техники
    ЛАБОРАТОРНАЯ РАБОТА 19-20

    К ДИСЦИПЛИНЕ « ПРОГРАММИРОВАНИЕ »

    ВАРИАНТ №1

    Выполнила: Я. В. Ающева, студентка I курса
    группы МДМ-116 очной формы обучения _____________ _________

    дата, подпись
    Проверил: О. Н. Шалина, канд. пед. наук ____________ _________

    дата, подпись


    Саранск 2017
    Задание 1: Заполнить одномерный массив A(5) натуральными числами данными в программе. Первое число должно совпадать с номером варианта. Вывести данный массив на экран (в консольное окно).
    Module Module1
    Sub Main()

    Dim i, A(5) As Integer

    A(0) = 1

    A(1) = 2

    A(2) = 3

    A(3) = 4

    A(4) = 5

    A(5) = 6

    For i = 0 To 5

    Console.Write(CStr(A(i)) + " ")

    Next

    System.Threading.Thread.Sleep(10000)
    End Sub
    End Module


    Задание 2: Заполнить одномерный массив B(n) данными с клавиатуры и вывести данный массив на экран (в консольное окно). N также вводится с клавиатуры.
    Module Module1
    Sub Main()

    Dim i, n As Integer

    n = Console.ReadLine()

    Dim B(n) As Integer

    For i = 0 To n

    B(i) = Console.ReadLine()

    Next

    For i = 0 To n

    Console.Write(CStr(B(i)) + " ")

    Next

    System.Threading.Thread.Sleep(10000)
    End Sub
    End Module



    Задание 3: Заполнить одномерный массив C(10) случайными числами из диапазона [a;b] и вывести данный массив на экран (в консольное окно). Все данные (a, b) также вводятся с клавиатуры.
    Module Module1
    Sub Main()

    Dim i, a, b, C(10) As Integer

    a = Console.ReadLine()

    b = Console.ReadLine()

    For i = 0 To 10

    C(i) = Int((b - a + 1) * Rnd()) + 1

    Next i

    For i = 0 To 10

    Console.Write(CStr(C(i)) + " ")

    Next

    System.Threading.Thread.Sleep(10000)
    End Sub
    End Module



    Задание 4: В одномерном массиве D(12) случайных чисел из интервала (-10;10) найти максимальный элемент и его индекс.

    Module Module1
    Sub Main()

    Dim i, max, C(12) As Integer

    For i = 0 To 12

    C(i) = Int((10 - (-10) + 1) * Rnd()) + 1

    Next i

    max = C(0)

    For i = 1 To 10

    If max < C(i) Then max = C(i)

    Next

    Console.Write("число=" + CStr(max) + " его индекс" + CStr(i))

    System.Threading.Thread.Sleep(10000)
    End Sub
    End Module

    Задание 5: В одномерном массиве M(12) случайных чисел из интервала (0;100) найти минимальный элемент и его индекс.
    Module Module1
    Sub Main()

    Dim i, min, M(12) As Integer

    For i = 0 To 12

    M(i) = Int((100 - (0) + 1) * Rnd()) + 1

    Next i

    min = M(0)

    For i = 1 To 12

    If min > M(i) Then min = M(i)

    Next

    Console.Write("число=" + CStr(min) + " его индекс" + CStr(i))

    System.Threading.Thread.Sleep(10000)
    End Sub
    End Module



    Задание 6: В одномерном массиве из 15 случайных чисел из интервала (-10;10) найти первый отрицательный элемент и его индекс.
    Module Module1
    Sub Main()

    Dim i, M(14), V, k As Integer

    V = 1

    k = 1

    For i = 0 To 14

    M(i) = Int((10 - (-10) + 1) * Rnd()) - 10

    Console.Write(CStr(M(i)) + " ")

    Next i

    Console.WriteLine()

    For i = 0 To 14

    If M(i) < 0 Then

    V = M(i)

    k = i

    Exit For

    End If

    Next i

    Console.WriteLine("первое отрицательное число=" + CStr(V) + "его индекс" + CStr(k))

    System.Threading.Thread.Sleep(10000)
    End Sub



    Задание 7: В одномерном массиве из 10 случайных чисел из интервала (0;10) найти подсчитать количество элементов, больших трех.
    Module Module1
    Sub Main()

    Dim i, M(10), V As Integer

    V = 0

    For i = 0 To 10

    M(i) = Int((10 - (0) + 1) * Rnd()) - 0

    Console.Write(CStr(M(i)) + " ")

    Next i

    Console.WriteLine()

    For i = 0 To 10

    If M(i) > 3 Then

    V = V + 1

    End If

    Next i

    Console.WriteLine("количество больше 3=" + CStr(V))

    System.Threading.Thread.Sleep(10000)
    End Sub
    End Module


    Задание 7: В одномерном массиве из 10 чисел, введенных с клавиатуры, есть хотя бы один отрицательный элемент. Вычислить произведение элементов массива до первого отрицательного.

    Module Module1
    Sub Main()

    Dim i, m, V As Integer

    m = 9

    V = 1

    Dim P(m) As Integer

    For i = 0 To m

    P(i) = Int((100 - (-100) + 1) * Rnd()) - 100

    Console.Write(CStr(P(i)) + " ")

    Next i

    Console.WriteLine()

    For i = 0 To m

    If P(i) > 0 Then

    V = V * P(i)

    Else

    Exit For

    End If

    Next i

    Console.WriteLine("произведение =" + CStr(V))

    System.Threading.Thread.Sleep(10000)
    End Sub
    End Module



    Задание 8: Составьте программу, реализующую алгоритм решения задачи, выведите результаты с использованием текстовых пояснений. Задачу выбрать в соответствии со своим вариантом.

    Module Module1
    Sub Main()

    Dim i, m, V As Integer

    m = Console.ReadLine()

    Dim P(m) As Integer

    For i = 0 To m

    P(i) = Rnd()

    Console.Write(CStr(P(i)) + " ")

    Next i

    Console.WriteLine()

    For i = 0 To m

    If i Mod 2 = 0 Then

    P(i) = 2 * P(i)

    Else

    P(i) = 0

    End If

    Next i

    For i = 0 To m

    P(i) = Rnd()

    Console.Write(CStr(P(i)) + " ")

    Next i

    System.Threading.Thread.Sleep(10000)
    End Sub
    End Module

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