teg'lografis.com///// visual basic nilai mahasiswa

VISUAL BASIC NILAI MAHASISWA

Private Sub cmd_Exit_Click()

    Unload Me

    MsgBox ("Terima Kasih")

End Sub

Private Sub cmd_Proses_Click()

    If Text2.Text <= 55 Then

    Text3.Text = "TIDAK LULUS"

    Else

    Text3.Text = "LULUS"

    End If

End Sub

TEGLOGRAFIS.COM//////PASCAL NILAI MAHASISWA

PASCAL NILAI MAHASISWA

uses wincrt;

var

    nama, ket : string;

    nilai    : integer;

begin

    writeln('Nama:'); readln(nama);

    writeln('Nilai:'); readln(nilai);

    if(nilai)<=55 then

    ket := "TIDAK LULUS"

    else

    ket := "LULUS"

    writeln('Nama:',nama);

    writeln('Nilai:',nilai);

    writeln('Keterangan:',ket);

  end.