Untuk mencari byte tertinggi dari sebuah argumen. untuk lebih jelas lihat Perintah swap
Contoh
Uses crt;
Begin
Clrscr;
Writeln(‘Versi DOS anda adalah: ‘,Lo(DosVersion),hi(dosversion));
Readln;
End.
Kembali ke Contoh
Program Turbo Pacal
No comments:
Post a Comment