CAMKU petruk

1.   PROSES JALAN APLIKASINYA.

pendaftaran siswa baru.

     seorang calon siswa mendaftarkan diri ke sekolah dengan mengisi formulir seperti nama, tanggal lahir, alamat , dll. setelah itu calon siswa harus mengikuti tes akademik dahulu sebagai syarat di terimannya di sekolah tersebut. adapun klasifikasinya adalah:

•   diterima jika mendapat nilai 60 keatas.
•   jika lulus harus membayar uang registrasi sebesar 500.000.
•   untuk urutan kelas juga ditentukkan berdasarkan nilai hasil tpa.
•   jika diatas 90 dapat kelas favorit, jika di bawah 90 namun diatas 80 maka akan dapat kelas A, jika diatas 70 namun dibawah 80 dapat B.

1. BENTUK  ALGORITMA DARI BAHASA PEMROGRAMAN.

input('nama')

input('TTL')

input('alamat')

input('nama ortu')

output ('kode kelas')

output('hasil tpa')

  

   if nilai_tpa = 90 then

             keterangan = ' LULUS'

             kode kelas = 'Favorite'

if nilai_tpa = 80-89 then

             keterangan = ' LULUS'

             kode kelas = 'A'

if nilai_tpa = 70-79 then

             keterangan = ' LULUS'

             kode kelas = 'B'

if nilai_tpa = 60-69 then

             keterangan = ' LULUS'

             kode kelas = 'C'

else 

if nilai_tpa = 20-59 then

             keterangan = ' TIDAK LULUS'

             kode kelas = 'kelas tidak ditemukkan!'

1. DESIGN PROGRAM.

TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    SpinEdit1: TSpinEdit;

    SpinEdit2: TSpinEdit;

    SpinEdit3: TSpinEdit;

    Panel1: TPanel;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    Label5: TLabel;

    GroupBox1: TGroupBox;

    Rnilai90: TRadioButton;

    rnilai80: TRadioButton;

    rnilai70: TRadioButton;

    rnilai20: TRadioButton;

    Edit3: TEdit;

    Label6: TLabel;

    Button1: TButton;

1. MASUKKAN SOURCE CODE PROGRAM.

procedure TForm1.Rnilai90Click(Sender: TObject);

begin

    if rnilai90.checked='true'

    then

    tket:='LULUS'

    tkelas:='Favorit';

end;

procedure TForm1.rnilai80Click(Sender: TObject);

begin

    if rnilai80.checked='true'

    then

    tket:='LULUS'

    tkelas:='A';

end;

procedure TForm1.rnilai70Click(Sender: TObject);

begin

if rnilai70.checked='true'

    then

    tket:='LULUS'

    tkelas:='B';

end;

procedure TForm1.rnilai70Click(Sender: TObject);

begin

if rnilai20.checked='true'

    then

    tket:='Tidak lulus'

    tkelas:='Nothing';

end;

end.

thank you.