Ĺadny brzuch
Witam. To moje pierwsze kroki z Pascalem (tak, liceum ;]) i tak sobie pisze bardzo prosty program - do obliczania rozwiązań równania kwadratowego. Wiem jak to zrobić, ale w instrukcji warunkowej wyskakuje mi błąd:
http://www.fotosik.p...c899e74ea0.html
Wiem, ze pewnie rozwiązanie jest banalnie proste, ale siedzę od jakiegoś czasu i nie wiem gdzie tu jest ten błąd składniowy.
PS. I tak, wiem że ten program można napisać 10 razy prościej na 20 innych sposobów. ;)
Pozdrawiam
Przed ELSE nie ma średnika, w poprzedniej linii musisz wywalić
Tak próbowałem zrobić, ale wyskakuje ten sam błąd.
W instrukcjach złożonych musisz użyć begin, czyliIF coś THEN BEGIN instrukcje END;
Użytkownik andrzej_aa edytował ten post 30 październik 2009, 22:33
Jeśli po instrukcjach typu If, Case, While, For itp. występuje więcej niż jedna instrukcja to musimy użyć bloku Begin..End;, czyli:
If a > b Then Begin a := b; Write(a); End Else Begin b := a; Write(b); End;
a nie:
If a > b Then a := b; Write(a) Else b := a; Write(b);
Dzięki wielkie za pomoc ;)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
http://www.fotosik.p...c899e74ea0.html
Wiem, ze pewnie rozwiązanie jest banalnie proste, ale siedzę od jakiegoś czasu i nie wiem gdzie tu jest ten błąd składniowy.
PS. I tak, wiem że ten program można napisać 10 razy prościej na 20 innych sposobów. ;)
Pozdrawiam
Przed ELSE nie ma średnika, w poprzedniej linii musisz wywalić
Tak próbowałem zrobić, ale wyskakuje ten sam błąd.
W instrukcjach złożonych musisz użyć begin, czyliIF coś THEN BEGIN instrukcje END;
Użytkownik andrzej_aa edytował ten post 30 październik 2009, 22:33
Jeśli po instrukcjach typu If, Case, While, For itp. występuje więcej niż jedna instrukcja to musimy użyć bloku Begin..End;, czyli:
If a > b Then Begin a := b; Write(a); End Else Begin b := a; Write(b); End;
a nie:
If a > b Then a := b; Write(a) Else b := a; Write(b);
Dzięki wielkie za pomoc ;)