MB/8 Club Poland - Klub i forum miłośników samochodów Mercedes-Benz

Wie ktoś przypadkiem jak w pascalu wyliczyc pierwiastek?
Dostałem zadanie stworzyć program który będzie liczył f. kwadratowe.
Czytałem wiele kursów, program zrobiłem lecz bez pierwiastka.
Help.

_________________
W126 300SE czyli Second Edition

Ex W123 200D

funkcja SQRT()

_________________
Supposed Former Automotive Journalist

Ok pokombinuje:
delta:=(b*b)-(4*a*c);
pd:=sqrt(delta);
x1:=(-b-pd)/(2*a);
Czy tak?
pd-pierwiastk z delty

_________________
W126 300SE czyli Second Edition



Ex W123 200D

tak, jak na mój gust zapis jest poprawny. Dobrym nawykiem jest gęste korzystanie z całkiem niezłego systemu pomocy wbudowanego w programy Borlanda, jak jeszcze programowałem z Pascalu to każdy program zaczynałem od skopiowania kluczowego fragmentu z treści helpa.

_________________
Supposed Former Automotive Journalist

Ok dzięki.

_________________
W126 300SE czyli Second Edition



Ex W123 200D

a x2 uciekło...

_________________
Jeep Cherokee XJ 4.0
Honda CR-V
Ex: C140 600 '96, W124 E220 '94, BMW 525tds '93, W123 240D '82, W201 190 2.0 '89, Honda CB500, Chrysler 300M 3,5

Lepiej (bardziej elegancko ):
x1:=(-b-sqrt(delta))/(2*a);
x2:=(-b+sqrt(delta))/(2*a);
if x1=x2 then
begin
{tutaj pierwiastek jest jeden}
end
else
.
.
.

PS.
Ale i tak polecam C++ , duuzo mniej pisania

PS2
Jak pochrzaniłem jakąś syntaktykę to przepraszam, 2 lata nic w Pascalu nie pisałem

_________________
pozdrawiam Andrzej
Mercedes Benz 450 SLC - było
MGB 1965
GMail: anwojcik (at) gmail.com

Słyszałem że C++ jest lepszy ale zapisałem się na studium i mam teraz paskala. Szczerze powiem że pierwszy raz coś programuję i dla mnie to czarna magia ale ...

_________________
W126 300SE czyli Second Edition



Ex W123 200D

Powiem Ci tak:
Mnie na studiach najpierw uczyli Pascala. Musiałem go tak znać, że w nocy, o północy, z pamięci na kartkach, mogłem pisać bezbłędnie algorytmy. Zawsze zastanawiałem się, "po co?". Teraz jak przeszedłem na c++ dopiero widzę, że pascal, jest genialny, do zrozumienia istoty programowania i algorytmów. Następnie warto przejść na c++ (obiektowość), bo tak naprawdę to pascal, ma bardzo slabe możliwości do zastosowań profesjonalnych (bstrachując od Delphi).
Generalnie warto go znać bardzo dobrze, zwłaszcza, że jest bardzo łatwy.

PS.
Jak będziesz miał kiedyś jakieś problemy/pytania związane z programowaniem do wal do mnie jak w dym. Zawsze (w miare oczywiście możliwości) chętnie pomogę.

_________________
pozdrawiam Andrzej
Mercedes Benz 450 SLC - było
MGB 1965
GMail: anwojcik (at) gmail.com

Poszedłem na studium, Jesteś pewien co mi proponujesz .

_________________
W126 300SE czyli Second Edition



Ex W123 200D

no troche brakuje.
rownanie moze nie miec rozwiazania w zbiorze liczb rzeczywistych. powinno byc:
procedure "bez roziwazania"
procedure "dwa rozwiazania"
delta:=....
if delta<0 then "bez rozwiazania" else " dwa rozwiazania"

tak mniej wiecej. mogłbys pokusic sie zeby rozwiazac to w zbiorze urojonych....
kiedys taki program napisalem..

_________________
W168 A160 CDI -Biedronka alias Pryszcz
VW Golf mk4 - golf

Zrobiłem to bez procedur i działa
Jaki jestem genialny... a jaki skromny

_________________
W126 300SE czyli Second Edition



Ex W123 200D