Регистрация Спросить otvet5GPT
анксунамун1
10.04.2021 05:31
Информатика
Есть ответ 👍

Укажите соответствия. Компьютеры Характеристики 1 поколение Впервые использовалась концепция искусственного интеллекта. Работа над созданием не прекращается. 2 поколение Поколение создано на основе интегральных схем. Это привело к массовому использованию компьютеров в офисах, образовательных и научных заведениях. 3 поколение В их создании используются микропроцессоры или чипы. Что повысило их производительность и надежность. 4 поколение В качестве основного элемента применялись транзисторы, что привело к уменьшению их размеров. 5 поколение Размер компьютеров был большим, высота их достигала 5 метров. Их обслуживание было дорогостоящим.

112
354
Посмотреть ответы 1

Ответы на вопрос:

Weronika2017
Weronika2017
4,4(51 оценок)
Для создания графического интерфейса на форме размести пять кнопок с названиями сложение, вычитание, деление, умножение, выход; три текстовых поля (два для ввода и одно для вывода) . перед тем как начать основную работу можно убедиться, что калькулятор не будет складывать числа более 16 знаков. для этого необходимо в процедуре text1_change и text2_change ввести такой код: private sub text1_change () ‘происходит при изменении текстового поля if len (text1.text)> 16 then msgbox “много знаков” ‘если text1> 16, то выводим сообщение end sub private sub text2_change () if len (text2.text)> 16 then msgbox “много знаков” end sub теперь напишем код для сложения, вычитания и умножения: private sub command1_click () ‘сложение text3.text=val (text1.text) + val (text2.text) end sub private sub command2_click () ‘вычитание text3.text=val (text1.text) – val (text2.text) end sub private sub command3_click () ‘умножение text3.text=val (text1.text) * val (text2.text) end sub с кодом для деления придётся немного пораздумать. когда во втором текстовом поле будет ноль или там не будет текста, то будут выскакивать ошибка. для её предотвращения придётся создать условие: private sub command4_click () ‘деление if text2.text =”” then msgbox “деление на ноль” if text2.text = 0 then msgbox “деление на ноль” if text2.text< > ”” then text3.text=val(text1.text)/val(text2.text) if text2.text< > 0 then text3.text=val(text1.text)/val(text2.text) end sub осталось написать процедуру для кнопки «выход» : private sub command5_click () ‘выход end end sub для создания других операций с числами можно воспользоваться обозначениями функций: sqr (число) – служит для извлечения квадратного корня например: sqr (16) = 4 основание ^ степень – возведение числа в степень например: 6 ^ 2 = 36 sin (число) – синус числа например: sin (60) = -0, 304810621102217 cos (число) – косинус числа например: cos (60) = -0, 952412980415156 tan (число) –тангенс числа например: tan (60) = 0,320040389379563

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS