• 19-05-2010, 22:49:14
    #1
    Üyeliği durduruldu
    Arkadaşlar ödevi yapamıyorum yav çıldırıcam. Console Applicationda yapcam.

    Soru: katsayıları girilen 3. derece denklmin köklerini kökler toplamını kökler carpımını ve köklerin ikişer ikişer carpımlarının toplamını veren programın algoritmasını yazdıran program
  • 20-05-2010, 03:44:35
    #2
    Biraz daha düzgün yazsan ve bir örnek versen yardımcı olmaya çalışırdım.
  • 20-05-2010, 03:50:30
    #3
    s3s
    Üyeliği durduruldu
    kardeş aşağıdaki örnek kod 2. derece denklem köklerini bulan uygulamadır. 3. dereceye sen geliştirebilirsin. kökleri bulacağı için diğer işlemleri yapmak gayet basittir.

    #include <vcl.h>
    #pragma hdrstop
    #include <math.h>
    #include "kok_sannal_cift_bulma.h"
    //---------------------------------------------------------------------------
    #pragma package(smart_init)
    #pragma resource "*.dfm"
    TForm1 *Form1;
    //---------------------------------------------------------------------------
    __fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
    {
    }
    //---------------------------------------------------------------------------

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

    double x1,x2,d,sonuc,k,l,m,n;
    int a,b,c ;



    a = Edit1->Text.ToDouble();
    b = Edit2->Text.ToDouble();
    c = Edit3->Text.ToDouble();
    d=b*b-4*a*c;
    if(d>0)
    {
    x1=(-b+sqrt(d))/(2*a);
    x2=(-b-sqrt(d))/(2*a);
    Edit4->Text= x1;
    Edit5->Text= x2;
    Edit6->Text="kokler farklidir";
    }

    else if(d==0)
    {
    x1=(-b+sqrt(d))/(2*a);
    x2=x1;
    Edit4->Text= x1;
    Edit5->Text= x2;
    Edit6->Text="kokler cifttir";
    }
    else
    {
    k=(-b/(2*a));
    l=-sqrt(-d)/(2*a);
    m=(-b/(2*a));
    n=sqrt(-d)/(2*a);
    AnsiString ji = "(+j*)";
    Edit1->Text=k;
    Edit2->Text=ji;
    Edit3->Text=l;
    Edit4->Text=Edit1->Text + Edit2->Text+ Edit3->Text;
    Edit1->Text=m;
    Edit2->Text=ji;
    Edit3->Text=n;
    Edit5->Text=Edit1->Text + Edit2->Text+ Edit3->Text;


    Edit6->Text="kokler sanaldir";
    Edit1->Text=a;
    Edit2->Text=b;
    Edit3->Text=c;
    }

    }
  • 20-05-2010, 10:48:16
    #4
    Üyeliği durduruldu
    s3s adlı üyeden alıntı: mesajı görüntüle
    kardeş aşağıdaki örnek kod 2. derece denklem köklerini bulan uygulamadır. 3. dereceye sen geliştirebilirsin. kökleri bulacağı için diğer işlemleri yapmak gayet basittir.

    #include <vcl.h>
    #pragma hdrstop
    #include <math.h>
    #include "kok_sannal_cift_bulma.h"
    //---------------------------------------------------------------------------
    #pragma package(smart_init)
    #pragma resource "*.dfm"
    TForm1 *Form1;
    //---------------------------------------------------------------------------
    __fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
    {
    }
    //---------------------------------------------------------------------------

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

    double x1,x2,d,sonuc,k,l,m,n;
    int a,b,c ;



    a = Edit1->Text.ToDouble();
    b = Edit2->Text.ToDouble();
    c = Edit3->Text.ToDouble();
    d=b*b-4*a*c;
    if(d>0)
    {
    x1=(-b+sqrt(d))/(2*a);
    x2=(-b-sqrt(d))/(2*a);
    Edit4->Text= x1;
    Edit5->Text= x2;
    Edit6->Text="kokler farklidir";
    }

    else if(d==0)
    {
    x1=(-b+sqrt(d))/(2*a);
    x2=x1;
    Edit4->Text= x1;
    Edit5->Text= x2;
    Edit6->Text="kokler cifttir";
    }
    else
    {
    k=(-b/(2*a));
    l=-sqrt(-d)/(2*a);
    m=(-b/(2*a));
    n=sqrt(-d)/(2*a);
    AnsiString ji = "(+j*)";
    Edit1->Text=k;
    Edit2->Text=ji;
    Edit3->Text=l;
    Edit4->Text=Edit1->Text + Edit2->Text+ Edit3->Text;
    Edit1->Text=m;
    Edit2->Text=ji;
    Edit3->Text=n;
    Edit5->Text=Edit1->Text + Edit2->Text+ Edit3->Text;


    Edit6->Text="kokler sanaldir";
    Edit1->Text=a;
    Edit2->Text=b;
    Edit3->Text=c;
    }

    }
    Bunu console app.. göre nasıl yazıcam