Tugas pemograman 2 ( Array Dan Record)

Posted: May 16, 2011 in Pemograman Dasar Semester 2

NAMA : AGUNG SUKMA PRASETYA

NIM     : 3105 111 175

KELAS : TEKNIK INFORMATIK

TUGAS PEMOGARAMAN DASAR 2 ( ARRAY DAN RECORD )

Turbo pascal

uses wincrt;
type data=record
nik :integer;
nama :string;
umur :byte;
pekerjaan:string;
end;
larik=array[1..20] of data;
var dat:larik;
i,n:byte;
lagi:char;
ketemu:boolean;
dummy:data;
posisi:byte;
cari:integer;

begin

lagi:=’y’;
n:=0;
while lagi=’y’ do
begin
n:=n+1;
writeln(‘isi data data ke ‘,n);
write(‘masukkan NIK= ‘);readln(dat[n].nik);
write(‘masukkan nama= ‘);readln(dat[n].nama);
write(‘masukkan umur= ‘);readln(dat[n].umur);
write(‘masukkan pekerjaan= ‘);readln(dat[n].pekerjaan);

write(‘mau isi data lagi<y/t> ? ‘);readln(lagi);
end;
clrscr;
writeln;
writeln(‘Tabel Data Penduduk’);
writeln(‘————————————————–‘);
writeln(‘No   |NIK    |Nama     |Umur     |Pekerjaan      |’);
writeln(‘————————————————–‘);
for i:=1 to n do with dat[i] do writeln(i:5, ‘|’,”,nik:7,’|’,”,nama:9,’|’,”,umur:9,’|’,”,pekerjaan:15,’|’);
writeln(‘————————————————–‘);
writeln;
lagi:=’y’;
while lagi=’y’ do
begin
write(‘masukkan nik yang dicari= ‘);readln(cari);
ketemu:=false;
for i:=1 to n do if dat[i].nik=cari then begin ketemu:=true;
posisi:=i;
end;
if ketemu then writeln(‘nik’,cari,’ada di dalam data posisi ke ‘,posisi)
else writeln(‘nik’,cari,’data tidak ditemukan’);
writeln;
write(‘apa akan mencari nik lain <y/t> ? ‘);
readln(lagi);
end;

end.

Delphi

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

type data=record
nik :integer;
nama :string;
umur :byte;
pekerjaan:string;
end;
larik=array[1..20] of data;
var dat:larik;
i,n:byte;
lagi:char;
ketemu:boolean;
dummy:data;
posisi:byte;
cari:integer;

begin

lagi:=’y’;
n:=0;
while lagi=’y’ do
begin
n:=n+1;
writeln(‘isi data data ke ‘,n);
write(‘masukkan NIK= ‘);readln(dat[n].nik);
write(‘masukkan nama= ‘);readln(dat[n].nama);
write(‘masukkan umur= ‘);readln(dat[n].umur);
write(‘masukkan pekerjaan= ‘);readln(dat[n].pekerjaan);

write(‘mau isi data lagi<y/t> ? ‘);readln(lagi);
end;

writeln;
writeln(‘Tabel Data Penduduk’);
writeln(‘————————————————–‘);
writeln(‘No   |NIK    |Nama     |Umur     |Pekerjaan      |’);
writeln(‘————————————————–‘);
for i:=1 to n do with dat[i] do writeln(i:5, ‘|’,”,nik:7,’|’,”,nama:9,’|’,”,umur:9,’|’,”,pekerjaan:15,’|’);
writeln(‘————————————————–‘);
writeln;
lagi:=’y’;
while lagi=’y’ do
begin
write(‘masukkan nik yang dicari= ‘);readln(cari);
ketemu:=false;
for i:=1 to n do if dat[i].nik=cari then begin ketemu:=true;
posisi:=i;
end;
if ketemu then writeln(‘nik’,cari,’ada di dalam data posisi ke ‘,posisi)
else writeln(‘nik’,cari,’data tidak ditemukan’);
writeln;
write(‘apa akan mencari nik lain <y/t> ? ‘);
readln(lagi);
end;

end.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s