P R O G R A M D A T A M A H A S I S W A

 P R O G R A M    D A T A   M A H A S I S W A

uses wincrt;

const max=15;  d   ='1234';

type mhs     =  record  

     nim     :  string[10];      nama    :  string[15];      alamat  :  string;      ttl     :  string;      jurusan :  string;

     kelas   :  string;      prog    : string;      total     :real;    end;

Jml=array [1..max] of mhs; {deklarasi array dari type mhs sebanyak 10 buah}

var      data         :mhs;       c            :jml;          i,n,j        :integer;          pil          :char;

         a,t,q,ut,us  :real;          nama         :string;    pass         :string;      

 begin

n:=0;

REPEAT

clrscr;

gotoxy(35,6);writeln('Masuk');

gotoxy(30,7);writeln('_____________');

gotoxy(30,9);write('| nama     : ');readln(nama);

gotoxy(30,10);write('| pass     : ');readln(pass);

if pass=d then

begin 

repeat

clrscr;

gotoxy(37,1);writeln('SELAMAT DATANG ',nama);

gotoxy(20,5);writeln('|  P R O G R A M    D A T A   M A H A S I S W A   |');

gotoxy(37,6);writeln('mohamad echa putra');

gotoxy(19,7);writeln('|==================================================|');

gotoxy(35,9);writeln('***** MENU ***** ');

gotoxy(35,10);writeln('==================');

gotoxy(35,11);write('1.TAMBAH DATA MAHASISWA ');

gotoxy(35,12);write('2.TAMPILAN ');

gotoxy(35,13);write('3.KELUAR ');

gotoxy(19,14);writeln('|-------------------------------------------------|');

gotoxy(20,15);write('1..3 PILIHAN : ');pil:=readkey;

 case pil of

'1':begin

    repeat

          clrscr;

          n:=n+1;

          gotoxy(30,1);writeln('PROGRAM DATA MAHASISWA');

          gotoxy(30,2);writeln('mohamad echa putra');

          gotoxy(20,3);writeln('--------------------------------------------');

            gotoxy(20,4);write('NIM             : ');readln(c[n].nim);

            gotoxy(20,5);write('NAMA            : ');readln(c[n].nama);

            gotoxy(20,6);write('TTL             : ');readln(c[n].ttl);

            gotoxy(20,7);write('JURUSAN         : ');readln(c[n].jurusan);

            gotoxy(20,8);write('SEMESTER        : ');readln(c[n].kelas);

            clrscr;

            gotoxy(30,1);writeln(' NILAI ');

            gotoxy(30,2);writeln('mohamad echa putra');

            gotoxy(20,3);writeln('-------------------------------------------');

            gotoxy(20,5);write('PROGRAM STUDY   : ');readln(c[n].prog);

            gotoxy(20,6);write('AKTIVITAS       : ');readln(a);

            gotoxy(20,7);write('TUGAS           : ');readln(t);

            gotoxy(20,8);write('QUIZ            : ');readln(q);

            gotoxy(20,9);write('UTS             : ');readln(ut);

            gotoxy(20,10);write('UAS             : ');readln(us);

            gotoxy(20,11);writeln('-------------------------------------------');

            c[n].total:=0.1*a+0.2*t+0.3*q+0.4*ut+05*us;

            gotoxy(20,12);write('TAMBAH DATA BARU [Y/T] : ');pil:=readkey;

    until upcase (pil)<>'Y';

    end;

'2' :begin

     repeat

       clrscr;

       gotoxy(30,1);writeln('|     DATA MAHASISWA       |'); writeln('===============================================================================');

       writeln('NIM         |NAMA           |TTL            |JURUSAN       |SEMESTER'); writeln('_______________________________________________________________________________');

         for i:=1 to n do

           begin

            writeln(c[i].nim:10,' | ',c[i].nama:12,' | ',c[i].ttl:13,' | ',c[i].jurusan:8,' | ',c[i].kelas:8,' | ');

           end; writeln('===========================================================================');

       writeln('NAMA        | PROGRAM STUDY        | NILAI  ');

         for i:=1 to n do

           begin

            writeln(c[i].nama:10,'|',c[i].prog:10,'|',c[i].total:15:2,'|');

