Perintah With..Do dalam Pascal

Jul 25, 2009 No Comments by Sahabat

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.
Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau
No Responses to “Perintah With..Do dalam Pascal”

Leave a Reply

You must be logged in to post a comment.