GRY-Online.pl --> Archiwum Forum

moduł na wyliczanie pierwiastkow rownania kwadratowego w Pascalu

16.11.2006
16:54
smile
[1]

.coma. [ Pretorianin ]

moduł na wyliczanie pierwiastkow rownania kwadratowego w Pascalu

Czy ktos mógłby przerobic ten schemat modułu, tak aby liczyl on pierwiastki rownania kwadratowego? Bo ja niestety nie umie :/

unit uPomoce;
interface

procedure start(tytul:string);
procedure czekaj;

procedure blad(komunikat:string);

implementation
uses Crt;

procedure start(tytul:string);
begin
ClrScr;
Writeln('Autor: Jan Anonim');
Writeln(tytul);
Writeln
end;

procedure czekaj;
begin
Writeln;
Write('Nacisnij klawisz Enter.');
Readln
end; ‹czekaj›

procedure blad(komunikat:string);
begin
Writeln; Writeln(komunikat);
czekaj;
Halt
end;

end.

16.11.2006
18:33
[2]

.coma. [ Pretorianin ]

nikt nie wie?

16.11.2006
20:58
smile
[3]

.coma. [ Pretorianin ]

up

18.11.2006
10:43
smile
[4]

Subby [ Konsul ]

Tego nie bardzo da się przerobić ;-) Ale jak chcesz, napiszę nowy

program pierwiastki;
uses CRT;
var
a,b,c,delta,wynik1,wynik2:real;
begin
ClrScr;
writeln('Podaj po kolei wspolczynniki rownania kwadratowego');
readln(a);
readln(b);
readln(c);
delta:=(b*b)-4*a*c;
if delta<0
then
writeln('Rownanie nie ma pierwiastka')
else
begin
wynik1:=(sqrt(delta)-b)/2*a;
wynik2:=(-sqrt(delta)-b)/2*a;
if wynik1=wynik2 then
writeln('Pierwiastek jest podwójny. Wynosi on:',wynik1)
else
begin
writeln('Pierwszy pierwiastek to:',wynik1);
writeln('Drugi pierwiastek to:',wynik2);
end;
end;
readln;
end.

Mam nadzieję, że ten post nie znalazł się na forum z czystego lenistwa. ;-)

18.11.2006
10:44
[5]

craym [ Senator ]

hej,subby moglbys napisac do mnie na gg 932926

18.11.2006
10:59
smile
[6]

Subby [ Konsul ]

W tym momencie nie mam dostępu do gg. O co chodzi? ;-)

18.11.2006
11:33
smile
[7]

.coma. [ Pretorianin ]

Subby--> problem w tym, że ja kompletnie nie rozumiem o co chodzi w tych modulach, a to ma być modul, zrobiony na podstawie tamtego.

18.11.2006
11:51
smile
[8]

Subby [ Konsul ]

Ja też nie bardzo rozumiem o co może tu chodzić ;-) Stąd też, niewiele mogę Ci pomóc - sorry ;-)

18.11.2006
11:59
[9]

QrKo [ Legend ]

To co napisał Subby jest jak najbardziej poprawne, sam napisalem identyczny do sprawdzania poprawnosci zadan domowych z funkcji kwadratowej :)

18.11.2006
12:03
[10]

Regis [ ]

Nie mozna napisac modulu NA PODSTAWIE tamtego, bo tamten ma sie do rownania kwadratowego tak, jak piernik do wiatraka. To tak jakby ktos chcial zrobic sobie helikopter na bazie roweru.

© 2000-2022 GRY-OnLine S.A.