daily pastebin goal
47%
SHARE
TWEET

Untitled

a guest Dec 7th, 2017 169 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program SoalUTSno42015;
  2. var
  3.     A : Array [1..3,1..3] of char;
  4.     B : Array [1..100] of char;
  5.     C : Array [1..3] of integer;
  6.     i , j ,k,i2  : integer;
  7.     isi , penuh : boolean;
  8.  
  9.  
  10. {ALGORITMA UTAMA}
  11. begin
  12.     for i:= 1 to 3 do begin
  13.         for j := 1 to 3 do begin
  14.             A[i][j] := ' ';
  15.         end;
  16.     end;
  17.    
  18.     isi := true;
  19.     i2 := 1;
  20.    
  21.     writeln ('Masukan X atau O');
  22.     while (i2 <= 100) and (isi) do begin
  23.             readln (B[i2]);
  24.             if (B[i2] = 'X' )  then begin
  25.                 for k := 1 to 2 do begin
  26.                     read (C[k]);
  27.                 end;
  28.                 A[C[1]][C[2]] := 'X';
  29.             end else if (B[i2] = 'O' )  then begin
  30.                 for k := 1 to 2 do begin
  31.                     read (C[k]);
  32.                 end;
  33.                 A[C[1]][C[2]] := 'O';
  34.             end else if ( B[i2] = '#' ) then begin
  35.                 isi := false;
  36.             end;
  37.             i2 := i2 + 1;
  38.     end;
  39.    
  40.     i := 1;
  41.     j := 1;
  42.     penuh := true;
  43.    
  44.     while ( i <= 3 ) and (penuh ) do begin
  45.         j := 1;
  46.         while (j <= 3 ) and ( penuh ) do begin
  47.             if (A[i][j] = ' ' ) then begin
  48.                 penuh := false;
  49.             end;
  50.             j := j +1;
  51.         end;
  52.         i := i +1;
  53.     end;
  54.    
  55.     if (penuh ) then begin
  56.         for i:= 1 to 3 do begin
  57.             for j := 1 to 3 do begin
  58.                 write(A[i][j]);
  59.                 write (' ');
  60.             end;
  61.             writeln();
  62.         end;
  63.     end else begin
  64.         writeln ('Matriks belum penuh');
  65.     end;
  66.                
  67. end.
RAW Paste Data
Top