tugas 3 algoritma pemograman aplikasi pascal ~ Tulisan Tugas Mahasiswa Secara Otomatis

tugas 3 algoritma pemograman aplikasi pascal

.Aplikasi Penentu Segitiga

Aplikasi ini digunakan untuk menentukan Jenis Segitiga yang ingin diketahui,dilihat dari panjang sisi A,sisi B,dan sisi C nya.

Sintaksnya mudah kok,silahkan dipelajari..

program penentu_segitiga;

uses wincrt;

var a,b,c,i,j:integer;

begin

write('Masukkan Panjang Sisi A..'); readln(a);

write('Masukkan Panjang Sisi B..'); readln(b);

write('Masukkan Panjang Sisi C..'); readln(c);

i:=sqr(c);

j:=sqr(a) + sqr(b);

if (i<j) then

writeln('Segitiga Lancip')

else if (i=j) then

writeln('Segitiga Siku Siku')

else

writeln ('Segitiga Tumpul')

end.

Nama : ARI OKTAVIANUS BUYUNG

NIM : 201712007

KELAS : REGULER B

Tulisan Tugas Mahasiswa Secara Otomatis