آقا محمد اگه لطف کنی برنامه رو بنویسی بعد اشکالتو بپرسی فکر کنم زودتر راه بیفتی...راه افتادن از اون لحاظ
1 uses wincrt;
2
3 type
4 MemberInfo = array[1..100,1..3] of string[30];{First name,Last Name ,Books}
5 Bookinfo = array[1..500,1..3] of string[20];{Book name ,Author name ,Book code,}
6 MemberCode = array[1..100] of integer;{Member Code}
7
8 var
9 mi : memberinfo;
10 bi : bookinfo;
11 mc : membercode;
12 sc,i,j,mm,mb : integer;
13 procedure starting;
14 begin
15 writeln(' * L I B R A R Y S Y S T E M *');
16 writeln;
17 Writeln(' What You Want To Do?');
18 writeln;
19 writeln('* Add Member : 01');
20 writeln('* Add Book : 02');
21 writeln('* Find Member : 03');
22 writeln('* View All Member : 04');
23 writeln('* View All Book : 05');
24 writeln('* Find Book : 06');
25
26 writeln;
27 writeln('Enter Service Code :');
28 readln(sc);
29 clrscr;
30
31
32 end;
33 procedure scanmember;
34
35 var
36 n,i,j : integer;
37 k : char;
38 begin
39
40 writeln(' * A D D M E M B E R S Y S T E M *');
41 writeln;
42
43 while n > 100 do
44 begin
45 writeln('Enter Number of Member you want to add');
46 readln(n);
47 mm:=mm+n;
48
49
50 if n > 100 then
51 begin
52 writeln('You can only Enter 100 Member!');
53 mm:=mm-n;
54 end;
55 for i:= 1 to n do
56 begin
57 for j:= 1 to 3 do
58 begin
59 case j of
60
61
62 2:
63 begin
64 writeln('Enter Last name of Member :');
65 readln(mi[i,2]);
66 end;
67 1:
68 begin
69 writeln('Enter First name of Member :');
70 readln(mi[i,1]);
71 end;
72 3:
73 begin
74 writeln('Enter Member Code :');
75 readln(mc[i]);
76 end;
77
78 end;
79 end;
80 writeln;
81 writeln('Entering Data Compelited');
82 writeln;
83 writeln('* ',mi[i,1],' ',mi[i,2],' ',' Accunt Sucssecfuly Created');
84 writeln;
85 if i<>n then
86 writeln('Now Enter Data of Member ',i+1);
87 end;
88 Writeln('Entering Data for ',n,' Member Completed');
89 writeln;
90 writeln('For Continue Press Enter');
91 readln;
92 clrscr;
93 starting;
94
95 end;{End of procedure scanmember}
96 end;
97
98 procedure scanbook;
99 var
100 n,i,j : integer;
101 k : char;
102 begin
103
104 writeln(' * A D D B O O K S Y S T E M *');
105 writeln;
106
107
108
109 writeln('Enter Number of Book you want to add');
110 readln(n);
111 mb:=mb+n;
112
113
114 if n > 1000 then
115 begin
116 writeln('You can only Enter 1000 Book!');
117
118
119 for i:= 1 to n do
120 begin
121 for j:= 1 to 3 do
122 begin
123 case j of
124
125
126 1:
127 begin
128 writeln('Enter Name of Book :');
129 readln(bi[i,1]);
130 end;
131 2:
132 begin
133 writeln('Enter Name of Book Author :');
134 readln(bi[i,2]);
135 end;
136 3:
137 begin
138 writeln('Enter Book Code :');
139 readln(bi[i,3]);
140 end;
141
142 end;
143 end;
144 writeln;
145 writeln('Entering Data Compelited');
146 writeln;
147 writeln('* ',bi[i,1],' ',bi[i,2],' Book Sucssecfuly Added');
148 writeln;
149 if i<>n then
150 writeln('Now Enter Data of Book ',i+1);
151 end;
152 Writeln('Entering Data for ',n,' Book Completed');
153 writeln;
154 writeln('For Continue Press Enter');
155 readln;
156 clrscr;
157 starting;
158
159 end;{End of procedure scanbook}
160 end;
161
162 procedure findmember;
163 var
164 cc : longint;
165 flag1,sci : integer;
166 begin
167 writeln(' * S E A R C H I N G S Y S T E M : B Y M E M B E R C O D E *');
168 writeln;
169 writeln('Enter Member Code which you want to search');
170 readln(cc);
171 flag1:= 0;
172 sci:=1;
173 while (sci<100) and (flag1=0) do
174 begin
175 if (cc=mc[sci]) then
176 begin
177 writeln('Data Found!');
178 writeln('*******************************************************************************');
179 writeln('*');
180 writeln('* Full name : ',mi[sci,1],' ',mi[sci,2]);
181 writeln('* Member Code : ',mc[sci]);
182 writeln('* ');
183 writeln('* Book''s : ',mi[sci,3]);
184 writeln('* ');
185 writeln('*');
186 writeln('*******************************************************************************');
187 flag1:= 1;
188 end;
189 inc(sci);
190 end;
191 if flag1=0 then
192 Writeln('Member Not Found');
193 writeln;
194 writeln('For Continue Press Enter');
195 readln;
196 clrscr;
197 starting;
198 end;{End of procedure search code}
199
200 procedure findbook;
201 var
202 l : string[30];
203 flag,sni : integer;
204
205 begin
206 writeln(' * S E A R C H I N G S Y S T E M : B Y B O O K N A M E *');
207 writeln;
208 writeln('Enter book name which you want to search');
209 readln(l);
210 flag:= 0;
211 sni:=1;
212 while (sni<100) and (flag=0) do
213 begin
214 if l=bi[sni,1] then
215 begin
216 writeln('Data Found!');
217 writeln;
218 writeln('*******************************************************************************');
219 writeln('*');
220 writeln('* Book name : ',bi[sni,1]);
221 writeln('* Book Code : ',bi[sni,3]);
222 writeln('* Author : ',bi[sni,2]);
223 writeln('* ');
224 writeln('* ');
225 writeln('*');
226 writeln('*******************************************************************************');
227 flag:= 1;
228 end;
229 inc(sni);
230 end;
231 if flag=0 then
232 Writeln('Book Not Found');
233 writeln;
234 writeln('For Continue Press Enter');
235 readln;
236 clrscr;
237 starting;
238 end;{End of procedure search book name}
239
240 procedure showallmember;
241 begin
242 writeln(' * V I E W A L L M E M B E R A C C U N T S Y S T E M *');
243 writeln;
244 writeln('*******************************************************************************');
245 writeln('* Full Name * Member Code * Books * *');
246 writeln('*******************************************************************************');
247 for i:= 1 to mm do
248 begin
249 write(' ',mi[i,1],' ',mi[i,2]);
250 write(' ':5,mc[i]);
251 write(' ':5,mi[i,3]);
252
253
254 end;
255 writeln('*******************************************************************************');
256
257 writeln;
258 writeln('For Continue Press Enter');
259 readln;
260 clrscr;
261 starting;
262 end;{End of procedure show member}
263
264 procedure showallbook;
265 begin
266 writeln(' * V I E W A L L B O O K S Y S T E M *');
267 writeln;
268 writeln('*******************************************************************************');
269 writeln('* Book Name * Author Name * Book Code * *');
270 writeln('*******************************************************************************');
271 for i:= 1 to mb do
272 begin
273 write(' ',bi[i,1]);
274 write(' ':5,bi[i,2]);
275 write(' ':5,bi[i,3]);
276
277
278 end;
279 writeln('*******************************************************************************');
280
281 writeln;
282 writeln('For Continue Press Enter');
283 readln;
284 clrscr;
285 starting;
286 end;{End of procedure show book}
287
288 procedure afterstarting;
289 begin
290 case sc of
291 01:
292 scanmember;
293 02:
294 scanbook;
295 03:
296 findmember;
297 04:
298 showallmember;
299 05:
300 showallbook;
301 06:
302 findbook;
303
304 else
305 begin
306 writeln('* With Code: ',sc,' We Dont Have Service!!!');
307 starting;
308 end;
309
310
311 end;
312 end;
313
314
315 begin
316 starting;
317 afterstarting;
318 afterstarting;
319 afterstarting;
320 afterstarting;
321 afterstarting;
322 afterstarting;
323 afterstarting;
324 afterstarting;
325 afterstarting;
326 afterstarting;
327 afterstarting;
328 afterstarting;
329 afterstarting;
330 afterstarting;
331 afterstarting;
332 afterstarting;
333 afterstarting;
334 afterstarting;
335 end.
336
کل برنامه به یه طرف اون آخرش هم به دو طرف که نمیدونم چیکار میکنه...
با تشکر از
Tajarenezhad@Gmail.com
