Question

Народ, помогите пожалуйста, нужно написать програмку в эксель VBA 2. Написать программу распознающую по длинам сторон среди всех видов треугольников прямоугольные. 3. Даны два целых числа D (день) и М (месяц), определяющие правильную дату невисокосного года. Вывести значения D и М, для даты следующей за указанной.

Answer 1

Во вложении - рабочая книга MS Excel 2003 с двумя листами. На каждом - по задаче. Коды находятся в соответствующих листах.

Answer 2

Программа для распознавания прямоугольных треугольников по длинам сторон в VBA:

Sub IdentifyRightTriangle()
    Dim sideA As Double
    Dim sideB As Double
    Dim sideC As Double
    
    sideA = CDbl(InputBox("Введите длину стороны A:"))
    sideB = CDbl(InputBox("Введите длину стороны B:"))
    sideC = CDbl(InputBox("Введите длину стороны C:"))
    
    If sideA ^ 2 + sideB ^ 2 = sideC ^ 2 Or sideA ^ 2 + sideC ^ 2 = sideB ^ 2 Or sideB ^ 2 + sideC ^ 2 = sideA ^ 2 Then
        MsgBox "Треугольник является прямоугольным."
    Else
        MsgBox "Треугольник не является прямоугольным."
    End If
End Sub

Эта программа позволяет пользователю ввести длины трех сторон треугольника и определить, является ли треугольник прямоугольным. Программа проверяет три возможных комбинации сторон (AB, AC и BC) и использует теорему Пифагора для проверки, выполняется ли условие прямоугольности. Если хотя бы одна из комбинаций выполняется, программа выводит сообщение, указывающее, что треугольник является прямоугольным. В противном случае программа выводит сообщение, указывающее, что треугольник не является прямоугольным.

Программа для определения следующей даты после указанной:

```vba Sub NextDate() Dim day As Integer Dim month As Integer day = CInt(InputBox("Введите день:")) month = CInt(InputBox("Введите месяц:")) If day < 28 Then day = day + 1 ElseIf day = 28 Then If month = 2 Then day = 1#### Writing a VBA Program to Identify Right-Angled Triangles and Calculate the Next Date

To write a VBA program in Excel to achieve the specified tasks, we can break down the requirements into two parts: identifying right-angled triangles based on their side lengths and calculating the next date given a specific date.

Identifying Right-Angled Triangles

To identify right-angled triangles among all types of triangles based on their side lengths, we can use the Pythagorean theorem, which states that in a right-angled triangle, the square of the length of the hypotenuse (the side opposite the right angle) is equal to the sum of the squares of the lengths of the other two sides.

Here's a VBA code snippet to identify right-angled triangles based on their side lengths:

```vba Function IsRightAngledTriangle(sideA As Double, sideB As Double, sideC As Double) As Boolean IsRightAngledTriangle = False If sideA > 0 And sideB > 0 And sideC > 0 Then If sideA ^ 2 + sideB ^ 2 = sideC ^ 2 Or sideA ^ 2 + sideC ^ 2 = sideB ^ 2 Or sideB ^ 2 + sideC ^ 2 = sideA ^ 2 Then IsRightAngledTriangle = True End If End If End Function ```

This VBA function takes three side lengths as input and returns True if the triangle with those side lengths is a right-angled triangle, and False otherwise.

Calculating the Next Date

To calculate the next date given a specific date (D, M), we can use Excel's built-in date functions along with VBA to achieve this. Here's a VBA code snippet to calculate the next date:

```vba Sub CalculateNextDate(D As Integer, M As Integer) Dim currentDate As Date Dim nextDate As Date ' Assuming the year is not a leap year currentDate = DateSerial(2023, M, D) nextDate = currentDate + 1 MsgBox "The next date is: " & Day(nextDate) & "/" & Month(nextDate) End Sub ```

In this VBA subroutine, we use the DateSerial function to create a date based on the input day (D) and month (M). Then, we add 1 day to the current date to calculate the next date and display it using a message box.

These VBA snippets can be integrated into an Excel workbook to achieve the desired functionality.