Witam Was serdecznie :)
Z góry zaznaczę, że dopiero zaczynam z tym językiem programowania jak i z programowaniem w ogóle. Mam po prostu do oddania małą pracę na zaliczenie, która oblicza pierwiastki równania kwadratowego. Problem pojawił się przy ostatnim else, bowiem program prosi mnie o znacznik ';' przed nim. No i za bardzo nie wiem w czym jest problem, moim zdaniem powinien kompilować się prawidłowo.
Tak to wygląda:
Program prog;
uses crt;
var a,b,c: Integer;
delta: Real;
x1,x2: Real;
Begin
clrscr;
write('Podaj liczbe a:');
readln(a);
write('Podaj liczbe b:');
readln(b);
write('Podaj liczbe c:');
readln(c);
delta := (sqr(b)) - (4*a*c);
writeln('Delta= ',b,'sqrt - (',4,'*',a,'*',c,') = ',delta:1:2);
if delta < 0 then
writeln('Brak pierwiastkow')
else if delta > 0 then
x1 := (-b - sqrt(delta)) / (2*a);
writeln('Pierwiastek x1 wynosi: ',x1:1:1);
x2 := (-b + sqrt(delta)) / (2*a);
writeln('Pierwiastek x2 wynosi: ',x2:1:1)
else
x1 := (-b - sqrt(delta)) / (2*a);
writeln('Pierwiastek x1= ',x1:1:2)
readkey;
End.
A tutaj obrazek z TP:
http://i54.tinypic.com/2mq697r.jpg</img>
Z góry dzięki za jakiekolwiek pomysły i sugestie jak to rozwiązać :)
Pozdrawiam!
EDIT: Szkurde, nie zauważyłem działu Newbie, przepraszam! Jeśli któryś mod byłby tak miły i przeniósł temat to byłbym dozgonnie wdzięczny!