Question

write a program to update the rate increasing by 20% from sequential data file "item.dat"that store name,rate and quantity

Answer 1

Answer:

CLS

Open"Item.dat" For Input As #1

Open"Temp.dat" For Output As #2

While not EOF(1)

Input#1,N$,q,r

Write#2,N$,q,r+(20/100)*r

wend

close

kill"Item.dat"

Name"Temp.dat" As "Item.dat"

End

Answer 2

Answer:

written below-

Explanation:

CLS

Open”Item.dat” For Input As #1

Open”Temp.dat” For Output As #2

While not EOF(1)

Input#1,N$,q,r

Write#2,N$,q,r+(20/100)*r

wend

close

kill”Item.dat”

Name”Temp.dat” As “Item.dat”

End

#SPJ3