Mematikan Alt+F4

Jika kita membuat applikasi Delphi, kadang kala applikasi kita bisa di bunuh dengan hanya menekan tombol Alt+F4. Biar aman, dan sesuai prosedur applikasi, alangkah baiknya applikasi kita di create prosedur untuk mematikan hal tersebut. Ini sintaknya :

public
procedure AppMessage(var Msg: TMSG; var HAndled: Boolean);
end;
{...}

implementation
{...}

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
end;

procedure TForm1.AppMessage(var Msg: TMSG; var Handled: Boolean);
begin
  Handled := False;
  case Msg.Message of
  WM_SYSKEYDOWN:
  if Msg.wParam = VK_F4 then
  Handled := True; // don't allow ALT-F4
 end;
end; 

Looping dengan For

program loop2;
var
 i,j : integer;
 begin
  for i:=15 downto 1 do
   begin
    for j:=1 to i do
     write('*');
     writeln('');
   end;
end.

Menghitung (Luas, Keliling & Panjang Diagonal) Lingkaran dengan Pascal

Ketikan Scrip di Bawah ini

Cara Mengecek Kelulusan (Program Pascal)

Cara untuk mengecek kelulusan dengan program Pascal caranya adalah.. Masukan scrip program dibawah ini

Cara menggunakan Rumus (MIN, MAX & AVERAGE) di Microsoft Excel

Cara menggunakan Fungsi SUM, MAX, MIN dan Average di Microsoft Excel

1. Persiapkan data yang akan digunakan, Contoh :

2. Masukan Rumus pada sel

Lakukan yang sama untuk Nilai Terbesar dengan rumus =Max(B2:B20), dan Nilai Rata-rata yaitu =Average(B2:B20)

 3. Hasilnya

4. Selamat Mencoba