De thi Toan Tin hoc trong nha truong Bai 23

Trên cơ sở đó giải được 2 bài toán này.[r]

Bài 23/2000 - Quay Rubic (Dành cho học sinh THPT)

Khai triển mặt rubic đánh số mặt hình vẽ sau:

Khi ta xây dựng thủ tục Quay (mặt thứ i) để đổi màu mặt mặt 12 mặt kề với mặt Trên sở giải tốn Chương trình viết sau:

Program Rubic; uses Crt;

Type Arr= array[0 5, 7] of byte;

const color: Array [0 5] of char=('F', 'U','R', 'B', 'L', 'D'); Var

A1, A2, A0, A: Arr; X, X1, X2: String; k: byte;

Procedure Nhap; Var i, j: byte; Begin

Clrscr;

Writeln ('Bai toan So sanh hai xau:'); Writeln ('Nhap xau X1:');

Readln (X1);

Writeln (' Nhap xau X2:'); Readln (X2);

Writeln ('Bai toan Tinh so lan xoay:'); Write ('Nhap xau X:');

Readln (X); For i:= to

For j:= to A[i, j]:= i; A:=A0; A1:=A0; A2:=A0; End;

Procedure Quay (Var A: Arr; k: byte); Const Dir : array

[0 5, 3, 3] of byte = ( ( (1,2,5,4), (6,0,2,4), (5,7,1,3), (4,6,0,2) ), ( (0,4,3,2), (0,0,4,0), (1,1,5,1), (2,2,6,2) ), ( (0,1,3,5), (4,4,4,4), (3,3,3,3), (2,2,2,2) ), ( (1,4,5,2), (2,0,6,4), (1,7,5,3), (0,6,4,2) ), ( (0,5,3,1), (0,0,0,0), (7,7,7,7),(6,6,6,6) ), ( (0,2,3,4), (6,6,2,6), (5,5,1,5), (4,4,0,4) ) ); var i,j,tg: byte;

Begin tg:=A[k,6];

for i:=3 downto A[k,0] := A[k,2*i-2]; A[k,0]:=tg;

tg:=A[k,7];

for i:=1 to begin

tg:=A[dir[k,0,3], Dir[k,i,3];

for j:=3 downto A[ dir[k,0,j], Dir[k,i,j] ]:= A[ dir[k,0,j-1], Dir[k,i,j-1] ]; A[ [dir[k,0,0], Dir[k,i,0] ]:=tg;

end; End;

Function Eq(A,B:Arr):Boolean; Var i,j,c:byte;

Begin c:=0;

for i:=1 to for j:=1 to

If A[i,j] <> B[i,j] then inc(c); If c=0 then Eq:=true else Eq:=false; End;

Procedure QuayXau(x:string; var A: arr); Var i,j:byte;

Begin

for i:=1 to length(X) begin

for j:= to

If Color[j] = X[i] then Quay(A,j); end;

End;

Procedure Bai1; Begin

QuayXau(X1,A1); QuayXau(X2,A2); End;

Procedure Bai2; Begin

k:=0; Repeat

QuayXau(X,A); Inc(k);

Until Eq(A,A0); End;

Procedure Xuat; Var i,j:byte; Begin writeln;

writeln('Ket qua:');

writeln('Bai toan So sanh xau:') ;