.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.
.coma. [ Pretorianin ]
nikt nie wie?
.coma. [ Pretorianin ]
up
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. ;-)
craym [ Senator ]
hej,subby moglbys napisac do mnie na gg 932926
Subby [ Konsul ]
W tym momencie nie mam dostępu do gg. O co chodzi? ;-)
.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.
Subby [ Konsul ]
Ja też nie bardzo rozumiem o co może tu chodzić ;-) Stąd też, niewiele mogę Ci pomóc - sorry ;-)
QrKo [ Legend ]
To co napisał Subby jest jak najbardziej poprawne, sam napisalem identyczny do sprawdzania poprawnosci zadan domowych z funkcji kwadratowej :)
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.