Jumat, 09 Desember 2011

Membuat Program Biodata Siswa Menggunakan Pernyataan Case Of dan If Then Else pada Turbo Pascal atau Free Pascal

Posted at 07.39 by thegudangupil

pada postingan kali ini saya akan berbagi dalam meramu program menggunakan pernyataan case of dan if then else, pada turbo pascal atau free pascal contoh programnya sebagai berikut :

program caseof;
var
grade,nama,email:string;
nis:string[8];
pilih:char;
nilai:integer;
begin

{opsi pilihan}
writeln('Silahkan pilih opsi yang tersedia');
writeln('1.Memasukan data siswa 2.Keluar');
write('Pilihan Anda:');
readln(pilih);
{pilihan pertama}
case pilih of
'1': begin
write('Masukan Nama Siswa:');
readln(nama);
write('masukan NIS (No Induk Siswa):');
readln(nis);
write('Masukan Email Siswa:');
readln(email);
write('Masukan Nilai Siswa:');
readln(nilai);

{untuk menentukan grade nilai}
if (nilai >=80) then
grade :='Baik Sekali'
else
if (nilai>=70) then
grade :='Baik'
else
if (nilai >= 60) then
grade:='Cukup'
else
grade:='Harus Mengulang';

{untuk menampilkan data yang di inputkan}
writeln('Data siswa yang telah diinputkan');
writeln('Nama :',nama);
writeln('NIS:',nis);
writeln('Email:',email);
writeln('Nilai:',nilai);
writeln('Grade:',grade);
end;

{pilihan kedua}
'2': begin
writeln('Anda akan mengakhiri program');
Exit;
end;
else
begin
Writeln('Pilihan anda tidak tepat');
Exit;
end;
end;
readln;
end.

singkat cerita bahwa program ini menyajikan pilihan pada tampilan awal, opsi pertama untuk mengisi data siswa dan opsi kedua untuk keluar dari program, dalam opsi pertama berisikan isian yang harus dinputkan oleh pengguna mengenai biodata dan nilai grade siswa sehingga akan tampil hasil dari grade yang dimasukan seperti contoh hasil di bawah ini :

untuk tampilan hasilnya adalah sebagai berikut :

kemudian bila kita pilih angka 1 pada opsi pilihan makan akan tampil isian untuk dinputkan pada hasil di gambar saya contohkan memasukan satu data siswa bernama Fera Marquise