program fungsi koneksi internet Wi-Fi

Program fungsi ;

Uses crt ;

Function koneksi ;  (a,b : integer) : integer;

Begin

If a > b then

Besar := a

Else

Besar := b;

End;

Var

                A,b : integer ;

Begin    

                Clrscr;

                Write (‘ koneksi pada saat ini terhubung’); readln (a);

                Writeln;

                Write (‘ koneksi pada saat ini terputus’); readln(b);

                Writeln;

                Readln;

End.

Analisa program

pada saat hubungan koneksi pada Wi-Fi sedang kecil maka sambungan pada internet akan terputus tetapi jika koneksi sedang besar maka koneksi akan terhubung. Dan apabila koneksi terhubung maka akan muncul tulisan connect apabila tidak terhubung maka akan menampilkan tulisan disconnect  pada layar .