Просьба в ближайшие сроки написать программы на языке Viual Basic))))1. Составьте программу для вычисления площади трапеции. 2.Решить квадратное уравнение аx2+bx+c=0 ...
Просьба в ближайшие сроки написать программы на языке Viual Basic))))
1. Составьте
программу для вычисления площади трапеции.
2.Решить квадратное уравнение аx2+bx+c=0 Если есть возможность то можно сделать в Excel в Visual Basic))))
Гость
Ответ(ы) на вопрос:
ГостьЗадача 1:
Imports System
Module MainModule
Sub Main()
Dim a, b, h, S As Double
Console.Write("a = ")
a = Console.ReadLine()
Console.Write("b = ")
b = Console.ReadLine()
Console.Write("h = ")
h = Console.ReadLine()
S = (a + b) / 2 * h
Console.Write("S = ")
Console.WriteLine(S)
Console.ReadKey
End Sub
End Module
Задача 2:
Imports System
Module MainModule
Sub Main()
Dim x, y As Double
Console.Write("x = ")
x = Console.ReadLine()
Console.Write("y = ")
y = Console.ReadLine()
If (x < 0) And (y < 0) Then
x = -x
y = -y
Else If (x < 0) Or (y < 0) Then
x += 0.5
y += 0.5
Else If (x >= 0.5) And (x <= 2) And (y >= 0.5) And (y <= 2) Then
x /= 10
y /= 10
End If
Console.Write("x = ")
Console.WriteLine(x)
Console.Write("y = ")
Console.WriteLine(y)
Console.ReadKey
End Sub
End Module
Не нашли ответ?
Похожие вопросы