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).
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.
|
Tidak ada komentar:
Posting Komentar