Влотерее разыгрывалось 14 электрочайников, 9 блэндеров, 4 микроволновки и 2 телевизора. какое количество информации содержится в сообщении о том, какой приз получил участник
osh - кол-во ошибок, oc - осценка. Соль программы в том, что учитель вбивает количество ошибок, и ему выдается оценка, которую надо поставить. Что-бы программа работала, создашеь кнопку на форме, жмешь по ней два раза в VB, появится окно для ввода кода программы, туда пишешь вот эту команду: Ocenka()
Потом после этой команды находишь строчку End Sub, она будет перед End Class, и копируешь вот этот код:
Sub Ocenka() Dim osh, oc As Byte osh = InputBox("Введите количество ошибок") If osh = 0 Then oc = 5 ElseIf osh = 1 Then oc = 4 ElseIf osh = 2 Then oc = 3 ElseIf osh >= 3 Then oc = 2 End If MsgBox("Оценка ученика - " & oc) End Sub
Треугольник существует, если a < (b+c), b < (a+c), c < (a + b) Он равносторонний, если a=b=c Он равнобедренный, если a=b!=c, a=c!=b, b=c!=a (!= всмысле не равно) Иначе произвольный Разве не очевидно?
Програмка на питоне: https://pastebin.com/raw/fKQqvfDb Там я сначала проверяю, что треугольник существует, потом проверяю, что две его любые стороны равны. Если при этом ещё и сумма всех сторон делённая на 3 равна одной из них, то они все равны => он равносторонний. Иначе он равнобедренный. Если условие про равенство двух сторон не выполняется, то он - произвольный. Как упростить - не знаю.
Ну, если я правильно понял суть задания, то:
osh - кол-во ошибок, oc - осценка. Соль программы в том, что учитель вбивает количество ошибок, и ему выдается оценка, которую надо поставить. Что-бы программа работала, создашеь кнопку на форме, жмешь по ней два раза в VB, появится окно для ввода кода программы, туда пишешь вот эту команду: Ocenka()
Потом после этой команды находишь строчку End Sub, она будет перед End Class, и копируешь вот этот код:
Sub Ocenka()
Dim osh, oc As Byte
osh = InputBox("Введите количество ошибок")
If osh = 0 Then
oc = 5
ElseIf osh = 1 Then
oc = 4
ElseIf osh = 2 Then
oc = 3
ElseIf osh >= 3 Then
oc = 2
End If
MsgBox("Оценка ученика - " & oc)
End Sub
Ну впринципе все) Скрин програмки прилагается)