В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
mirza22
mirza22
09.03.2021 14:23 •  Информатика

с скриптов javascript создайте формулу и рассчитайте периметр квадрата если отсуттсвует компьютер описать пошагово программный код данного ппроэкта

Показать ответ
Ответ:
Vladislava111111111
Vladislava111111111
21.02.2022 03:33
Грубовато, но менее ресурсоёмко

Module Module1
    Sub Main()
        Dim a As String = Console.ReadLine()
        If (a = "Зима") Then
            Console.WriteLine("Декабрь (31), Январь (31), Февраль (28-29)")
            Console.WriteLine("90-91 д.")
        ElseIf (a = "Весна") Then
            Console.WriteLine("Март (31), Апрель (30), Май (31)")
            Console.WriteLine("92 д.")
        ElseIf (a = "Лето") Then
            Console.WriteLine("Июнь (30), Июль (31), Август (31)")
            Console.WriteLine("92 д.")
        ElseIf (a = "Осень") Then
            Console.WriteLine("Сентябрь (30), Октябрь (31), Ноябрь (30)")
            Console.WriteLine("91 д.")
        End If
        Console.ReadKey()
    End Sub
End Module
0,0(0 оценок)
Ответ:
leomax2
leomax2
21.07.2020 12:19
Sub ()Dim A(1 To 4, 1 To 4) As IntegerDim B(1 To 3, 1 To 3) As IntegerRandomizeFor i = 1 To 4    For j = 1 To 4        A(i, j) = Int((10 * Rnd) + 1)        Cells(i, j) = A(i, j)    Next jNext iFor i = 1 To 3    For j = 1 To 3        B(i, j) = Int((10 * Rnd) + 1)        Cells(i + 5, j) = B(i, j)    Next jNext iCall ObrabotkaA(A)Call ObrabotkaB(B)Call Result(A, B)End SubSub ObrabotkaA(A)CollumnMax = 0CollumnMin = 0SummMax = 0SummMin = 999For j = 1 To 4Summ = 0    For i = 1 To 4        Summ = Summ + A(i, j)    Next i    If Summ > SummMax Then        SummMax = Summ        CollumnMax = j    End If    If Summ < SummMin Then        SummMin = Summ        CollumnMin = j    End IfNext jFor i = 1 To 4    Temp = A(i, CollumnMax)    A(i, CollumnMax) = A(i, CollumnMin)    A(i, CollumnMin) = TempNext iEnd SubSub ObrabotkaB(B)CollumnMax = 0CollumnMin = 0SummMax = 0SummMin = 999For j = 1 To 3Summ = 0    For i = 1 To 3        Summ = Summ + B(i, j)    Next i    If Summ > SummMax Then        SummMax = Summ        CollumnMax = j    End If    If Summ < SummMin Then        SummMin = Summ        CollumnMin = j    End IfNext jFor i = 1 To 3    Temp = B(i, CollumnMax)    B(i, CollumnMax) = B(i, CollumnMin)    B(i, CollumnMin) = TempNext iEnd SubSub Result(A, B)For i = 1 To 4    For j = 1 To 4        Cells(i, j + 5) = A(i, j)    Next jNext iFor i = 1 To 3    For j = 1 To 3        Cells(i + 5, j + 5) = B(i, j)    Next jNext iEnd Sub
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота