Tugas 2. Algoritma dan Pemrograman 1
Masalah : Mengetahui Tentang Zodiak Kita
Algoritma :
Input : Tanggal dan Bulan
Proses : Case Tanggal/Bulan Of
1.... :
2.... :
3.... :
Dst
End;
Output : Zodiak
Program :uses crt;
var
tgl,bln : integer;
ulang : char;
begin
clrscr;
repeat
clrscr;
gotoxy(10,1);
writeln('---- Program Untuk Mengetahui Zodiak ----');
gotoxy(10,2);
writeln('------- Silahkan Tekan Enter ------');
read;
gotoxy(10,5);
write('Masukkan Tanggal Kelahiran Anda (Angka) : ');
read(tgl);
gotoxy(10,6);
write('Masukkan Bulan Kelahiran Anda (Angka) : ');
readln(bln);
clrscr;
gotoxy(10,15);
case bln of
1 : begin case tgl of
1..20 : write('Zodiak Anda adalah Capricon');
21..31 : write('Zodiak Anda adalah Aquarius');
else write('Tanggal yang Anda Masukkan Salah, Silahkan Coba Lagi!');
end;
readln;
end;
2 : begin case tgl of
1..18 : write('Zodiak Anda adalah Aquarius');
19..29: write('Zodiak Anda adalah Pisces');
else write('Tanggal yang Anda Masukkan Salah, Silahkan Coba Lagi!');
end;
readln;
end;
3 : begin case tgl of
1..20 : write('Zodiak Anda adalah Pisces');
21..31 : write('Zodiak Anda adalah Aries');
else write('Tanggal yang Anda Masukkan Salah, Silahkan Coba Lagi!');
end;
readln;
end;
4 : begin case tgl of
1..20 : write('Zodiak Anda adalah Aries');
21..30 : write('Zodiak Anda adalah Taurus');
else write('Tanggal yang Anda Masukkan Salah, Silahkan Coba Lagi!');
end;
readln;
end;
5 : begin case tgl of
1..20 : write('Zodiak Anda adalah Taurus');
21..31 : write('Zodiak Anda adalah Gemini');
else write('Tanggal yang Anda Masukkan Salah, Silahkan Coba Lagi!');
end;
readln;
end;
6 : begin case tgl of
1..20 : write('Zodiak Anda adalah Gemini');
21..30 : write('Zodiak Anda adalah Cancer ');
else write('Tanggal yang Anda Masukkan Salah, Silahkan Coba Lagi!');
end;
readln;
end;
7 : begin case tgl of
1..20 : write('Zodiak Anda adalah Cancer');
21..31 : write('Zodiak Anda adalah Leo');
else write('Tanggal yang Anda Masukkan Salah, Silahkan Coba Lagi!');
end;
readln;
end;
8 : begin case tgl of
1..21 : write('Zodiak Anda adalah Leo');
22..31 : write('Zodiak Anda adalah Virgo');
else write('Tanggal yang Anda Masukkan Salah, Silahkan Coba Lagi!');
end;
readln;
end;
9 : begin case tgl of
1..22 : write('Zodiak Anda adalah Virgo');
23..30 : write('Zodiak Anda adalah Libra');
else write('Tanggal yang Anda Masukkan Salah, Silahkan Coba Lagi!');
end;
readln;
end;
10 : begin case tgl of
1..22 : write('Zodiak Anda adalah Libra');
23..31 : write('Zodiak Anda adalah Scorpio');
else write('Tanggal yang Anda Masukkan Salah, Silahkan Coba Lagi!');
end;
readln;
end;
11 : begin case tgl of
1..22 : write('Zodiak Anda adalah Scorpio');
23..30 : write('Zodiak Anda adalah Sagitarius');
else write('Tanggal yang Anda Masukkan Salah, Silahkan Coba Lagi!');
end;
readln;
end;
12 : begin case tgl of
1..20 : write('Zodiak Anda adalah Sagitarius');
21..31 : write('Zodiak Anda adalah Capricon');
else write('Tanggal yang Anda Masukkan Salah, Silahkan Coba Lagi!');
end;
readln;
end;
else write('Bulan Yang Anda Masukkan Salah, Silahkan Coba Lagi!');
readln;
end;
clrscr;
gotoxy(10,15);
writeln('Terima Kasih Telah Mencoba "Program Untuk Mengetahui Zodiak" ');
gotoxy(10,17);
writeln('by Andi Mandiri');
gotoxy(10,19);
write('Apakah Anda Ingin Mengulang ? (y/n) : ');
readln(ulang);
until ((ulang='n') or (ulang='N'));
Post a Comment