Вопрос по информатике:
Просьба в ближайшие сроки написать программы на языке Viual Basic))))
1. Составьте
программу для вычисления площади трапеции.
2.Решить квадратное уравнение аx2+bx+c=0 Если есть возможность то можно сделать в Excel в Visual Basic))))
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 08.01.2016 19:00
- Информатика
- remove_red_eye 11537
- thumb_up 24
Ответы и объяснения 1
Задача 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 = 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
- 09.01.2016 05:11
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.