Klavyeden kenarlar sayıları girilen üçgenin çeşidini yazan program.

15.11.2008 - 21:33

uses crt;
var
a,b,c:integer;
begin 
writeln('1.kenari_giriniz:');readln(a); writeln('2.kenari_giriniz:');readln(b); writeln('3.kenari_giriniz:');readln(c); if(a=b)and(b=c)then
writeln('eskenar')
else if(a<>b)and(b<>c)and(a<>c)then 
writeln('cesitkenar')
else
writeln('ikizkenar');
readln;
end.

Linkback: https://www.buyuknet.com/klavyeden-kenarlar-sayilari-girilen-ucgenin-cesidini-yazan-program-t8219.0.html

15.11.2008 - 21:33

   uses crt;
   var
   a,b,c:integer;
   begin
   write(‘1. kenarı gir:’);readln(a);
   write(‘2. kenarı gir:’);readln(b);
   write(‘3. kenarı gir:’);readln(c);
   if(a=b) and (b<>c) then
   writeln(‘ikiz kenar’);
   else if(a=c) and (a<>b) then
   writeln(‘ikiz kenar’)
   else if(b=c) and (b<>a) then
   writeln(‘ilikz kenar’)
   else if(a=b) and (b=c) then
   writeln(‘eş kenar’)

   else writeln(‘Çeşit kenar’);
   readln;
   end.