problem z Pascalem

[Paula]

witam

napisałam program do szkoły na informatyke w Free Pascalu, tylko że jest pewien problem bo program nie działa. Program nazywa sie Heron i powinien obliczać pole trójkąta, tylko że jak już wpisze 3 boki to nic więcej się nie dzieje i już nie mam żadnego pomysłu co zrobić żeby zadziałał. Dlatego proszę o pomoc. Oto ten program:

 

program Heron;

var

s,p,x,y,z:real;

begin

writeln('podaj pierwszy bok');

readln(x);

writeln('podaj drugi bok');

readln(y);

writeln('podaj trzeci bok');

readln(z);

p:=(x+y+z)/2;

if ((p-x)<=0) and ((p-y)<=0) and ((p-z)<=0) then

begin

s:=sqrt(p*(p-x)*(p-y)*(p-z));

writeln('pole trojkata=',s);

end;

readln();

end.

Edytowane 4 Listopada 2006 przez Paula

[aph]

" if ((p-x)<=0) and ((p-y)<=0) and ((p-z)<=0) then "

jesli wezme trojkat rownoboczny 4x4x4 to (4+4+4)/2=6, a 6-4=2, 2 nie jest <=0. nie mam kompilatora pascala pod reka, ale moj kompilator w oczach mowi mi, ze tu lezy problem

[Kurak]

Jeżeli wpisujesz 3 boki, naciskasz enter i porogram zamisat wypisać wynik zamyka się odrazu?

 

Tak! Są 2 wyjścia:

Po wykonaniu napisaniu kodu naciskasz w menu "Run" to po zakonczeniu działania programu naciśnij "Alt+ F5". Poleceni wywołuje stan ekranu po wykonaniu programu (czy coś takiego). Tam powinienes zobaczyc twój wynik.

Albo wpisz w ostatnia linijke przed end. "readln;" wtedy program powykonaniu wszystkiego co wczesniej mu kazałeś zatrzyma sie i poczeka na nacisnięcie entera poczym zakończy program. Pozwoli ci to zobaczyć wynik.

 

Spróbój obydwu metod

 

Nie!

Nie mam pojecia, po wywaleniu się programu powinieneś zobaczyć w kompilatorze jego przyczyne.

Powodzenia!

 

P.S. aph ma racje masz błąd w kodzie, niestety trzeba zapetlić programik bardziej

Jeżeli masz z tym probrem moge ci przesłać gotowy kod.

Edytowane 4 Listopada 2006 przez Kurak

[fomalhaut]

program Heron;

var

s,p,x,y,z:real;

begin

writeln('podaj pierwszy bok');

readln(x);

writeln('podaj drugi bok');

readln(y);

writeln('podaj trzeci bok');

readln(z);

p:=(x+y+z)/2;

if ((p-x)>=0) and ((p-y)>=0) and ((p-z)>=0) then

begin

s:=sqrt(p*(p-x)*(p-y)*(p-z));

writeln('pole trojkata=',s);

end;

readln();

end.

 

PS. Jak jest np p-x wieksze od 0 to nie wejdzie do begin, a powinno , zmien w if'ie < na >

Edytowane 4 Listopada 2006 przez fomalhaut

[Paula]

dzięki wielkie, działa