Lazarus mi nic neříká, ale v Pascalu jsem kdysi něco málo programoval.
Možná bych se rozpomněl. A ty jinak programovat umíš nebo v čem je
problém? S algoritmem?
V kostce:
Žádná velká věda.
0
před 4404 dny
|
0 Nominace Nahlásit |
Narychlo spíchnuté, jde to zkompilovat a něco to počítá ale je to bez záruk 🙂
procedure TForm1.Button1Click(Sender: TObject);
var
a, b, c, D, x1, x2: real; // Integer není proto, že mohou být i čísla,
která jsou desteinná
begin
a := 1;
b := 2;
c := 19;
D := ((bb)-(4a*c));
if D >= 0 then begin // Pokud je D menší než nula, nemá rovnice
řešení v R
if D = 0 then begin // Pokud je D = 0, pak má rovnice pouze jeden kořen
x1 := (((-1)(b))/(2a));
Label1.Caption := FloatToStr(x1);
end
else begin // Kdykoli jindy má dva kořeny
x1 := ((((-1)(b)) + sqr(D))/(2*a));
Label1.Caption := FloatToStr(x1);
x2 := ((((-1)(b)) – sqr(D))/(2*a));
Label2.Caption := FloatToStr(x2);
end;
end;
end;
Očekávám že princip je jasný, volám to při eventu Click na Buttonu1,
pro výstup používám dva Labely, vstupy jsou zadané staticky, šel by
použít i nějaký edit. V tom případě by to bylo
a := StrToFloat(Edit1.Text);
atp…
Kdyby jsi měl nějaký defekt tak napiš ocko, slyšel jsem, že ostatním ráda pomáhá s úkoly 😉 .
0
před 4404 dny
|
0 Nominace Nahlásit |
U otázky nebylo diskutováno.
Nový příspěvekBedy | 1528 | |
Michal Kole | 1199 | |
led | 1156 | |
Hlada | 1131 | |
mosoj | 1124 | |
gecco | 904 | |
www | 828 | |
badisko | 817 | |
cochee | 815 | |
Dochy | 724 |
Software |
Hardware |
Internet |
Programování a webdesign |
Sítě |
Bezpečnost |
Ostatní počítače a internet |