contoh, ramalan sifat berdasarkan hari lahir anda.
Uses wincrt;
var
pilih:integer;
begin
write('hari lahir anda:');readln(pilih);
if pilih=senin
then
begin
writeln('baik dan setia ');
end;
if pilih=selasa
then
begin
writeln('boros dan percaya diri ');
end;
if pilih=rabu
then
begin
writeln('suka dipuji ');
end;
if pilih=kamis
then
begin
writeln('banyak teman dan periang ');
end;
if pilih=jumat
then
begin
writeln('pintar membagi waktu ');
end;
if pilih=sabtu
then
begin
writeln('santai tetapi cepat dalam berpikir ');
end;
if pilih=minggu
then
begin
writeln('pandai bergaul dan rajin ');
end;
end.
SELAMAT MENCOBA
No comments:
Post a Comment