MB/8 Club Poland - Klub i forum miłośników samochodów Mercedes-Benz
https://forum.w114-115.org.pl/

pascal prog
https://forum.w114-115.org.pl/viewtopic.php?f=1&t=9026		 Strona 1 z 1
Autor:  Rad.ek [ śr lis 17, 2004 12:45 pm ]
Tytuł:  pascal prog
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. :roll:
Autor:  TrickyKid [ śr lis 17, 2004 1:01 pm ]
Tytuł:  Re: pascal prog
Rad.ek pisze:
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. :roll:


funkcja SQRT()
Autor:  Rad.ek [ śr lis 17, 2004 2:23 pm ]
Tytuł: 
Ok pokombinuje:
delta:=(b*b)-(4*a*c);
pd:=sqrt(delta);
x1:=(-b-pd)/(2*a);
Czy tak?
pd-pierwiastk z delty
Autor:  TrickyKid [ śr lis 17, 2004 2:34 pm ]
Tytuł: 
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.
Autor:  Rad.ek [ śr lis 17, 2004 2:38 pm ]
Tytuł: 
Ok dzięki.
Autor:  mroziu [ śr lis 17, 2004 6:13 pm ]
Tytuł: 
a x2 uciekło... ;)
Autor:  and6412 [ sob lis 20, 2004 1:24 am ]
Tytuł: 
Rad.ek pisze:
Ok pokombinuje:
delta:=(b*b)-(4*a*c);
pd:=sqrt(delta);
x1:=(-b-pd)/(2*a);
Czy tak?
pd-pierwiastk z delty


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 :-?
Autor:  Rad.ek [ sob lis 20, 2004 1:14 pm ]
Tytuł: 
and6412 pisze:
Rad.ek pisze:
Ok pokombinuje:
delta:=(b*b)-(4*a*c);
pd:=sqrt(delta);
x1:=(-b-pd)/(2*a);
Czy tak?
pd-pierwiastk z delty


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 :-?

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 ...
[oczko]
Autor:  and6412 [ sob lis 20, 2004 9:31 pm ]
Tytuł: 
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ę.
Autor:  Rad.ek [ ndz lis 21, 2004 1:18 pm ]
Tytuł: 
and6412 pisze:
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ę.

Poszedłem na studium, Jesteś pewien co mi proponujesz [oczko] .
Autor:  gorex [ czw lis 25, 2004 9:49 am ]
Tytuł: 
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..
Autor:  Rad.ek [ czw lis 25, 2004 10:49 am ]
Tytuł: 
Zrobiłem to bez procedur i działa [cool]
Jaki jestem genialny... a jaki skromny [cool]
Strona 1 z 1 Strefa czasowa UTC+01:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/