Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #72.7K
|
Program sifrarnik; Uses sysutils; Type myrecord=Record num:integer; itemname:String[20]; price:Integer; End; Var data:array[1..10] of myrecord; doc:file of myrecord; operatingnum:integer;//item number used for reading and writeing into base error1,choice1,i,j,n,a:integer; begin Repeat Begin WriteLn('1. Add items date':10); WriteLn('2. See items data':10); WriteLn('3. Close'); Write('Chose: ':10); ReadLn(choice1); Case choice1 of 1 : Begin Assign(doc,'myfile.dat'); …
|