Program Pascal Sederhana

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
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 

 Pilih menu ya anda mau




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

0 komentar:

Posting Komentar

Diberdayakan oleh Blogger.

Followers

Back to top