Ĺadny brzuch
Mam taki kod, który ma liczyć pole trójkąta:
program poletrojkata; var bok1, bok2, bok3: integer; p, wynik: real; function najdluzszy(a, b, c: integer):integer; begin if a > b then begin if a > c then najdluzszy := a; end else if b > a then begin if b > c then najdluzszy := b; end else if c > a then begin if c > b then najdluzszy := c; end; end; function czyTrojkat(a, b, c:integer):boolean; begin najdluzszy(a, b, c); if najdluzszy(a, b, c) = a then begin if b + c > a then czyTrojkat := true; end else if najdluzszy(a, b, c) = b then begin if a + c > b then czyTrojkat := true; end else if najdluzszy(a, b, c) = c then begin if a + b > c then czyTrojkat := true; end else czyTrojkat := false; end; begin writeLn('Podaj bok a:'); readLn(bok1); writeLn('Podaj bok b:'); readLn(bok2); writeLn('Podaj bok c:'); readLn(bok3); p := 1/2*(bok1+bok2+bok3); if czyTrojkat(bok1, bok2, bok3) then begin wynik := sqrt(p*(p-bok1)*(p-bok2)*(p-bok3)); writeLn('Pole trójkąta wynosi:', wynik); end else writeLn('Z tych boków nie można zbudować trójkąta'); end.
Wszystko działa (prawie) dobrze, tylko jeżeli najdłuższy bok zostanie przypisany do zmiennej bok3, to mi wyswietla, ze nie można zbudować takiego trójkąta...Tylko że ja się nie mogę dopatrzyć błędu :(
We all living in Amerika,
Amerika ist Wunderbar.
program poletrojkata; var bok1, bok2, bok3: integer; p, wynik: real; function czyTrojkat(a, b, c:integer):boolean; begin if (b + c > a) && (a+b>c) && (a+c>b) then begin czyTrojkat := true; end else begin czyTrojkat := false; end; begin writeLn('Podaj bok a:'); readLn(bok1); writeLn('Podaj bok b:'); readLn(bok2); writeLn('Podaj bok c:'); readLn(bok3); p := 1/2*(bok1+bok2+bok3); if czyTrojkat(bok1, bok2, bok3) then begin wynik := sqrt(p*(p-bok1)*(p-bok2)*(p-bok3)); writeLn('Pole trójkąta wynosi:', wynik); end else writeLn('Z tych boków nie można zbudować trójkąta'); end.
Trochę zmieniłem ten kod:) Mam nadzieję, że będzie działać:) pisałem z głowy.
Kodie
Niestety to nie działa....
A pozaty mi chodzi o to, że jeżeli największy bok podasz do 3 zmiennej to porgram ten cos źle dodaje chyba...
We all living in Amerika,
Amerika ist Wunderbar.
program poletrojkata; var bok1, bok2, bok3: integer; p, wynik: real; function czyTrojkat(a, b, c:integer):boolean; begin if (b+c > a) and (a+b>c) and (a+c>b) then czyTrojkat := true else czyTrojkat := false; end; begin writeLn('Podaj bok a:'); readLn(bok1); writeLn('Podaj bok b:'); readLn(bok2); writeLn('Podaj bok c:'); readLn(bok3); p := 1/2*(bok1+bok2+bok3); if czyTrojkat(bok1, bok2, bok3) then begin wynik := sqrt(p*(p-bok1)*(p-bok2)*(p-bok3)); writeLn('Pole trójkąta wynosi:', wynik:10:5); end else writeLn('Z tych boków nie można zbudować trójkąta'); end.
to moze tak ;]
pozdrawiam
pepsi^no1
No fakt :) Nie zauważyłem tych operatorów z C :D
No i właściwie to zapomniałem o and :D
We all living in Amerika,
Amerika ist Wunderbar.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
program poletrojkata; var bok1, bok2, bok3: integer; p, wynik: real; function najdluzszy(a, b, c: integer):integer; begin if a > b then begin if a > c then najdluzszy := a; end else if b > a then begin if b > c then najdluzszy := b; end else if c > a then begin if c > b then najdluzszy := c; end; end; function czyTrojkat(a, b, c:integer):boolean; begin najdluzszy(a, b, c); if najdluzszy(a, b, c) = a then begin if b + c > a then czyTrojkat := true; end else if najdluzszy(a, b, c) = b then begin if a + c > b then czyTrojkat := true; end else if najdluzszy(a, b, c) = c then begin if a + b > c then czyTrojkat := true; end else czyTrojkat := false; end; begin writeLn('Podaj bok a:'); readLn(bok1); writeLn('Podaj bok b:'); readLn(bok2); writeLn('Podaj bok c:'); readLn(bok3); p := 1/2*(bok1+bok2+bok3); if czyTrojkat(bok1, bok2, bok3) then begin wynik := sqrt(p*(p-bok1)*(p-bok2)*(p-bok3)); writeLn('Pole trójkąta wynosi:', wynik); end else writeLn('Z tych boków nie można zbudować trójkąta'); end.
Wszystko działa (prawie) dobrze, tylko jeżeli najdłuższy bok zostanie przypisany do zmiennej bok3, to mi wyswietla, ze nie można zbudować takiego trójkąta...Tylko że ja się nie mogę dopatrzyć błędu :(
We all living in Amerika,
Amerika ist Wunderbar.
program poletrojkata; var bok1, bok2, bok3: integer; p, wynik: real; function czyTrojkat(a, b, c:integer):boolean; begin if (b + c > a) && (a+b>c) && (a+c>b) then begin czyTrojkat := true; end else begin czyTrojkat := false; end; begin writeLn('Podaj bok a:'); readLn(bok1); writeLn('Podaj bok b:'); readLn(bok2); writeLn('Podaj bok c:'); readLn(bok3); p := 1/2*(bok1+bok2+bok3); if czyTrojkat(bok1, bok2, bok3) then begin wynik := sqrt(p*(p-bok1)*(p-bok2)*(p-bok3)); writeLn('Pole trójkąta wynosi:', wynik); end else writeLn('Z tych boków nie można zbudować trójkąta'); end.
Trochę zmieniłem ten kod:) Mam nadzieję, że będzie działać:) pisałem z głowy.
Kodie
Niestety to nie działa....
A pozaty mi chodzi o to, że jeżeli największy bok podasz do 3 zmiennej to porgram ten cos źle dodaje chyba...
We all living in Amerika,
Amerika ist Wunderbar.
program poletrojkata; var bok1, bok2, bok3: integer; p, wynik: real; function czyTrojkat(a, b, c:integer):boolean; begin if (b+c > a) and (a+b>c) and (a+c>b) then czyTrojkat := true else czyTrojkat := false; end; begin writeLn('Podaj bok a:'); readLn(bok1); writeLn('Podaj bok b:'); readLn(bok2); writeLn('Podaj bok c:'); readLn(bok3); p := 1/2*(bok1+bok2+bok3); if czyTrojkat(bok1, bok2, bok3) then begin wynik := sqrt(p*(p-bok1)*(p-bok2)*(p-bok3)); writeLn('Pole trójkąta wynosi:', wynik:10:5); end else writeLn('Z tych boków nie można zbudować trójkąta'); end.
to moze tak ;]
pozdrawiam
pepsi^no1
No fakt :) Nie zauważyłem tych operatorów z C :D
No i właściwie to zapomniałem o and :D
We all living in Amerika,
Amerika ist Wunderbar.