Вторник, 01.07.2025, 23:31 | Приветствую Вас Гость

...

Код

Главная » Статьи » Autoit

Вспоминая матан

Я уже писал такую программку,но сегодня решил вновь.Определяет количество корней в квадратном уравнении.Полезно дойти до решения самому.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Local $hGUI = GUICreate("Вспоминая матан", 500,500,0,0)
GUICtrlCreateLabel("Коэффициент 1", 10, 0)
Local $cof_1 = GUICtrlCreateInput("1", 10, 50, 300, 20)
GUICtrlCreateLabel("Коэффициент 2",10, 100)
Local $cof_2 = GUICtrlCreateInput("1", 10, 150, 300, 20)
GUICtrlCreateLabel("Коэффициент 3",10, 200)
Local $cof_3 = GUICtrlCreateInput("1", 10, 250, 300, 20)
GUICtrlCreateLabel("Дискриминант",10, 300)
Local $input = GUICtrlCreateInput("*", 10, 350, 300, 20)
Local $idButton = GUICtrlCreateButton("Сколько корней?", 0, 450, 500, 25)
GUISetState(@SW_SHOW, $hGUI)

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $idButton
Local $a = Number(GUICtrlRead($cof_1))
Local $b = Number(GUICtrlRead($cof_2))
Local $c = Number(GUICtrlRead($cof_3))
$d = ($b*$b) - 4*$a*$c
GUICtrlSetData($input,$d)
if $d < 0 then msgbox(0,"сообщение","Уравнение не имеет действительных корней")
if $d = 0 then msgbox(0,"сообщение","Уравнение имеет два одинаковых корня")
if $d > 0 then msgbox(0,"сообщение","Уравнение имеет два корня")
EndSwitch
WEnd

 

Категория: Autoit | Добавил: moskov (26.02.2025)
Просмотров: 10 | Рейтинг: 0.0/0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Меню сайта

Категории раздела

PHP [41]
C++ [71]
Autoit [129]
Processing [105]
Basic4GL [7]
Fasm [2]
PABC [7]
Js [241]
Gentee [1]
Python [220]
Java android [3]
Small Basic [9]

Мини-чат

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Друзья сайта

  • ЗОВ КОСМОСА

  • Хулиган Вселенной

  • Тюремная поэзия

  • Религиозная поэзия

  • Сайт клана ЛеГиоН
  • Поиск