IMITASY

Contoh Program menginput data Mahasiswa.

Output pada Program

1. Tampilan Ketika Memilih menu

(Gambar 1)

2. Tampilan ketika Menginput Jumlah data yang akan di masukkan

(Gambar 2)

3. Tampilan Saat memasukkan data ke-1

(Gambar 3)

4. Tampilan saat memasukka data ke-2

(Gambar 4)

5. Tampilan saat menginputkan data ke-3

(Gambar 5)

6. Tampilan ketika selesai menginput semua data dan Memilih menu 2 untuk menampilkan data

(Gambar 6)

7. Tampilan pada menu Output ketika sudah menginput data

(Gambar 7)

8. Tampilan menginput pilihan keluar

(Gambar 8)

Source Code

program Array_dan_Record;
Uses crt;
Type rec_data   = record
  nama,nim,grade  :Array[1..100]Of String;
  nilai           :Array[1..100]Of Real;
  end;

Var     i,n     :longint;
        pil     :char;
        data    :rec_data;

procedure input;
        begin
        clrscr;
        writeln(' ');
        writeln(' Masukkan Jumlah Data :                                  ');
        gotoxy(25,2);readln(n);
        for I:=1 to n do
        begin
        writeln(' ');
        Writeln('                       Data Ke                           ');
        Writeln(' ');
        Writeln(' Nama          :                                         ');
        Writeln(' NIM           :                                         ');
        writeln(' Nilai         :                                         ');
        writeln('                                                         ');
        gotoxy(32,4+6*(i-1));writeln(i);
        gotoxy(18,6+6*(i-1));readln(data.nama[i]);
        gotoxy(18,7+6*(i-1));readln(data.nim[i]);
        gotoxy(18,8+6*(i-1));readln(data.nilai[i]);

with data do
        if (nilai[i]<0) or (nilai[i]>100) then grade[i]:='S'else
        if nilai[i]>=80 then grade[i]:='A'else
        if nilai[i]>=75 then grade[i]:='B+'else
        if nilai[i]>=70 then grade[i]:='B'else
        if nilai[i]>=65 then grade[i]:='C+'else
        if nilai[i]>=60 then grade[i]:='C'else
        if nilai[i]>=50 then grade[i]:='D'else
        if nilai[i]<50 then grade[i]:='E';
        writeln;
        end;
        end;

procedure output;
        begin
            clrscr;
            writeln(' ');
            writeln('                    Data Mahasiswa              ');
            Writeln('------------------------------------------------');
            writeln('|       Nama       |    Nim    | Nilai | Grade |');
            Writeln('|                  |           |       |       |');
            Writeln('------------------------------------------------');
            with data do
            For i:=1 To n Do
            Begin
            gotoxy(20,6+i);writeln('|');
            gotoxy(1,6+i);writeln('|');
            gotoxy(32,6+i);writeln('|');
            gotoxy(40,6+i);writeln('|');
            gotoxy(48,6+i);writeln('|');
            gotoxy(21,6+i);Writeln(nim[i]);
            gotoxy(3,6+i);writeln(nama[i]);
            gotoxy(35,6+i);writeln(nilai[i]:2:0);
            gotoxy(43,6+i);writeln(grade[i]);
            end;
            Writeln(' ');
            readln;
            end;

procedure menu;
        begin
        repeat
        clrscr;
        writeln;
        writeln('                 Menu Utama            ');
        writeln;
        writeln('1.Input Data                           ');
        writeln('2.Output Data                          ');
        writeln('0.Exit                                 ');
        writeln('---------------------------------------');
        writeln('Masukkan Pilihan :                     ');
        gotoxy(21,8);readln(pil);
        case pil of
        '1':input;
        '2':output;
        end;
        until pil='0';
        end;
begin
menu;
end.

Sumber : madisite.blogspot.com

Baca Selengkapnya »

Cara mengungkapkan perasaan ke orang lewat Game

(Menyampaikan Perasaan)

Hmmm.. Dalam dunia percintaan masa kini sungguh menyedihkan, di mana banyak Jomblo yang udah semakin menggila karena belum menemukan pasangannya, sampai-sampai membuat ibu kota menjadi banjir karena sumpah serapahnya, ~~'Santai broo.. ane juga zomblo T_T"~~.. Namun, dengan berkembangnya tekhnologi pada saat ini membuat orang merasa sosialnya rendah hingga susah untuk mengatakan langsung dan lebih memilih memendamnya. "owww.. co cweet.."

Di sini Aku mau ngasih sesuatu hal yang anti mainstream untuk mengatakan / mengungkapkan perasaan ke orang, Hmm.. bukannya kita gak Gantleman ya,beroo.. , tapi disini kita di tuntut kreatif dan lagian gak ada undang-udang pasal berapa yang menetapkan itu salah.

Oke! langsung aja ke permasalahan, untuk mendownload Gamenya disini.. iya disini..
Cara penggunaan :

Jalankan Gamenya
Masukkan Nama kamu, iya kamu..
Masukkan Nama target.
Game akan otomatis melakukkan Save
Pilih "Tidak" untuk keluar.
<n:biarkan target saja yang memilih "Ya">
Copy ke CD atau Flashdisk dan kasih ke Doi
Sukses (Alhamdulillah)

<note: hapus file Save untuk kembali ke awal game>

System pada game :
1. kita masukkin nama kita sama target. setelah itu system melakukkan save otomatis.. jd gak bisa balik ke pengaturan nama, kecuali save2an di hapus..
2. target bakal baca kata2 yg aku buat, buat ngungkapin cinta. terus di sana ada jawaban terima atau tidak + pesannya.. nah system ngesave lagi..
3. jawab di terima/tidak sudah di tentukan.. tinggal game (CD/Flashdisk) nya aja lagi di balikin ke kita..

ini pke system perantara.. nice hoho..

Download : Disini !!

Kalau di terima, Alhamdulillah.. klo gak, jangan bersedih ya,berow.. Jangan ampe karena cinta di tolak ente nekat lompat dari pohon ke kali. Sayang nyawa bro. kita gak bisa respawn atau load kayak di game. Hidup itu emang rada kejam bro, pokoknya jalani aja terus ampe berakhir dengan sendirinya.

Game itu gak harus Perfect, yang penting Enjoyy.. :D

Baca Selengkapnya »

Pages

Contoh Program Array dan Record

Cara mengungkapkan perasaan anti mainstream