pertama- tama buka turbo pascal lalu ketik deh source code nya :)
Uses Crt;
label 1;
label 2;
label 5;
label 27;
label 11;
label 13;
Var
TGL,nomor,i, x,y,
pilihan, c ,n,f,bil_acak,tebakan,kesempatan : INTEGER;
HARI,nama,alamat,a
: STRING[100];
PERULANGAN : real;
z,yt,pilih :char;
begin
1:
CLRSCR;
TEXTCOLOR(yellow+blink);
GOTOXY(16,2);
WRITE('MASUKKAN
DATA ANDA');
gotoxy(15,3);
WRITELN('--------------------');
TEXTCOLOR(RED);
GOTOXY(10,5);WRITE('NIM :');
textcolor(lightblue);
GOTOXY(22,5);READLN(nomor);
WRITELN;
TEXTCOLOR(YELLOW);
GOTOXY(10,7);WRITE('NAMA :');
TEXTCOLOR(LIGHTBLUE);
GOTOXY(22,7);READLN(nama);
WRITELN;
TEXTCOLOR(GREEN);
GOTOXY(10,9);WRITE('ALAMAT
:');
TEXTCOLOR(LIGHTBLUE);
GOTOXY(22,9);READLN(alamat);
WRITELN;
textcolor(lightred+blink);
WRITELN('APAKAH
ANDA ', nama,' ','dengan nim: ', nomor,'?');
write('Y/T: ');
readln (yt);
textcolor(red+blink);
if (yt='y') then
writeln('TERKONFIRMASI') else goto 1;
27:
clrscr;
TEXTCOLOR(white);
gotoxy(10,2);
writeln('perogram
apa yang akan anda pilih?');
writeln;
textcolor(lightmagenta);
gotoxy(15,4); writeln('[1] PROGRAM MEMERIKSA HARI DALAM
BULAN DESEMBAR 2013 ');
gotoxy(15,5);
writeln('[2] PROGRAM PERULANGAN');
gotoxy(15,6);
writeln('[3] PROGRAM TEBAK BILANGAN');
gotoxy(15,7);
writeln('[4] QUIT PROGRAM');
writeln;
writeln;
gotoxy(18,10);
writeln('apa yang
anda pilih ',nama,': ');
write;
readln(pilihan);
writeln;
case pilihan of
1:
begin
CLRSCR;
TEXTBACKGROUND(white);
TEXTCOLOR(BLUE);
gotoxy(28,5);
WRITELN ('PROGRAM MEMERIKSA HARI DALAM
BULAN DESEMBAR 2013');
WRITE ('MASUKKAN TANGGAL :'); READLN
(TGL);
IF TGL IN [2,9,16,23,30] THEN WRITELN
('HARI SENIN')
ELSE
IF TGL IN [3,10,17,24,31] THEN WRITELN
('HARI SELASA')
ELSE
IF TGL IN [4,11,18,25] THEN WRITELN
('HARI RABU')
ELSE
IF TGL IN [5,12,19,26] THEN WRITELN
('HARI KAMIS')
ELSE
IF TGL IN [6,13,20,27] THEN WRITELN
('HARI JUMAT')
ELSE
IF TGL IN [7,14,21,28] THEN WRITELN
('HARI SABTU')
ELSE WRITELN ('HARI MINGGU');
readln;
writeln;
textcolor(red);
writeln ('tekan tombol "v" untuk kembali ke awal');
repeat
z:= readkey;
if (z=#118) then goto 27;
until keypressed;
END;
2:
begin
clrscr;
11:
clrscr;
TEXTCOLOR(MAGENTA+BLINK);
writeln ('PROGRAM
PERULANGAN');
writeln;
writeln ('Program
apa yang Anda pilih!');
writeln;
textcolor(darkgray);
gotoxy(11,5);
writeln ('[1]. Pilih ini jika anda ingin menggunakan program for to do' );
gotoxy(11,6);
writeln ('[2]. Pilih ini jika anda ingin menggunakan program for downto do');
gotoxy(11,7);
writeln ('[3]. Pilih ini jika anda ingin menggunakan program while-do');
gotoxy(11,8);
writeln ('[4]. pilih ini jika anda ingin menggunakan program repeat-until');
writeln;
writeln;
writeln
('masukkan pilihan anda: ');
write;
readln (c);
case c of
1:
begin
clrscr;
textcolor(lightblue);
GOTOXY(32,2);
writeln ('PROGRAM
FOR TO DO');
writeln ('Anda
Akan menentukan Nilai dari i!');
write ('Tentukan
nilai dari i: ');
readln (x);
for i:= (x) to 15
do
writeln ('Nilai
dari i adalah: ', i);
writeln;
writeln ('tekan tombol "v" untuk kembali ke awal');
repeat
z:= readkey;
if (z=#118) then goto 11;
until keypressed;
END;
2:
begin
clrscr;
TEXTCOLOR(LIGHTCYAN);
GOTOXY(32,2);
WRITELN('PROGRAM
FOR DOWNTO DO');
writeln ('Anda
Akan menentukan Nilai dari i!');
write ('Tentukan
nilai dari i: ');
readln (x);
for i:= (x)
downto 1 do
writeln ('Nilai
dari i adalah: ', i);
writeln;
writeln ('tekan tombol "v" untuk kembali ke awal');
repeat
z:= readkey;
if (z=#118) then goto 11;
until keypressed;
END;
3:
begin
CLRSCR;
TEXTCOLOR
(lightblue);
GOTOXY(32,2);
WRITELN('PROGRAM
PERULANGAN WHILE DO');
writeln
('Tuliskan Variable Y!');
write ('VARIABLE
Y: ');
readln (y);
i:= (y);
While (i >=
10) and ( i <= 20) do
Begin
Writeln ('Nilai I
adalah :',i);
Inc(i)
End;
writeln ('tekan tombol "v" untuk kembali ke awal');
repeat
z:= readkey;
if (z=#118) then goto 11;
until keypressed;
end;
4:
BEGIN
goto 5;
end;
end;
end;
3:
begin
13:
clrscr;
randomize; {panggil pembangkit bilangan acak}
bil_acak:=random(100) + 1; {hasilkan sebuah
bilangan acak yang harus ditebak}
kesempatan:=6; {banyaknya kesempatan menebak}
tebakan:=1000; {beri nama awal tebakan}
writeln ('Saya mempunyai bilangan acak
1-100.');
Writeln ('Cobalah anda tebak!');
while (kesempatan > 0) and
(tebakan<>bil_acak) do
begin
readln(tebakan);
if tebakan = bil_acak then
writeln ('Tepat sekali... Anda memang
hebat!')
else
begin
dec(kesempatan);
if
kesempatan = 0 then
begin
TEXTCOLOR(RED+BLINK);
writeln ('Maaf ya... :) Anda kehabisan
kesempatan menebak.');
writeln ('Bilangan tersebut adalah ',
bil_acak, '.');
end
else
if tebakan > bil_acak then
begin
writeln ('Aduuh... kurang dari pada
',tebakan);
writeln ('Anda masih punya ',
kesempatan,' kesempatan menebak.');
end
else
begin
writeln ('Ah lebih besar daripada
',tebakan,'.');
writeln ('Anda masih punya ',
kesempatan,' kesempatan menebak.');
end;
end;
end;
writeln;
writeln ('Anda
masih ingin bermain lagi? (Y/T)');
readln (pilih);
if upcase (pilih)='Y' then goto 13;
writeln ('tekan
tombol "v" untuk kembali ke awal');
repeat
z:= readkey;
if (z=#118) then goto 27;
until keypressed;
END;
4:
begin
writeln ('Apakah
anda ingin keluar dari Program?');
writeln;
write ('Y/T ');
readln (yt);
if (yt= 'y') then
writeln ('TERIMA KASIH TELAH MAMAKAI PROGRAM INI') else goto 1;
end;
end;
5:
clrscr;
TEXTCOLOR(LIGHTRED);
WRITELN('MASUKKAN KALIMAT');
WRITE ('n = '); readln(a);
i:=0;
f:=1;
repeat
writeln (a)
until KEYPRESSED;;
writeln;
writeln ('tekan tombol "v"
untuk kembali ke awal');
z:= readkey;
if (z=#118) then goto 27;
end.
lalu compile dan run, hasilnya :
masukkan data
masukkan data
sekian dari saya, mungkin jika ada yang mau ditanyakan, bisa dipostkan pada kolom komentar dibawah.
terima kasih . . . :)
0 komentar:
Posting Komentar