Tuesday, 8 October 2013

Assalamu'alaikum wr. wb.
Kesempatan kali ini saya akan berbagi tentang algoritma dan pemrograman pascal if then else. Langsung saja ke contoh soalnya.

If...Then..Else..
Buatlah Program Seleksi Mahasiswa dengan input  Nama,Nomor pendaftaran, tinggi badan, umur,nilai bahasa indonesia, nilai bahasa Inggris, Nilai Matematika dengan ketentuan sebagai berikut :

Nomor pendaftaran diawali dengan 0

Output dinyatakan diterima apabila:
1. Tinggi badan >150
2. Umur <50
3. Nilai Bahasa Indonesia > 60
4. Nilai Bahasa inggris atau Matematika > 70

Baris Program
Uses wincrt;
Var  TB,U,BI,BING,MTK:Integer;
     Nama,Hasil,no:String[50];
begin
   Clrscr;
   Writeln('******Seleksi Mahasiswa******');
   Write('Nama                   :');readln(Nama);
   Write('Nomor Pendaftaran      :');readln(no);
   Write('Tinggi badan           :');readln(TB);
   Write('Umur                   :');readln (U);
   Write('Nilai Bahasa Indonesia :');readln (BI);
   Write('Nilai Bahasa Ingris    :');readln (BING);
   Write('Nilai Matematika       :');readln (MTK);
   If(TB>150)and (U<50) and (BI>60) and ((BING>70) or (MTK>70))
   then
   Hasil:='Anda diterima'
   Else
   Hasil:='Anda tidak diterima';
 Writeln('Keterangan             :',Hasil);
    Readln;
End.


Output program:



Sekian yang dapat saya sampaikan tentang pascal if ..then.. else semoga bermanfaat, Wasalamu'alikum wr.wb.


2 comments: