Program Segitiga Pascal

Buatlah program segitiga pada pascal yang menampilkan Sisi Miring, Luas, Keliling, Sin, Cos, Tan Segitiga sehingga tampilannya seperti diatas.

Jawab :

PROGRAM SEGITIGA;

Uses Crt;

var

   a,t : integer;

   sm,kll,luas,sin,cos,tan : real;

Begin

   Clrscr;

   Write('Masukkan Alas:');

   readln(a);

   Write('Masukkan Tinggi:');

   readln(t);

   sm:=sqrt(sqr(a) + sqr(t));

   kll:=a+t+sm;

   luas:=1/2*a*t;

   sin:=t/sm;

   cos:=a/sm;

   tan:=t/a;

   Writeln;

   Writeln;

   Writeln('Sisi Miring Segitiga = ',sm:4:2);

   Writeln('Keliling Segitiga = ',kll:4:2);

   Writeln('Luas Segitiga = ',luas:4:2);

   Writeln('Sin Segitiga = ',sin:4:2);

   Writeln('Cos Segitiga = ',cos:4:2);

   Writeln('Tan Segitiga = ',tan:4:2);

   readln;

end.

Anda sedang membaca artikel tentang Program Segitiga Pascal dan Anda bisa menemukan artikel Program Segitiga Pascal ini dengan url http://gratisan69.blogspot.com/2012/04/program-segitiga-pascal.html. Anda boleh menyebarluaskan atau mengcopy artikel Program Segitiga Pascal ini jika memang bermanfaat bagi Anda atau teman-teman Anda, namun jangan lupa untuk mencantumkan link sumbernya.

Artikel Terkait