Tugas 3. Nama : Yohanes. NIM : 201612049

Tugas 3. Nama : Yohanes. NIM : 201612049

Februari 27, 2018
Aplikasi yg bisa dibuat oleh pascal....

Aplikasi penentu segitiga

aplikasi ini digunakan untuk menentukan jenis segitiga yg ingin diketahui, dilihat dari panjang 1, sisi 2 , dan sisi 3 nya.

Contoh sintaknya, dan penyelesaianya.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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.

Next
« Prev Post
Previous
Next Post »
Thanks for your comment
Langganan: Posting Komentar (Atom)