[pascal]równanie kwadratowe

[pstarczewski]

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:

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.

a tu log:

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)

[vtr]

w tej lini:

Kod: Zaznacz cały

writeln('Nie ma rozwiazania, delta jest ujemna!')

nie powinno być średnika

[panza]

wartało by też wspomnieć dlaczego, otóż instrukcje w Pascalu są rozdzielane za pomocą średników... a else (od if'a) to nadal jedna instrukcja.