Hendra Array & Record
Apr 15, 2009 No Comments
Contoh program data pribadi dengan pascal
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 27 28 29 30 31 | USES WINCRT; TYPE DATA = RECORD NAMA : STRING[25]; ALAMAT : STRING[30]; JK : STRING ; TELP : STRING [10]; TANGGALLAHIR : STRING[20] ; END; VAR a : data; JAWABAN : CHAR; BEGIN REPEAT CLRSCR; BEGIN WRITE ('NAMA :');READLN(a.NAMA); WRITE ('ALAMAT :');READLN (a.ALAMAT); WRITE ('JK ;');READLN (a.JK); WRITE ('TELP :');READLN (a.TELP); WRITE ('TANGGAL LAHIR :');READLN (a.TANGGALLAHIR); WRITELN; WRITELN('NAMA ANDA :',a.NAMA); WRITELN ('ALAMAT ANDA : ',a.ALAMAT); WRITELN ('JK :',a.JK); WRITELN ('TELP :',a.TELP); WRITELN ('TANGGAL LAHIR :', a.TANGGALLAHIR); WRITELN ('APAKAH ANDA AKAN ENTRI DATA LAGI(Y/T):'); READLN(JAWABAN); end; UNTIL (JAWABAN='T'); end. |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | program arrayku; uses wincrt; var angka:array[1..100] of integer; i,n:integer; begin clrscr; writeln('Jumlah data : ');readln(n); for i:=1 to n do begin writeln('Masukkan angka ke-',i,':');readln(angka[i]); end; writeln; for i:=1 to n do writeln('Angka ke-',i,':',angka[i]); End. |