Cze all juz chyba z pol roku tu nie zaglądałem.Mam problem jak mam zrobić albu Edit1 był podniesiony do pierwiastka
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));
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]
Wynik zadeklarowałeś jako Integer. Powinieneś zadeklarować jako Single, albo ująć to co przyporządkowujesz do wynik w funkcję Trunc
a jest może jakiś komponęt do działań matematycznych.Pierwiastrowanie procent potengowanie itd.
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?)
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.
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
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]
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.
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
:-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.
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??