program nomorduaenam;
type mahasiswa = record
nama : array [0..9999] of string;
umur : array [0..9999] of integer;
end;
var i,C, urutan : integer ;
hasil : boolean;
N : mahasiswa;
cari : string;
begin
write ('Masukkan jumlah mahasiswa: '); readln (C);
writeln('');
writeln ('======================================');
i:=1;
repeat
writeln ('Masukkan data ke-', i);
write ('Masukkan nama mahasiswa : '); readln ( N.nama[i]);
write ('Masukkan umur mahasiswa: '); readln (N.umur [i]);
writeln ('======================================');
i:=i+1;
until i>C;
write ('Cari data mahasiawa: '); readln (cari);
for i := 1 to C do
if N.nama[i]= cari then
begin
hasil := true;
urutan := i;
end;
if hasil then
writeln (N.nama[urutan],'-',N.umur[urutan])
else
writeln ('tidak ada mahasiswa dengan nama tersebut !!!!!!!!');
readln;
end.
Silahkan download dev-pascal (freepascal).
Dan coba.
Inilahalah rutinitas yang saya jalani sehari-hari. ALPRO !
type mahasiswa = record
nama : array [0..9999] of string;
umur : array [0..9999] of integer;
end;
var i,C, urutan : integer ;
hasil : boolean;
N : mahasiswa;
cari : string;
begin
write ('Masukkan jumlah mahasiswa: '); readln (C);
writeln('');
writeln ('======================================');
i:=1;
repeat
writeln ('Masukkan data ke-', i);
write ('Masukkan nama mahasiswa : '); readln ( N.nama[i]);
write ('Masukkan umur mahasiswa: '); readln (N.umur [i]);
writeln ('======================================');
i:=i+1;
until i>C;
write ('Cari data mahasiawa: '); readln (cari);
for i := 1 to C do
if N.nama[i]= cari then
begin
hasil := true;
urutan := i;
end;
if hasil then
writeln (N.nama[urutan],'-',N.umur[urutan])
else
writeln ('tidak ada mahasiswa dengan nama tersebut !!!!!!!!');
readln;
end.
Silahkan download dev-pascal (freepascal).
Dan coba.
Inilahalah rutinitas yang saya jalani sehari-hari. ALPRO !