Pascal, niechciany tekst.

[kamil_shadow 0]

Witam. Od niedawna próbuje coś programować w turbo pascalu.

 

Próbuje zrobić program do wyliczania miejsc zerowych.

 

Właściwie już zrobiłem. Oto cały krótki kod programu

 

Uruchamiam sobie program przez turbo pascala klikając ctrl+F9

 

Wszystko łądnie pięknie wylicza, ale na końcu mi wyświetla napis w ogóle z innej części pogramu. Nie mam pojęcia czemu Co jest nie tak ?

Na czerwono zaznacze tekst który mi wywala na koncu.

 

 

program rownanie_kwadratowe;
uses crt;
Var a, b, x, c,x0, x1, x2, d:Real;
begin
clrscr;

writeln('Podaj wspolczynniki rownania kwadratowego:');


        write('a=');
        readln(a);

        write('b=');
        readln(b);

        write('c=');
        readln(c);

if a=0 then
   Writeln('Funckja nie jest kwadratowa')
   else
   begin
   d:=(b*b)-4*a*c;




                         if d>0 then
                        begin
                        x1:=(-b-sqrt(d))/(2*a);
                        x2:=(-b+sqrt(d))/(2*a);
                       
                        writeln('Delta = ' , d:2:2);
                        writeln('Delta > 0');
                        writeln('Pierwiastek z delty = ' , sqrt(d):2:2);
                       
                        writeln('2 miejsca zerowe:');
                        writeln('x1=', x1:2:2);
                          writeln('x2=', x2:2:2);

                          end;






                           if d=0 then
                           begin
                           x:=(-b)/(2*a);
                           writeln('Delta = 0, jedno rozwiazanie: ', x:2:2);
                           end;




                           if d<0 then
                           
                           writeln('[b][color=#FF0000]Delta < 0, brak miejsc zerowych.[/color][/b]');
                           end;

readln;

end.

a tutaj zdjęcie:

 

http://img257.imageshack.us/img257/952/61684292.png

 

z góry thx za pomoc

 

PS. czemu w kodzie nie da sie zmienić koloru liter ? ;|

[kowdipapo 42]

Dawno sie nie bawilem pascalem, ale sprobuj takie cos:

program rownanie_kwadratowe;
uses crt;
Var a, b, x, c,x0, x1, x2, d:Real;
begin
clrscr;

writeln('Podaj wspolczynniki rownania kwadratowego:');


        write('a=');
        readln(a);

        write('b=');
        readln(b);

        write('c=');
        readln(c);

if a=0 then
   Writeln('Funckja nie jest kwadratowa');
   else
   begin
   d:=(b*b)-4*a*c;

                         if d>0 then
                        begin
                        x1:=(-b-sqrt(d))/(2*a);
                        x2:=(-b+sqrt(d))/(2*a);
                       
                        writeln('Delta = ' , d:2:2);
                        writeln('Delta > 0');
                        writeln('Pierwiastek z delty = ' , sqrt(d):2:2);
                       
                        writeln('2 miejsca zerowe:');
                        writeln('x1=', x1:2:2);
                          writeln('x2=', x2:2:2);
                          end;
else

                           if d=0 then
                           begin
                           x:=(-b)/(2*a);
                           writeln('Delta = 0, jedno rozwiazanie: ', x:2:2);
                           end;
else                           
                           writeln('[b][color=#FF0000]Delta < 0, brak miejsc zerowych.[/color][/b]');
                           end;

readln;
end.

[kamil_shadow 0]

jęzli chodzi o te else to nic nie daje

program wszystko super liczy tylko ten tekst co sie pojawia to nie wiem skad

[kowdipapo 42]

program rownanie_kwadratowe;
uses crt;
Var a, b, x, c,x0, x1, x2, d:Real;
label koniec;
begin
clrscr;

writeln('Podaj wspolczynniki rownania kwadratowego:');


        write('a=');
        readln(a);

        write('b=');
        readln(b);

        write('c=');
        readln(c);

if a=0 then
   Writeln('Funckja nie jest kwadratowa')
   else
   begin
   d:=(b*b)-4*a*c;




                         if d>0 then
                        begin
                        x1:=(-b-sqrt(d))/(2*a);
                        x2:=(-b+sqrt(d))/(2*a);
                       
                        writeln('Delta = ' , d:2:2);
                        writeln('Delta > 0');
                        writeln('Pierwiastek z delty = ' , sqrt(d):2:2);
                       
                        writeln('2 miejsca zerowe:');
                        writeln('x1=', x1:2:2);
                          writeln('x2=', x2:2:2);
goto koniec;
                          end;
else





                           if d=0 then
                           begin
                           x:=(-b)/(2*a);
                           writeln('Delta = 0, jedno rozwiazanie: ', x:2:2);
goto koniec;
                           end;
else                           
                           writeln('[b][color=#FF0000]Delta < 0, brak miejsc zerowych.[/color][/b]');
                         
end;
koniec:
readln;

end.

Nie mam kompilatora ani nie pamietam juz wielu rzeczy, sprawdz czy dziala.

[kamil_shadow 0]

Jak dodaje goto koniec; to wyskakuje error 3 : unknown identifier

[kowdipapo 42]

A dodales samo goto koniec, czy na poczatku kodu tez label i na koncu koniec: ? Najlepiej skopiuj kod i wklej.

[kamil_shadow 0]

chce to wszystko skopiowąc ale jak wklejam do pascala to robią mi sie strasznie duże wcinki i nie idzie tego uruchomić/skompilować da sie to jakos automatycznie wyrównać ?

[gogo3000 136]

Kolor zmieniasz poleceniami:

kolor tekstu przed tym co chcesz zmienić: textcolor(nazwa koloru po angielsku lub link);kolor tła pod tekstem: textbackground(nazwa koloru lub patrz wyżej...);Tam w linku masz tabelkę z numerami kolorów numery kolorów możesz również wstawiać zamiast nazw. Kolory tekstu obsługują wszystkie 16 kolorów, a tła do 7.

W jakim kompiatorze piszesz?

[kamil_shadow 0]

Już sobie poradziłem z tym goto: ale trzeba było po "a>0 then" begin i end;

[gogo3000 136]

A kolory dałeś radę?

[kamil_shadow 0]

textcolor(red);chyba tak

 

eee

 

edt : chyba nie

 

edit 2

dobra już wiem jak ;]