Program Pencerminan
Kamus
Type Titik:
>
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))
-----------------------------------------------------------------------------















