Tugas Prokom

-----------------------------------------------------------------------
Program Pencerminan
Kamus
Type Titik:
y: integer {ordinat}
>
T: titik
p: integer
Xp, Yp: integer
function cermin_x (T.y: integer) -> integer
function cermin_y (T.x: integer) -> integer
Algoritma
output('Masukkan koordinat x= ')
input(T.x)
output('Masukkan koordinat y= ')
input(T.y)
output('Akan dicerminkan melalui sumbu (masukkan angka pilihan): ')
output('1 sumbu x')
output('2 sumbu y')
input(p)
depend on (p)
1: output (T.x,Yp)
2: output (T.y,Xp)
end depend
Yp <- cermin_x (T.y)
Xp <- cermin_y (T.x)
end.

---------------------------------------------------------------------------

function cermin_x
kamus lokal
algoritma
-> ((-1)*(T.y))

----------------------------------------------------------------------------

function cermin_y
kamus lokal
algoritma
-> ((-1)*(T.x))

-----------------------------------------------------------------------------