[Delphi] Pierwiastek

0

Cze all juz chyba z pol roku tu nie zaglądałem.Mam problem jak mam zrobić albu Edit1 był podniesiony do pierwiastka

0

Edit podniesiony do pierwiastka. Fajnie to brzmi.
Jeżeli już to wyciągnać pierwiastek z liczby zapisanej w Edit (chociaż ktoś kiedyś powiedział, że wszystko jest liczbą. W przypadku komputerów to 100% prawda).
Do rzeczy:
Sqrt(StrToFloat(Edit1.Text));

0

Nie działa nie wiem może coś żle zrobiłem

[code]var
liczba1 : integer;
liczba2 : integer;
liczba3 : integer;
delta : integer;
x1: integer;
wynik:integer;
begin
liczba1:=strtoint(Eliczba1.Text);
liczba2:=strtoint(Eliczba2.Text);
liczba3:=strtoint(Eliczba3.Text);
delta:=strtoint(Edelta.Text);
wynik:=-liczba2+ Sqrt(StrToFloat(Edelta.Text))/2*liczba1;
Ex1.Text:=inttostr(wynik);[/code]

0

Wynik zadeklarowałeś jako Integer. Powinieneś zadeklarować jako Single, albo ująć to co przyporządkowujesz do wynik w funkcję Trunc

0

a jest może jakiś komponęt do działań matematycznych.Pierwiastrowanie procent potengowanie itd.

0

a jest może jakiś komponęt do działań matematycznych.Pierwiastrowanie procent potengowanie itd.

:-D Nie są funkcje. Ale jak tak bardzo chcesz to mogę ci napisać taki komponent. Tylko podaj działania na jakich ma operować i jak powinien wyglądać (może chcesz prosty kalkulator?)

0

a jest może jakiś kompon<font color="red">ę</span>t do działań matematycznych.Pierwias<font color="red">tr</span>owanie procent pot<font color="red">en</span>gowanie itd.

w encyklopedii może w przyszłości pojawi się więcej:

http://4programmers.net/delphi/viewunit.php?id=21

w każdym razie do uses dodaj Math
a potem F1.

0

Jak chcesz możesz napisać chodzi mi o takie coś że Jest kilka mianowicie liczna A, liczba B, liczba C, Delta, X1, X2 i po wpisaniu w liczba a,b,c oblicza delte w X1 doblicza -b+pierwiastek(delta)/2-b coś takiego

0

NIe działa nie wiem czemu

[code]unit Projekt1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
GroupBox4: TGroupBox;
GroupBox5: TGroupBox;
GroupBox6: TGroupBox;
Panel1: TPanel;
Eliczba1: TEdit;
Eliczba2: TEdit;
Eliczba3: TEdit;
Edelta: TEdit;
Ex1: TEdit;
x2: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
liczba1 : integer;
liczba2 : integer;
liczba3 : integer;
delta : integer;
begin
liczba1:=strtoint(Eliczba1.Text);
liczba2:=strtoint(Eliczba2.Text);
liczba3:=strtoint(Eliczba3.Text);
delta:=liczba2liczba2-4liczba1*liczba3;
Edelta.Text:=inttostr(delta);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
liczba1 : integer;
liczba2 : integer;
liczba3 : integer;
delta : integer;
x1: integer;
wynik:Single;
begin
liczba1:=strtoint(Eliczba1.Text);
liczba2:=strtoint(Eliczba2.Text);
liczba3:=strtoint(Eliczba3.Text);
delta:=strtoint(Edelta.Text);
wynik:=-liczba2+ Sqrt(StrToFloat(Edelta.Text))/2*liczba1;
Ex1.Text:=inttostr(wynik);

end;

end.[/code]

0

Jak chcesz możesz napisać chodzi mi o takie coś że Jest kilka mianowicie liczna A, liczba B, liczba C, Delta, X1, X2 i po wpisaniu w liczba a,b,c oblicza delte w X1 doblicza -b+pierwiastek(delta)/2-b coś takiego

:-D Program obliczający pierwiastki równania :) To standardowy program, który dają w każdej szkole i na każdym kursie. Jak sam nie dojdziesz jak to zrobić, to szkoda też mojego czasu żeby pisać. To jest naprawdę proste.

0

Jupi udało się zmieniłem tą linijke.

[code]Ex1.Text:=floattostr(wynik);[/code]

Ale mam problem gdzy liczba w Edelta jest minusowa wtedy jest błąd programu.Jaką tu napisać pętle

0

:-D Program obliczający pierwiastki równania :) To standardowy program, który dają w każdej szkole i na każdym kursie. Jak sam nie dojdziesz jak to zrobić, to szkoda też mojego czasu żeby pisać. To jest naprawdę proste.

Ja jesttem w 2 klasie i nie mam jeszcze delphi :) Drugiek klasie gimnazjum.

0

Cze all juz chyba z pol roku tu nie zaglądałem.Mam problem jak mam zrobić albu Edit1 był podniesiony do pierwiastka


Sory ze pytam ale jak cos podniesc do pierwiastka??

1 użytkowników online, w tym zalogowanych: 0, gości: 1