МОУ СОШ №33 г.Магнитогорска

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » МОУ СОШ №33 г.Магнитогорска » Задачник » Задачи по информатике

Задачи по информатике

Страница: 1

Сообщений 1 страница 4 из 4

1

На плоскости задан отрезок концами своих координат. Определить параллелен ли он осям координат!

Решение на VBA:

Код:
Sub prog()
    Dim x1, x2, y1, y2 As Single

x1 = InputBox("Введите координату А(x)", "Окно ввода координат")
y1 = InputBox("Введите координату А(y)", "Окно ввода координат")
x2 = InputBox("Введите координату B(x)", "Окно ввода координат")
y2 = InputBox("Введите координату B(y)", "Окно ввода координат")

If (x1 = x2) Or (y1 = y2) Then MsgBox "Отрезок параллелен осям координат" Else MsgBox "Отрезок не параллелен осям координат"
End Sub

2

Вычислить (1+sin(0.1))(1+sin(0.2))...(1+sin(10))

Решение на VBA:

Код:
Sub prog()
Const n = 10
Dim i As Integer
Dim S, Sin_Ch As Single

S = 0
For i = 0.1 To n
    Sin_Ch = Sin(i)
    S = S + Sin_Ch
Next i
REM Создайте рабочий лист с именем Задача_2
Sheets("Задача_2").Cells(1, 3) = S 
End Sub

3

Решение на VBA:

Код:
Sub prog()
    
    Const K = 100
    Dim n, i As Integer
    Dim A(K), B(K) As Integer

n = InputBox("Введите количество элементов массива", "Окно ввода")

For i = 1 To n
    A(i) = Int(56 * Rnd() - 37)
    Sheets("Задача_4").Cells(i + 1, 2) = A(i)
Next i

For i = 1 To n
    If A(i) >= 0 Then B(i) = A(i) Else B(i) = Abs(A(i))
Next i

For i = 1 To n
    Sheets("Задача_4").Cells(i + 1, 3) = B(i)
Next i

End Sub

4

Вычислить у, для n>1, y=1!+2!+3!+...+n!

РЕШЕНИЕ НА VBA:

Код:
Sub prog_2()
    Dim N, i, j As Integer
    Dim Fact, y As Integer
    
    N = InputBox("Введите число элементов последовательности (N>1)", "Окно ввода данных")
    
    y = 0
    For i = 1 To N
        Fact = 1
        For j = 1 To i
            Fact = Fact * j
        Next j
        y = y + Fact
    Next i
    With Sheets("Задача_2").Cells(1, 3).Font
    .FontStyle = "Полужирный"
    .ColorIndex = 32
    End With
    Sheets("Задача_2").Cells(1, 3) = y
End Sub
Страница: 1

Вы здесь » МОУ СОШ №33 г.Магнитогорска » Задачник » Задачи по информатике