Program Menentukan Segitiga

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

program Menetukan_segitiga;
{I.S. : user memasukan nilai angka A,B, dan C}
{F.S. : menampilkan hasil bilangan dan jenis segitiga}
Uses crt;
Var
   A,B,C,X,Y : integer;
Begin
   window(15,6,65,18);textbackground(cyan);clrscr;
   //Program Menentukan Segitiga
   gotoxy(15,2);
   Writeln('Program Menentukan Segitiga');
   gotoxy(15,3);
   Writeln('=========================');

   //memasukan nilai untuk sisi A,B, dan C
   gotoxy(15,4);
   Write('Masukkan Sisi A: ');readln(A);
   gotoxy(15,5);
   Write('Masukkan Sisi B: ');readln(B);
   gotoxy(15,6);
   Write('Masukkan Sisi C: ');readln(C);
   gotoxy(15,7);
   Writeln('=========================');
   gotoxy(18,8);
   X:=sqr(C);
   Y:=sqr(A)+sqr(B);
   if (X<Y)
      then
         Writeln('Segitiga Lancip')
      else
   if (X=Y)
      then
         Writeln('Segitiga Siku-Siku')
      else
         Writeln('Segitiga Tumpul');
readln;
End.

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

Download Scriptnya :

catatan :

hargailah tulisan orang lain, jika anda mengcopy-paste harap cantumkan link sumber.