Scrip mencari nilai Max, Min, Rata-rata pada Turbo Pascal

Program Coba;

uses wincrt;
type x=array[1..100] of integer;
var bil : x;
i,n,jum,max,min:integer;
Rata:real;

begin
clrscr;
writeln(‘Program Menghitung Nilai Max, Min, & Rata-rata’);
writeln(‘______________________________________________’);
Writeln(”);
Write(‘Silakan Inputkan Data: ‘); Readln(n);
Writeln(”);

for i:= 1 to n do
begin
Writeln(‘Masukkan Bilangan ke ‘,i,’: ‘); Readln(bil[i]);
jum:=jum + bil[i]
End;

Writeln;
for i:= 1 to n do
begin
Writeln(‘nilai bilangan ke ‘,i,’ adalah: ‘ ,bil[i]);
End;

Writeln(”);
Writeln(‘Hasil Pergitungan Data adalah :’);
Rata:=jum/n;
Max:=bil[1];
Min:=bil[1];
for i:= 1 to n do

begin
if bil[i]>max then max:=bil[i];
if bil[i]<min then min:=bil[i]
end;

Writeln(”);
Writeln(‘Jumlah:’,jum);
Writeln(‘Rata-Rata:’,rata:0:2);
Writeln(‘Maximum:’,max);
Writeln(‘Minimum:’,min);
Readln;
End.

Scrip login in VB.NET 2008

Class LoginForm1

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Koneksi()
cmd = New OleDbCommand(“select * from Pemilik where Nama='” & UsernameTextBox.Text & “‘ and Pekerjaan='” & PasswordTextBox.Text & “‘”, Conn)
rd = cmd.ExecuteReader
rd.Read()
If rd.HasRows Then
Me.Visible = False
Tampil.Show()
Tampil.Panel1.Text = rd.GetString(0)

If Tampil.Panel3.Text <> “ADMINISTRATOR” Then
Tampil.PemilikToolStripMenuItem.Enabled = False
Else
Tampil.PemilikToolStripMenuItem.Enabled = True
End If
Else
MsgBox(“Login Salah, Periksa kembali User Name dan Password”)
UsernameTextBox.Clear()
PasswordTextBox.Clear()
UsernameTextBox.Focus()
End If

End Sub

Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub

Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lbtanggal.Text = Date.Now.ToString(“ddd-MMM-yyyy”)
Timer1.Enabled = True

End Sub

Private Sub UsernameTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles UsernameTextBox.KeyPress
If e.KeyChar = Chr(13) Then PasswordTextBox.Focus()
End Sub

Private Sub PasswordTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles PasswordTextBox.KeyPress

If Not (((e.KeyChar >= “A” And e.KeyChar <= “Z”) Or e.KeyChar >= “a” And e.KeyChar <= “z”) Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar >= “0” And e.KeyChar <= “9”) Then MsgBox(“Maaf tidak diperbolehkan menggunakan Angka”)
If (e.KeyChar = “!”) Or (e.KeyChar = “@”) Or (e.KeyChar = “#”) Or (e.KeyChar = “$”) Or (e.KeyChar = “%”) Or (e.KeyChar = “^”) Or (e.KeyChar = “&”) Or (e.KeyChar = “*”) Or (e.KeyChar = “(“) Or (e.KeyChar = “)”) Or (e.KeyChar = “_”) Or (e.KeyChar = “-“) Or (e.KeyChar = “+”) Or (e.KeyChar = “=”) Or (e.KeyChar = “,”) Or (e.KeyChar = “.”) Or (e.KeyChar = “<“) Or (e.KeyChar = “>”) Then MsgBox(“Maaf tidak bisa menggunakan simbol !@#$%^&*()_+<>,.-=”)
If e.KeyChar = Chr(13) Then OK.Focus()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
lbjam.Text = Date.Now.ToString(“hh:mm:ss”)
End Sub

End Class