TASK
 Program Design Methods
 Create ProgramMid Semester UseData Submission program library














Prepared By:
Ciptoro06.230.0063



HIGH SCHOOL MANAGEMENT Informatics and ComputerWidya STMIK PRATAMAKOTA PEKALONGAN
2007Task mid semester
wincrt uses;var
 address, a, a, no, entry, exit, na, natural, mas, kel, kelll, Kell: array [1 .. 20] of string [20];
 na1, alam1, mas1, kel1, kell1: array [1 .. 20] of integer;
 nam, mats, kl, um, nom, st, stimuli, poly string,
 n, pills, m: longint;
additional procedure;begingotoxy (19.1); writeln ('_________________________________ ');gotoxy (20.2); writeln ('' pekalongan city library '');gotoxy (20.3); writeln ('jl.suka reading and learning');gotoxy (25.4), writeln ('tel. 729,998,568');gotoxy (17,5); writeln ('__________________________________');end;
rules of procedure;beginwriteln ('==================== ');writeln ('a list of rules:');writeln ('==================== ');writeln ('1. only Members of which may borrow books for a period of borrowing ');writeln ('2. bring Members of cards that are still valid ');writeln ('3. other than Members of sati are prohibited from borrowing more days, ');writeln ('must abandon or identification card. ")writeln ('4. long rental is 1 week from the date max borrowing ');writeln ('5. a fine of Rp 250 per day from the terms of repayment of return ');writeln ('6. memtuhi applicable rules and regulations of the library ');writeln ('7. cards containing the numbers so max 1 week after registration ');end;procedure select;beginwriteln ('=============================================== ================= ');writeln ('please select a number below:');writeln ('=============================================== ================= ');

writeln ('select number .1: list to be a member');writeln ('select no .2: the status of a member to borrow books');
writeln ('select No .3: borrowing not be a member');writeln ('select No .4: exit');writeln ('=============================================== ================= ');writeln ('Your choice of:');end;
                                 mn function: string;beginwriteln ('=============================================== ============== ');writeln ('data fill the following details:');writeln ('=============================================== =============== ');writeln;writeln ('* full name:');writeln ('* lengap address:');writeln ('* gender:');writeln ('* age:');writeln ('* status:');writeln ('* address of school / institution:');writeln ('* no identifier:');writeln;writeln ('=============================================== ============== ');writeln;end;
procedure q;begingotoxy (32.10); readln (nam);gotoxy (32.11); readln (mat);gotoxy (32.12); readln (kl);gotoxy (32.13); readln (um);gotoxy (32.14); readln (st);gotoxy (32.15); readln (stimuli);gotoxy (32.16); readln (nom);end;

cara1 procedure;beginwriteln ('how to fill out: the table below')
writeln ('1. input your name (10 digits max) ');
writeln ('2. katu identifier numbers you input (10 digits max) ');writeln ('3. input borrowing amount in the day long, ');writeln ('4. input code on the books borrowed ');writeln ('5. a fine of Rp 300 per day from the period of return ');end;
cara2 procedure;beginwriteln ('how to fill out: the table below');writeln ('1. input your name (10 digits max) ');writeln ('2. Members of numbers you input (max 10 digits '');writeln ('3. input your address (max 10 digits) ');writeln ('4. input borrowing amount in the day long, ');writeln ('5. input code in the book that borrowed ');writeln ('6. a fine of Rp 250 per day from the period of return ');end;
procedure is not;begin
 write ('* How much data will be inserted:');
  readln (N);
 (Gotoxy (2,7);) writeln ('====================================== ===========================');(Gotoxy (2,8);) writeln ('| No | name of the borrower | address | long pimjam | code of books |');(Gotoxy (2,9);) writeln ('====================================== ===========================');
for m: = 1 to n dobegingotoxy (2.9 m); write ('', m ,'.');gotoxy (1.16 m), write ('|'); readln (na [1]);gotoxy (6.16 m), write ('|'); readln (natural [1]);gotoxy (23.16 m), write ('|'); readln (mas [1]);gotoxy (36,16 m), write ('|'); readln (kel [1]);gotoxy (52.16 m), write ('|'); readln (Kell [1]);gotoxy (65.16 m), write ('|');end;end;
function column: string;beginwriteln;
write ('* how much data you will input the borrower'); readln (n);(Gotoxy (2,7);) writeln ('====================================== ========================================');(Gotoxy (2,8);) writeln ('| No | name of the borrower | no Members of | addresses | long pimjam | code of books |');(Gotoxy (2,9);) writeln ('====================================== ========================================');
for m: = 1 to n dobegin(Gotoxy (2.9 m); write ('', m ,'.');)gotoxy (1.17 m), write ('|'); readln (na [1]);gotoxy (6.17 m), write ('|'); readln (natural [m]);gotoxy (23.17 m), write ('|'); readln (mas [1]);gotoxy (36.17 m), write ('|'); readln (kel [1]);gotoxy (52.17 m), write ('|'); readln (Kell [1]);gotoxy (66.17 m), write ('|'); readln (kelll [1]);gotoxy (78.17 m), write ('|');end;end;

 asdf procedure;
 begin
 clrscr;
 repeat
 clrscr;
 appeared;
 mn;
 q;
 writeln;
 rules;
 writeln;write ('* if you want to repeat the writing? (repeat / no ):'); readln (poly); clrscr
 Until (poly = 'no') OR (poly = 'NO');
 end;

 dc procedure;
 begin
 repeat
 clrscr;
  appeared;
  cara2;
  column;
  writeln;

 writeln;
 write ("* if you want to repeat the writing? (repeat / no ):'); readln (poly); clrscr;
 Until (poly = 'no') OR (poly = 'NO');
 end;

  asd procedure;
  begin
  repeat
  clrscr;
  appeared;
  cara1;
  writeln;
  not;
  writeln;
  writeln;
  write ('* if you want to repeat the writing? (repeat / no ):'); readln (poly); clrscr;
 Until (poly = 'no') OR (poly = 'NO');
  end;


 selesei procedure;
  begin
  appeared;
  writeln;
 gotoxy (10,9), writeln ('hopefully useful what we have been provided');gotoxy (15.10); writeln ('thank you for visiting');writeln;gotoxy (6.11); writeln ('======================================== ===============');halt;end;
procedure already;
 begin
 repeat
 appeared;
 select;
 gotoxy (35.14); readln (pills);
  clrscr;
 case of the pill
 1: asdf;
 2: dc;
 3: asd;
 4: selesei
end;

 if the pill> 4 then writeln ('you are wrong memesukan number / not in the list');
 appeared;
 writeln;
 write ('* if you want to go back to the main menu option? (back / no ):'); readln (poly); clrscr;
 Until (poly = 'no') OR (poly = 'NO');end;
beginalready;end.