writeln('__________________________________________________________________________');

           end;

       write('KEMBALI KE MENU [Y/T] : ');pil:=readkey;

       until upcase (pil)<>'T';

       end;

‘3’           :BEGIN

                DONEWINCRT;

                END;

end;

until pil='3';

end

else

begin;

writeln('maff pass anda salah ');

end;

clrscr;

gotoxy(35,10);write('mencoba masuk kembali [Y/N] : ');readln(pil);

until upcase(pil)<>'Y';

donewincrt;

end.

MEMBUAT GAMES TATARUCINGAN

MEMBUAT GAMES TATARUCINGAN

uses wincrt;

label hasil,mulai,ulang;

var jawab : string;

    n1,n2,n3,n4,n5,n6,n7,n8,n9,n10 :integer;

    jumlah: integer;

    pil,nama : string;

    pil2:char;

    simpan : text;

   

begin

        repeat

{menu games}

{-------------------------------------------------------------------------------}

clrscr;

writeln('mohamad echa putra');

writeln('algoritma');

writeln;

gotoxy(25,5);writeln ('GAMES TATARUCINGAN ');

gotoxy(20,6);writeln('===============================');

gotoxy(25,8);write(' tekan enter : . . .');

readln;

clrscr;

gotoxy(25,5);writeln ('GAMES TATARUCINGAN ');

gotoxy(20,6);writeln('===============================');

gotoxy(25,7);write('masukan nama   : ');readln(nama);

gotoxy(25,9);writeln('1. lanjut     2.keluar');

gotoxy(20,10);writeln('===============================');

gotoxy(25,11);write('pilih : ');readln(pil);

{*}         if ( pil='1') then

begin

repeat

clrscr;

gotoxy(25,5);writeln('jawablah pertanyaan-pertanyaan tersebut dengan benar ');

gotoxy(25,6);writeln('cara menjawabnya seperti berikut : ');

gotoxy(25,8);writeln(' rambut apa yang bisa di makan :...(8 huruf) ');

gotoxy(25,9);writeln('        ...... ..');

gotoxy(25,10);writeln('jawab : rambut an');

gotoxy(25,11);writeln('===================================================');

gotoxy(25,12);write('apakah anda mengerti [Y/T] : ');readln(pil2);

until upcase(pil2)<>'Y';

clrscr;

writeln('1. mulai      2.keluar ');

write('pilih : ');readln(pil);

{***} if( pil='1') then

      begin

      goto mulai

{***}end

{***}else

         begin

         donewincrt;

{***}end;

mulai : writeln;

{----------------------------------------------------------------------------}

{memulai games }

{__________________________________________________________________________}

 {soal 1}

clrscr;

gotoxy(25,3);writeln('1. HEWAN APA YANG BERSOUDARA : ... (12 huruf)');

gotoxy(25,4);writeln('        ..... .......');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'KATAK BERADIK') or (jawab='katak beradik') then

begin

n1:=10;

end

else

begin

n1:=0;

goto hasil;

end;

{soal 2}

clrscr;

gotoxy(25,3);writeln('2. HEWAN APA YANG NAMANYA 2 HURUF:...(5 huruf) ');

gotoxy(25,4);writeln('        . ... .');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'U DAN G') or (jawab='u dan g') then

begin

n2:=10;

end

else

begin

n2:=0;

goto hasil;

end;

{soal 3}

clrscr;

gotoxy(15,3);writeln('3. SIAPAKAH YANG POTONG RAMBUT TIAP HARI TAPI TIDAK BOTAK :...(13 huruf)  ');

gotoxy(25,4);writeln('        ...... .......');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'TUKANG PANGKAS') or (jawab='tukang pangkas') then

begin

n3:=10;

end

else

begin

n3:=0;

goto hasil;

end;

{soal 4}

clrscr;

gotoxy(25,3);writeln('4. GAJAH APA YANG BELALAINYA PENDEK :...(10 huruf)  ');

