Anonymní profil Pascal S.R.O – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Pascal S.R.O – Programujte.comAnonymní profil Pascal S.R.O – Programujte.com

 

Příspěvky odeslané z IP adresy 95.82.187.–

Pascal S.R.O
Pascal › Pomoc v nouzi
1. 6. 2011   #142753

Dík kluci ušatí, tohle mi postačilo, aby to fungovalo :)

Pascal S.R.O
Pascal › Pomoc v nouzi
1. 6. 2011   #142743

No už sem si myslel, že sem to vyřešil, ale pořád nic :/

Program HOTOVO;

uses math;
const pi:real=3.14;
var a,b,c:real;
alfa,beta,gamma:real;
max,help:real;
x,prav:boolean;
Begin
help:=0;
max:=0;
write('Zadejte delku strany a: ');
readln(a);
write('Zadejte delku strany b: ');
readln(b);
write('Zadejte delku strany c: ');
readln(c);
if (a+b>c) and (b+c>a) and (c+a>b) then
begin
x:=true;
writeln('Z techto stran lze sestrojit trojuhelnik.');
end;
if x<>true then writeln('Z techto stran nelze sestrojit trojuhelnik!')
else begin
if (c*c=(a*a)+(b*b)) or (b*b=(a*a)+(c*c)) or (a*a=(b*b)+(c*c)) then
begin
if (a>b) and (a>c) then begin a:=max;
max:=help;
help:=a;
end;
if (b>a) and (b>c) then begin b:=max;
max:=help;
help:=b;
end;
if (c>a) and (c>b) then begin c:=max;
max:=help;
help:=c;
end ;

writeln('Tento trojuhelnik je pravouhly!');
alfa:=arcsin(a/max)*(180/pi);
writeln('Velikost uhlu alfa je: ',alfa:4:2);
beta:=arcsin(b/max)*(180/pi);
writeln('Velikost uhlu beta je: ',beta:4:2);
gamma:=arcsin(c/max)*(180/pi);
writeln('Velikost uhlu gamma je: ',gamma:4:2)
end;

if (a=b) and (b=c) and (c=a) then
writeln('Tento trojuhelnik je rovnostranny!')
else if (a=b) or (b=c) or (c=a) then
writeln('Tento trojuhelnik je rovnoramenny!');

end

;
readln;
end.


Pascal S.R.O
Pascal › Pomoc v nouzi
31. 5. 2011   #142718

exited with exitcode = 217 /// An unhandled exception occured at $0040198D: EdivByZero : Division by zero $0040198D



Osobně si myslím, že problém nebude v dělení, ale nevím si rady :(

Pascal S.R.O
Pascal › Pomoc v nouzi
31. 5. 2011   #142714

Nazdar, mám takovej problém, mám program, kterej jede, ale když tam zapíšu určité hodnoty, tak mi to píše, že nelze dělení nulou //division by zero// pořád nevím, kde je problém, nemáte nějakou radu?

.... then begin
if (a>b) and (a>c) then begin a:=max;
max:=help;
help:=a;
end
else if (b>a) and (b>c)
then begin b:=max;
max:=help;
help:=b;
end
else if (c>a) and (c>b)
then begin c:=max;
max:=help;
help:=c;
end;
....

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032021 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý