23 Ekim 2009 Cuma

UYGULAMA12-22EKİM

Klavyeden üç kenar uzunluğu verilen bir üçgenin çizilebilirlik kontrolü.

----------------------------------------------------------------------

program ucgensarti;
uses crt;
var a,b,c: real;

begin

clrscr;
writeln ('cizmek istediiniz ucgenin 3 uzunlugunu giriniz' :5);
readln (a,b,c);


if (a>=b+c) OR (a<=abs(b -c)) then
writeln ('bu ucgen cizilemez' :5)

else if (b>=a+c) OR (b<=abs(a-c)) then
writeln ('bu ucgen cizilemez' :5)

else if (c>=b+a) OR (c<=abs(b-a)) then
writeln ('bu ucgen cizilemez' :5)

else
writeln('mumkundur olabilir' :5);


readln;

end.

Hiç yorum yok:

Yorum Gönder