gotoxy(25,4);writeln('        ..... .....');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'GAJAH PESEK') or (jawab='gajah pesek') then

begin

n4:=10;

end

else

begin

n4:=0;

goto hasil;

end;

{soal 5}

clrscr;

gotoxy(25,3);writeln('5. BOLA APA YANG MIRIP KUCING :...(8 huruf)  ');

gotoxy(25,4);writeln('        .... ....');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'BOLA EMON') or (jawab='bola emon') then

begin

n5:=10;

end

else

begin

n5:=0;

goto hasil;

end;

{soal 6}

clrscr;

gotoxy(25,3);writeln('6. SIAPAKAH PRESIDEN RI YANG TERSEKSI :... (8 huruf ) ');

gotoxy(25,4);writeln('        .. .. ....');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'PA HA BIBI') or (jawab='pa ha bibi') then

begin

n6:=10;

end

else

begin

n6:=0;

goto hasil;

end;

{soal 7}

clrscr;

gotoxy(25,3);writeln('7. NAIKNYA CEPET,TURUNNYA LAMBAT :...  (5 huruf)');

gotoxy(25,4);writeln('        .....');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'INGUS') or (jawab='ingus') then

begin

n7:=10;

end

else

begin

n7:=0;

goto hasil;

end;

{soal 8}

clrscr;

gotoxy(25,3);writeln('8. LEMARI APA YANG BISA MASUK KANTONG :... (8 huruf)');

gotoxy(25,4);writeln('        .... ....');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'LEMA RIBU') or (jawab='lema ribu') then

begin

n8:=10;

end

else

begin

n8:=0;

goto hasil;

end;

{soal 9}

clrscr;

gotoxy(25,3);writeln('9. SANDAL APA YANG PALING ENAK :...(12huruf )  ');

gotoxy(25,4);writeln('        ...... ......');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'SANDAL TERASI') or (jawab='sandal terasi') then

begin

n9:=10;

end

else

begin

n9:=0;

goto hasil;

end;

{soal 10}

clrscr;

gotoxy(25,3);writeln('10. ITEM,GEDE,BULUAN DAN MANIS :...(15 huruf)  ');

gotoxy(25,4);writeln('        ....... ........ ');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'MANISAN KINGKONG') or (jawab='manisan kingkong') then

begin

n10:=10;

end

else

begin

n10:=0;

goto hasil;

end;

{__________________________________________________________________________}

hasil : writeln;

jumlah:= n1+n2+n3+n4+n5+n6+n7+n8+n9+n10;

{simpan data ke file TXT}

{______________________________}

assign(simpan,'simpan.txt');

rewrite(simpan);

writeln(simpan,nama,' :  ',jumlah);

close(simpan);

{___________________________}

clrscr;

{apabila games telah selesai}

{----------------------------------------------------------------}

if (jumlah>50) then

begin

gotoxy(25,3); writeln('selamat anda lulus');

gotoxy(25,5);writeln('____________________________________________');

gotoxy(25,6);   writeln('nama     |       jumlah  | ');

gotoxy(25,5);writeln('____________________________________________');

assign(simpan,'simpan.txt');

reset(simpan);

      readln(simpan,nama); 

      gotoxy(25,9);writeln(nama);

close(simpan);

 end

else

begin

gotoxy(25,3);writeln('maaf anda belum lulus, silakan anda coba lagi... :)');

gotoxy(25,5);writeln('____________________________________________');

gotoxy(25,6);    writeln('nama     |       jumlah  | ');

gotoxy(25,5);writeln('____________________________________________');

{|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}

assign(simpan,'simpan.txt');

reset(simpan);

while not eof(simpan)do

begin

      readln(simpan,nama);    

      gotoxy(25,7);writeln(nama);

end;

close(simpan);

end;

{||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}

end

else

begin

donewincrt;

end;

gotoxy(25,8); write('apakah anda ingin mengulang lagi[Y/T] ');readln(pil2);

 until upcase(pil2)<>'Y';

end.