Irina_Nevretdinova1630
?>

Влотерее разыгрывалось 14 электрочайников, 9 блэндеров, 4 микроволновки и 2 телевизора. какое количество информации содержится в сообщении о том, какой приз получил участник

Информатика

Ответы

Nikolaevich1534

Ну, если я правильно понял суть задания, то:

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

 

Ну впринципе все) Скрин програмки прилагается)


Построение алгоритма и его реализация в среде visual basic для следующей : ученик выполнил работу. в
priexali
Треугольник существует, если 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 равна одной из них, то они все равны => он равносторонний. Иначе он равнобедренный. Если условие про равенство двух сторон не выполняется, то он - произвольный. Как упростить - не знаю.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Влотерее разыгрывалось 14 электрочайников, 9 блэндеров, 4 микроволновки и 2 телевизора. какое количество информации содержится в сообщении о том, какой приз получил участник
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

васильевич
Galkin683
kukoleva
ПетросовичЗаславский
Tatyana-Sergeevna108
ИгоревичАндрей
zakupki
magazin3000
Look7moscow
secretar62
Veselova
krisrespect
mnkrasnova
Yurevna419
ИвановнаВладимир1832