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
Out Of Topic Show Konversi KodeHide Konversi Kode Show EmoticonHide Emoticon