Advertisement
Guest User

Untitled

a guest
Dec 7th, 2017
188
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.22 KB | None | 0 0
  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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement