Delphi ile Matematik !

[s1lv3r]

Bir projeye başladım. Amacım yapay zekalarda ve bazı sitelerde (google) yapılan karışık matematik işlemini kendi programımda yapmak

şuan için sadece 4 işlem düşünüyorum örneğin ;

4*56-78+21/59*44+69-3

böyle bir işlemi işlem sırasına göre çözecek ve sonucu edite yazacak

fakat böyle birşeyi nasıl yapacağımı henüz bilmiyorum ben şöyle bir işlem yaptım çoğu zaman sonuca ulaşıyor fakat her karakteri memoya atıp memodan işlediği için sadece 0-9 arası yazılan işlemleri sırayla yazabiliyorum.

Kod: Tümünü seç

for i := 0 to memo1.lines.count-1 do
begin
if memo1.lines[i] = '*' then
begin
t := strtoint(inttostr(i-1)) ;
y := strtoint(inttostr(i+1)) ;
l := strtoint(memo1.lines[t]) ;
m := strtoint(memo1.lines[y]) ;

memo1.lines[t] := (inttostr(l*m)) ;
memo1.lines.Delete(y);
memo1.lines.Delete(y-1);
end;
end;

bu şekilde çarpma işlemine öncelik tanıyorum ve diğer işlemleri yaptırıp edite atıyorum. fakat bu şekilde 0-9 arası yapılıyor ve bazen yanlış sonuç çıkarıyor

az önce bahsetiğim projeyi nasl yapabilirim fikirlerinizi söylerseniz memnun olurum

[ikut]

Bir projeye başladım. Amacım yapay zekalarda ve bazı sitelerde (google) yapılan karışık matematik işlemini kendi programımda yapmak

şuan için sadece 4 işlem düşünüyorum örneğin ;

4*56-78+21/59*44+69-3

böyle bir işlemi işlem sırasına göre çözecek ve sonucu edite yazacak

fakat böyle birşeyi nasıl yapacağımı henüz bilmiyorum ben şöyle bir işlem yaptım çoğu zaman sonuca ulaşıyor fakat her karakteri memoya atıp memodan işlediği için sadece 0-9 arası yazılan işlemleri sırayla yazabiliyorum.

Kod: Tümünü seç

for i := 0 to memo1.lines.count-1 do
begin
if memo1.lines[i] = '*' then
begin
t := strtoint(inttostr(i-1)) ;
y := strtoint(inttostr(i+1)) ;
l := strtoint(memo1.lines[t]) ;
m := strtoint(memo1.lines[y]) ;

memo1.lines[t] := (inttostr(l*m)) ;
memo1.lines.Delete(y);
memo1.lines.Delete(y-1);
end;
end;

bu şekilde çarpma işlemine öncelik tanıyorum ve diğer işlemleri yaptırıp edite atıyorum. fakat bu şekilde 0-9 arası yapılıyor ve bazen yanlış sonuç çıkarıyor

az önce bahsetiğim projeyi nasl yapabilirim fikirlerinizi söylerseniz memnun olurum

http://www.torry.net te expression parser var. hsap makinesi için. onu bir dene.

[mkysoft]

calc isimli bir companent var bu işi yapabilen. Bu iş için Vbasic de çok uğraşmıştım. Ama parse etmeye uğraşmadım hiç. Matematiksel ifadeyi vbscript yapıp windows'a çalıştırttırıyordum Bu sayede bir sürü kişi dersi geçmiştide ben düşük not almıştım çünkü programın başka yerinde hata varmış

[drony]

pos ile aritmatik karterleri arat string içinde
her aritmatik karekteri bir diziye kaydet. ve ilk aritmatik ifade ile sonraki aritmatik ifade arasını copy ile al ve işle

[s1lv3r]

Aslında kendim yapmak istiyorum yani comp. kullanmak istemiyorum.

az önce bahsetiğim kodlar ile iyi bir sonuç elde ettim fakat ufak bir problem daha var

4.5+5 i veya

6.5-2 gibi bir işlem ile karşılaşınca program hata veriyor. Bu tür kesirli sayıları toplarken farklı bir yolmu kullanıyoruz ?

[MGd.]

integer tipi yerine float tipini kullanman sorununu çözer.

[Trial_Cooder]

Kod: Tümünü seç

Edit1.Text:= IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text)); // + Toplama, - Çıkarma, * Çarpma İşlemi

[ikut]

Kod: Tümünü seç

Edit1.Text:= IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text)); // + Toplama, - Çıkarma, * Çarpma İşlemi

Dostum ortada 2 -3 edit yok. tek bir ifade var....

((2*3)/4) + 5 gibi...

[fduman]

t-hex'in örneğinden esinlenebilirsin.

viewtopic.php?t=7607

[MoSoft]

http://www.ucretsizyazilim.com/index.php?topic=42.0
Burda bir örnek var inceleye bilirsin kodları ile birlikte.