Console.WriteLine(Введите пожалуйста число N)

Module Module1

Sub Main()

Dim i, n As Integer

Console.WriteLine("Введите пожалуйста число N")

n = Val(Console.ReadLine)

Dim x(n), y(n) As Single

For i = 1 To n

Console.WriteLine("Введите х{0}", i)

x(i) = Val(Console.ReadLine())

Next

For i = 1 To n

If x(i) < 10 Then

y(i) = 1 - Math.Exp(-x(i))

ElseIf x(i) < 15 Then

y(i) = 1 + Math.Exp(x(i))

Else

y(i) = Math.Exp(10 - x(i))

End If

Console.WriteLine("x={0} y={1}", x(i), y(i))

Next

Console.ReadLine()

End Sub

Sub Main()

Dim i, n As Integer

Console.WriteLine("Введите пожалуйста число N")

n = Val(Console.ReadLine)

Dim x(n), y(n) As Single

For i = 1 To n

Console.WriteLine("Введите х{0}", i)

x(i) = Val(Console.ReadLine())

Next

If x(1) > (x(3) * x(3)) Then

For i = 1 To n

x(i) = 1

Next

Else

Console.WriteLine("Все без изменений")

End If

For i = 1 To n

Console.WriteLine("x={0} ", x(i))

Next

Console.ReadLine()

End Sub

Дата добавления: 2015-11-04