fariha-Alkaff

ini program di buat waktu ujian akhir semester 1 yaa lumayan dee ga buruk-buruk amat,
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

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;

gotoxy(18,10);

writeln('apa yang anda pilih ',nama,': ');

write;

readln(pilihan);

writeln;

case pilihan of

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;

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 ('masukkan pilihan anda: ');

write;

readln (c);

case c of

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;

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;

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;

BEGIN

goto 5;

end;

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;

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;

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;

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

Pilih menu ya anda mau

sekian dari saya, mungkin jika ada yang mau ditanyakan, bisa dipostkan pada kolom komentar dibawah.

terima kasih . . . :)

03.48 / Unknown / 0 komentar /

Tugas

kode html untuk layout dibawah ini.

<html>

<head>

</head>

<body>

<tr>

<th width="100%" height="47" bgcolor="#4F81BD" scope="col">Header</th>

</tr>

</table>

<tr>

</tr>

</table>

<table width="50%" height="100%" border="8" align="left"> <th height="362" bgcolor="#F79646" scope="col"><p>Conten</p>

</th>

</tr>

</table>

<tr>

</th>

</tr>

</table>

<tr>

<th bordercolor="#000000" bgcolor="#FFFF00" scope="col">Footer</th>

</tr>

</table>

</body>

</html>

<html>
<head>
<title>N02</title>
</head>
<body>
<table width="100%" height="59" border="5">
<tr>
<th width="100%" height="47" bgcolor="#4BACC6" scope="col">Header</th>
</tr>
</table>
<table width="49%" height="100%" border="1" align="left" cellpadding="3" cellspacing="0"> <th height="362" bgcolor="#7030A0" scope="col"><p>Navigation</p>
</th>
</tr>
</table>
<table width="51%" height="100%" border="8" cellpadding="0" cellspacing="0">
<tr>
<th width="504" height="370" bgcolor="#F79646" scope="col"> <p>Menu</p>
</th>
</tr>
</table>
<table width="100%" height="59" cellpadding="1" cellspacing="1" bordercolor="#000000">
<tr>
<th height="37" bgcolor="#FF0000" scope="col">Footer</th>
</tr>
</table>
</body>
</html>

<html>

<head>

</head>

<body>

<tr>

<th bgcolor="#4F81BD" scope="col">Header</th>

</tr>

</table>

<tr>

</tr>

<tr>

<td bgcolor="#002060"><div align="center"><strong>Gambar</strong></div></td>

</tr>

</table>

<tr>

<th bgcolor="#4F81BD" scope="col">Footer</th>

</tr>

</table>

</body>

</html>

<html>

<head>

</head>

<body>

<tr>

<th bgcolor="#C0504D" scope="col">Header</th>

</tr>

</table>

<tr>

</tr>

</table>

<tr>

</tr>

</table>

<tr>

</tr>

</table>

<tr>

<th bgcolor="#C0504D" scope="col">Footer</th>

</tr>

</table>

</body>

</html>

20.03 / Unknown / 0 komentar /

Tugas

1. Pada umumnya program komputer dibagi menjadi dua kategori yaitu …

a.       Program aplikasi dan Program windows
b.      Program sistem dan program aplikasi
c.       Program windows dan program linux
d.      Program software dan program aplikasi

2. Dasar yang sangat penting dari semua program system adalah …

a. Operating System

b. Sistem aplikasi

c. Perangkat lunak

d. Perangkat keras

3. Sekumpulan instruksi yang diterjemahkan microprogram disebut…

a. Bahasa Inggris

b. Bahasa Indonesia

c. Bahasa Mesin

d. Bahasa Program

4. Sumber daya abstrak pada komputer terdiri dari …

a. Keyboard dan Mouse

b. LCD dan Printer

c. RAM dan Harddisk

d. Data dan Program

5. Yang bukan merupakan sumber daya fisik pada komputer adalah …

a. LCD

b. RAM

c. CD ROM

d. Program

02.48 / Unknown / 0 komentar /

Tugas

fariha-Alkaff

Disk and Drive

Program Pascal Sederhana

HTML

SOAL SISTEM OPERASI

Blog Archive

About Me

Followers

About Us

Translate

Popular Posts

News

Labels