tugas 3 algoritma dan pemprograman

Aplikasi apa saja yang bisa dibuat dengan pascal

Aplikasi Segitiga Pythagoras

Pernah belajar Teorema Pythagoraskan Itu adalah rumus untuk mencari sisi miring sebuah segitiga siku siku berikut sintaksnya :

1
2
3
4
5
6
7
8
9
program pythagoras;
uses wincrt;
var a,b,c:integer;
begin
write('Masukkan Panjang Sisi A..'); readln(a);
write('Masukkan Panjang Sisi B..'); readln(b);
c:=a*a+b*b {Bisa juga dengan 'c:=sqr(a) + sqr(b);'}
writeln('Panjang Sisi C adalah..',sqrt(c));
end.

nama : Kurnia Arik

kelas : reguler A

Nim : 201712021

Previous
Next Post »
Thanks for your comment