Avatar uživatele
Registrovaný

Programování v PASCAL

Může mi prosím nekdo poradit jak naprogramovavat kvadratickou rovnici v jazyku PASCAL, v programu LAZARUS? alepson zacatek vubec netuším jak mám začít. DEKUJI

Odpovědi:

Avatar uživatele
Zlatý

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:
1) deklarace proměnných a, b, c, D. (a, b, c - koeficienty ax^2 + bx + c = 0, D - diskriminant)
2) načtení vstupů a, b, c
3) výpočet diskriminantu
4) tisk výsledků v závislosti na hodnotě diskriminantu.
Žádná velká věda.


Avatar uživatele
Bronzový

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 := ((b*b)-(4*a*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))/(2*a));
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 ;-) .

 

Diskuze k otázce

 

U otázky nebylo diskutováno.

 

Zajímavé otázky v kategorii Počítače a internet

Přihlásit se

Položte otázku, odpovězte, zapojte se, …

začněte zde

Reklama

Kvalitní odpovědi v: Počítače a internet

Zlatý Bedy 1525
Zlatý Michal Kole 1198
Zlatý mosoj 1028
Zlatý Hlada 950
Zlatý ge0rge 894
Zlatý www 829
Zlatý led 819
Zlatý badisko 818
Zlatý gecco 795
Zlatý arygnoc 674

Zobrazit celkový žebříček

Facebook

 

Váš požadavek se vyřizuje, počkejte prosím.