From: jotel99@hotmail.com   
      
   John Smith typed:   
      
   .. and is still not able to do correct postings .. but at least tries to   
   help another blind one - with ugly code that has to be corrected.   
      
   "science guy" :)   
   >> Hello people. I am doing a program that uses multi-dimensional arrays   
   >> to creat a tic-tac-toe program.   
   >>   
   >> Can anyone help me get started? Oh and should I use procedures or   
   >> functions?   
      
   > Here is the code to create an array and zero the array (spaces would   
   > be better )   
   > also, the code to write out the array should give you a clear picture   
   > of accessing the two dimensional elements...   
   > program tic;   
   >   
   > USES   
   >    crt;   
   >   
   > TYPE   
   >    ticarray = ARRAY[1..3] of ARRAY[1..3] OF INTEGER;   
      
   if u like chars more why not make it array of char then?   
      
   like ticarray = array[1..3,1..3] of char?   
      
   >   
   > Var   
   >    t:  ticarray;   
   >    r, c, x:  integer;   
   >   
   > PROCEDURE cleararray;   
   >    BEGIN   
   >       r := 1;   
   >       c := 1;   
   >       x := 0;   
      
   modifing global vars? - ever herad of side effects?   
   why not make them local?   
   why not use procedure cleararray(var t: ticarray)?   
   why did u declare the type b4 - when not using it?   
      
   >       while r < 4 do   
      
   while? why?   
   not runing from 1 -3 ? expecting errors/expections?   
      
   if it is clear that is is 1-3 why not use for localvar1:=1 to 3 do ...   
      
   >          BEGIN   
      
   why begin here? - ahh yes. u have to reset some global vars after the   
   nested loop   
      
   >             while c < 4 do   
   >                BEGIN   
      
   same again   
      
   >                   t[r,c] := x;   
   >                   c := c+1;   
   >                END;   
   >             c := 1;   
   >             r := r+1;   
   >          END;   
   >    END;   
   >   
   > PROCEDURE writearray;   
   (var t:ticarray?)   
      
   var x,y: integer;   
   for y := 1 to 3 do   
     begin   
       for x := 1 to 3 do   
         write(t[x,y]:2)   
       writeln;   
     end;   
      
      
   >    BEGIN   
   >       write(t[1,1]);   
   >       write(t[1,2]);   
   >       write(t[1,3]);   
   > writeln;   
   >       write(t[2,1]);   
   >       write(t[2,2]);   
   >       write(t[2,3]);   
   > writeln;   
   >       write(t[3,1]);   
   >       write(t[3,2]);   
   >       write(t[3,3]);   
   >   
   >    END;   
   >   
   > BEGIN   
   >    ClrScr;   
   >    cleararray;   
   >    writearray;   
   > END.   
   >   
      
   btw ...   
      
   i missed the boeing part. - "john smith" does design airplanes? this   
   J.S?   
      
   newsgroups ARE fun!   
      
   sometimes even those about programming!   
      
   greets   
   jo   
      
   --   
   http://radio789.net.ms - Radio 789 - We play it ALL   
   Radiostream: http://stream789.net.ms   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)