loopa(A,B):-
(A>0,
loopb(B),nl,
C is A-1,
D is B+1,
loopa(C,D);
A=0,nl).
loopb(D):-
( D>0,write('*'),
B is D-1,
loopb(B);
D=0,write('')).
menu :-
write('-------MENU-------'),nl,
write('1. Biodata'),nl,
write('2. Segitiga'),nl,
write('3. Keluar'),nl,
write('Masukkan pilihan : '),
read(PIL), nl,
(PIL=1,nl,
write('------BIODATA------'),nl,
write('Nama saya : '),read(A),nl,
write('NPM saya : '),read(B),nl,
write('-------------------'),nl,
write('Nama saya : '),write(A),nl,
write('NPM saya : '),write(B),nl,
menu;
PIL=2,nl,
write('Nilai perulangan : '),read(A),loopa(A,1),
menu;
PIL=3,nl,
write('Thank You ^.^'),nl).
0 komentar:
Posting Komentar