With ...do

Perintah with ...do adalah perintah untuk memeasukkan sekelompok data kedalam sebuah variable. Pada umumnya perintah digunakan untuk memasukkan data data ke dalam sebuah file bertype

 Contoh

Uses crt;

Type

Saya =record

Nama :string[15];

Umur:byte;

Alamat:string[20];

End;

Var

Datasaya:saya;

Begin

Clrscr;

With datasaya do

Write(‘Ketikan Nama : ‘);readln(nama);

Write(‘Ketikan Umur: ‘);readln(umur);

Write(‘Ketikan Alamat: ‘);readln(alamat);

Clrscr;

Writeln (‘Selanjutnya data-data sudah dapat’);

Writeln(‘disimpan kedalam file’);

Writeln;

Writeln(‘Nama: ‘,nama);

Writeln(‘Umur: ‘,umur);

Writeln(‘Alamat: ‘,alamat);

Readln;

End;

End.

Kembali ke Contoh Program Turbo Pacal