Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > Общие вопросы C/C++
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.04.2012, 21:02   #1
j-pavlov
Пользователь
 
Регистрация: 21.01.2011
Сообщений: 34
Смех программа решения алгебраических уравнений в билдере

Задача такая
a*x^2+b*x+c>0

проверте решение, пожалуйста, чувствую что что-то не верно.

http://files.mail.ru/4JQK19
j-pavlov вне форума Ответить с цитированием
Старый 18.04.2012, 21:19   #2
j-pavlov
Пользователь
 
Регистрация: 21.01.2011
Сообщений: 34
По умолчанию

Код:
#include <vcl.h>
#include <math.h>
#pragma hdrstop

#include "qwerty.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

int a,b,c;

   float D, x1,x2;

void __fastcall TForm1::Button1Click(TObject *Sender)
{

String R;
  try
  {
   a=StrToInt(Edit1->Text);
   }
   catch(...)
   {
a=0;
Edit1->SetFocus();
Form2->Show();


   }


   b=StrToInt(Edit2->Text);
   c=StrToInt(Edit3->Text);

   D=b*b-4*a*c;

   if (D<0)
   Label4->Caption="–¯ÂÌËÈ ÌÂÚ!!!";
   else
   {
    x1=(-b-sqrt(D))/2*a;
    x2=(-b+sqrt(D))/2*a;

    R="–ÂÁÛÎ¸Ú‡Ú X1="+FloatToStr(x1)+"   x2="+FloatToStr(x2);


    Form1->Height=380;
    Label4->Top=272;
    Label4->Caption=R;
j-pavlov вне форума Ответить с цитированием
Старый 19.04.2012, 08:09   #3
j-pavlov
Пользователь
 
Регистрация: 21.01.2011
Сообщений: 34
По умолчанию

ребят, помогите с задачкой плиз (
j-pavlov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Итерация для решения системы линейно алгебраических уравнений Julja@ Помощь студентам 0 24.12.2011 08:32
Исправить ошибки в Паскале, по теме: " Методы решения алгебраических и трансцендентных уравнений" Anton94.by Помощь студентам 0 04.12.2011 15:31
Исправить ошибки в Паскале, по теме: " Методы решения алгебраических и трансцендентных уравнений" Anton94.by Помощь студентам 1 02.12.2011 17:26
Методы решения алгебраических и трансцендентных уравнений Anton94.by Помощь студентам 3 19.10.2011 20:47
Программа численного решения алгебраических уравнений, заданных в виде полинома. SmallUser Помощь студентам 2 15.11.2010 20:51