[pascal]równanie kwadratowe
: 10 sty 2009, 11:57
W szkole mam teraz równania kwadratowe i wpadłem na pomysł, że zrobie program, wszystko mi wyszlo super, ale pomyslalem, ze moznaby wziac pod uwage równanie kiedy delta=0, no i wtedy pojawił się problem ... już nie mam nerwów i pomysłów co jest źle, od 2 dni używam ubuntu i kompiluje programy za pomocą terminala no i nie rozumiem logów z błędami...
najpierw program:
a tu log:
najpierw program:
Kod: Zaznacz cały
program Rownanie_Kwadratowe;
var
a, b, c : real;
delta : real;
x1, x2 : real;
begin
writeln('Program rozwiazuje rownanie kwadratowe');
writeln('Podaj wspolczynnik a: ');
readln(a);
writeln('Podaj wspolczynnik b: ');
readln(b);
writeln('Podaj wspolczynnik c: ');
readln(c);
delta := sqr(b) - 4*a*c;
writeln('Delta=' ,delta:4:12);
if delta < 0 then
writeln('Nie ma rozwiazania, delta jest ujemna!');
else
if delta = 0 then
begin
x1 := (-b / (2*a);
writeln('x1=' ,x1:4:12);
end
else
begin
x1 := (-b + sqrt(delta)) / (2*a);
x2 := (-b - sqrt(delta)) / (2*a);
writeln('x1=' ,x1:4:12);
writeln('x2=' ,x2:4:12);
readln;
end
end.
Kod: Zaznacz cały
Free Pascal Compiler version 2.2.0 [2008/09/20] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling /home/pstarczewski/rowkwadrat.pas
rowkwadrat.pas(21,2) Fatal: Syntax error, ";" expected but "ELSE" found
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)