Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program SoalUTSno42015;
- var
- A : Array [1..3,1..3] of char;
- B : Array [1..100] of char;
- C : Array [1..3] of integer;
- i , j ,k,i2 : integer;
- isi , penuh : boolean;
- {ALGORITMA UTAMA}
- begin
- for i:= 1 to 3 do begin
- for j := 1 to 3 do begin
- A[i][j] := ' ';
- end;
- end;
- isi := true;
- i2 := 1;
- writeln ('Masukan X atau O');
- while (i2 <= 100) and (isi) do begin
- readln (B[i2]);
- if (B[i2] = 'X' ) then begin
- for k := 1 to 2 do begin
- read (C[k]);
- end;
- A[C[1]][C[2]] := 'X';
- end else if (B[i2] = 'O' ) then begin
- for k := 1 to 2 do begin
- read (C[k]);
- end;
- A[C[1]][C[2]] := 'O';
- end else if ( B[i2] = '#' ) then begin
- isi := false;
- end;
- i2 := i2 + 1;
- end;
- i := 1;
- j := 1;
- penuh := true;
- while ( i <= 3 ) and (penuh ) do begin
- j := 1;
- while (j <= 3 ) and ( penuh ) do begin
- if (A[i][j] = ' ' ) then begin
- penuh := false;
- end;
- j := j +1;
- end;
- i := i +1;
- end;
- if (penuh ) then begin
- for i:= 1 to 3 do begin
- for j := 1 to 3 do begin
- write(A[i][j]);
- write (' ');
- end;
- writeln();
- end;
- end else begin
- writeln ('Matriks belum penuh');
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement