Perintah With..Do dalam Pascal
Jul 25, 2009 No Comments
With..Do adalah perintah untuk memasukkan sekelompok data kedalam sebuah variable. Pada umumnya perintah ini digunakan untuk memasukkan data – data kedalam sebuah file bertipe (type file).
Contoh program:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | Uses wincrt; Type Saya = record Nama : string [15]; Umur : byte; Alamat : string [20]; End; Var DataSaya : saya; Begin Clrscr ; With DataSaya do Begin Write ('ketik nama:');readln ( nama ); Write ('ketik umur:');readln (umur ); Write ('ketik alamat:');readln (alamat ); Clrscr; Writeln ('selanjutnya data yang sudah dapat'); Writeln ('disimpan kedalam sebuah record '); Writeln; Writeln ('nama :',nama); Writeln ('umur :',umur); Writeln ('alamat :',alamat); Readln; End; End. |