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.
sumber nusinau.com
|
Tidak ada komentar:
Posting Komentar