5
pinsilok
2500
30
pulpen
5000
20
penggaris
7000
10
buku tulis
10000
20
penghapus
5000
25
catatan : data teratas menunjukkan jumlah data
Kelompok 0 :
Buatlah program pascal untuk menambah data baru dengan input nama barang, harga barang, dan jumlah stok. Data yang diinput akan diletakkan di akhir file dd.txt.
Kelompok 2 :
Buatlah program pascal untuk menghapus salah satu data barang dengan input nama barang. Data yang diinput beserta harga dan stoknya akan terhapus di file dd.txt.
Kelompok 4 :
Buatlah program pascal untuk mengedit/mengubah stok salah satu data barang dengan input nama barang dan stok baru. Data yang diinput akan mengubah data stok barang yang bersangkutan di file dd.txt.
Kelompok 6 :
Buatlah program pascal untuk mengurutkan data berdasarkan nama barang dimulai dari abjad yang terkecil. Data baru yang diurutkan beserta harga dan stoknya akan tersimpan di file dd.txt.
Kelompok 8 :
Buatlah program pascal untuk mencari data berdasarkan nama barang. Data barang yang dicari beserta harga dan stoknya akan tampil di layar.
Tuliskan jawaban pada comment dibawah, lengkap dengan nim dan nama anggota kelompok.
Jawaban disampaikan paling lama tanggal 5 Desember 2016 jam 23.00.
This comment has been removed by the author.
ReplyDeleteNama Kelompok 8:
ReplyDelete1. Agung Tuah Ananda D1041151018
2. Dewi Yanti Klau D1041151048
3. Muhammad Raka Umbara D1041151058
4. Royhan Restiandi D1041151078
5. Muhammad Maulana D1041151068
6. Amsar D1041151008
var
barang :text;
t,cariBarang: string;
ketemu:boolean;
begin
ketemu:=false;
assign(barang, 'barang.txt');
reset(barang);
writeln('File di buka');
write('barang yang di cari : ');
read(cariBarang);
while not eof(barang) do
begin
readln(barang, t);
if t=cariBarang then
begin
ketemu:=true;
write('nama barang : ');
writeln(t);
readln(barang, t);
write('harga : ');
write(t);
writeln(' Rupiah');
readln(barang, t);
write('stok : ');
write(t);
writeln(' buah');
end;
end;
if ketemu=false then writeln('barang yang anda cari tidak ketemu, cek nama input yang anda cari');
CloseFile(barang);
writeln('File di tutup');
end.
Nama kelompok 6:
ReplyDeleteD1041151006 Tri Januardi
D1041151016 Ulfatur Rahmah
D1041151046 Jonathan Onna Patalas
D1041151056 Marlinda Puji Lestari
D1041151066 Risnu Arya Kusuma
D1041151076 Rendi Apriandy
var
item: text;
nama:array [1..100] of string;
harga:array [1..100] of integer;
stok:array [1..100] of integer;
jumlahdata,c,x,v:integer;
q:string;
begin
assign(item,'dd.txt');
reset (item);
readln (item,jumlahdata);
writeln ('Jumlah Data : ',jumlahdata);
writeln;
for c:=1 to jumlahdata do
begin
readln (item, nama[c]);
readln (item, harga[c]);
readln (item, stok[c]);
end;
close(item);
for c:=1 to jumlahdata do
begin
write (nama[c],' ',harga[c],' ',stok[c]);
writeln;
end;
writeln;
writeln('Enter untuk mengurutkan');
readln;
for c:= 2 to jumlahdata do
for x:=c downto 2 do
begin
if nama[x] < nama[x-1] then
begin
q:=nama[x-1];
nama[x-1]:=nama[x];
nama[x]:=q;
v:=harga[x-1];
harga[x-1]:=harga[x];
harga[x]:=v;
v:=stok[x-1];
stok[x-1]:=stok[x];
stok[x]:=v;
end;
end;
writeln('Nama Berurut :');
writeln;
for c:=1 to jumlahdata do
begin
write (nama[c],' ',harga[c],' ',stok[c]);
writeln;
end;
assign(item,'dd.txt');
rewrite(item);
writeln(item,jumlahdata);
for c:= 1 to jumlahdata do
begin
writeln(item,nama[c]);
writeln(item,harga[c]);
writeln(item,stok[c]);
end;
close (item);
end.
Nama kelompok 2:
ReplyDeleteD1041151002 Ray putra Leonardo Tobing
D1041151032 Bogi kris katulistyo
D1041151042 Toman mamora situmeang
D1041151052 Muhlisun Amal
D1041151062 Ifan varian
D1041151072 Achmed Zakqie P.
var
item: text;
nama:array [1..100] of string;
harga:array [1..100] of integer;
stok:array [1..100] of integer;
jumlahdata,c,v,j,t:integer;
hapus:char;
barang,q:string;
ketemu:boolean;
begin
assign(item,'dd.txt');
reset (item);
readln (item,jumlahdata);
writeln ('Jumlah Data : ',jumlahdata);
writeln;
for c:=1 to jumlahdata do
begin
readln (item, nama[c]);
readln (item, harga[c]);
readln (item, stok[c]);
end;
close (item);
for c:=1 to jumlahdata do
begin
write (nama[c],' ',harga[c],' ',stok[c]);
writeln;
end;
writeln;
repeat
begin
ketemu:=false;
writeln('hapus entri? y/n');
readln(hapus);
if hapus = 'y' then
begin
writeln('Nama Barang yang akan dihapus :');
readln(barang);
for t:= 1 to jumlahdata do
if nama[t] = barang then
begin
j:=t;
ketemu:=true;
for c:=j to jumlahdata do
begin
q:=nama[c+1];
nama[c+1]:=nama[c];
nama[c]:=q;
v:=harga[c+1];
harga[c+1]:=harga[c];
harga[c]:=v;
v:=stok[c+1];
stok[c+1]:=stok[c];
stok[c]:=v;
end;
jumlahdata:=jumlahdata-1;
end;
end;
writeln;
if ketemu = true then
begin
writeln('Jumlah Data : ',jumlahdata);
writeln;
for c:=1 to jumlahdata do
begin
write (nama[c],' ',harga[c],' ',stok[c]);
writeln;
end;
writeln;
end
else
writeln('Data tidak ditemukan');
assign(item,'dd.txt');
rewrite(item);
writeln(item,jumlahdata);
for c:= 1 to jumlahdata do
begin
writeln(item,nama[c]);
writeln(item,harga[c]);
writeln(item,stok[c]);
end;
close (item);
end;
until hapus = 'n';
end.
Kelompok 4
ReplyDeleteNIM dan Nama Anggota :
D1041151014 - Yayang Sari
D1041151024 - Mary Rumondang Asima Manurung
D1041151034 - Hari Abri Yanto
D1041151044 - Ujie Regian Iberto
D1041151054 - Andi Ahmad Mulya
D1041151064 - Cahyo Kartiko
D1041151074 - Halim
D1041141074 - Syahrudin
Program Pascal :
var
item : text;
nama : array [1..100] of string;
harga : array [1..100] of integer;
stok : array [1..100] of integer;
jumlahdata,c : integer;
edit : char;
barang : string;
ketemu : boolean;
begin
assign(item,'dd.txt');
reset (item);
readln (item,jumlahdata);
writeln ('Jumlah Data : ',jumlahdata);
writeln;
for c:=1 to jumlahdata do
begin
readln (item, nama[c]);
readln (item, harga[c]);
readln (item, stok[c]);
end;
for c:=1 to jumlahdata do
begin
write (nama[c],' ',harga[c],' ',stok[c]);
writeln;
end;
writeln;
close (item);
ketemu := false;
repeat
begin
writeln ('Edit entri? y/n');
readln (edit);
if edit = 'y' then
begin
writeln ('Ketik nama barang yang akan diedit :');
readln (barang);
for c:= 1 to jumlahdata do
if nama[c] = barang then
begin
ketemu:=true;
writeln ('Entri Barang Baru :');
readln (nama[c]);
writeln ('Entri Harga Barang :');
readln (harga[c]);
writeln ('Entri Stok Barang :');
readln (stok[c]);
end;
end;
writeln;
if ketemu = true then
begin
writeln ('Jumlah Data : ',jumlahdata);
writeln;
for c := 1 to jumlahdata do
begin
write (nama[c],' ',harga[c],' ',stok[c]);
writeln;
end;
writeln;
end
else
writeln ('Data barang tidak ditemukan');
assign (item,'dd.txt');
rewrite (item);
writeln (item,jumlahdata);
for c:= 1 to jumlahdata do
begin
writeln (item,nama[c]);
writeln (item,harga[c]);
writeln (item,stok[c]);
end;
close (item);
end;
until edit = 'n';
end.
This comment has been removed by the author.
ReplyDeleteKELOMPOK 0
ReplyDeleteD1041151050 NURUL FATIMAH MAULIDIYA
D1041151040 RIDHO KURNIAWAN
D1041151010 WAHYU GUNAWAN
D1041151070 ELITA DA NELLA
D1041151060 IKRAM AMARUL ARSY
var
brg :text;
jumlahdata,c: integer;
nama_barang:array [1..100] of string;
harga_barang:array [1..100] of integer;
stok_barang:array [1..100] of integer;
sudah:char;
begin
assign(brg,'mahasiswa.txt');
reset (brg);
readln (brg,jumlahdata);
writeln ('jumlah data : ',jumlahdata);
writeln;
for c:=1 to jumlahdata do
begin
readln (brg, nama_barang[c]);
readln (brg, harga_barang[c]);
readln (brg, stok_barang[c]);
end;
for c:=1 to jumlahdata do
begin
writeln (nama_barang[c],':',harga_barang[c],':',stok_barang[c]);
writeln;
writeln;
end;
repeat
writeln('Entry Baru? Y/N');
readln(sudah);
if sudah = 'y' then
begin
jumlahdata:=jumlahdata+1;
writeln('Masukkan Nama_Barang Baru');
readln(nama_barang[jumlahdata]);
writeln('Masukkan Harga_ barang Baru');
readln(harga_barang[jumlahdata]);
writeln('Masukkan Stok_ barang Baru');
readln(stok_barang[jumlahdata]);
end;
until sudah = 'n';
writeln ('jumlah data : ',jumlahdata);
for c:=1 to jumlahdata do
begin
write (nama_barang[c],':',harga_barang[c],':',stok_barang[c]);
writeln;
end;
writeln;
readln;
close (brg);
assign(brg,'mahasiswa.txt');
rewrite(brg);
writeln(brg,jumlahdata);
for c:= 1 to jumlahdata do
begin
writeln (brg, nama_barang[c]);
writeln (brg, harga_barang[c]);
writeln (brg, stok_barang[c]);
end;
close (brg);
end.
good artikel,thanks my campus
ReplyDeleteThis comment has been removed by a blog administrator.
ReplyDelete