Задача 2A

"Книжная полка"

Известно, что предметом большинства самых ожесточенных споров в молодых семьях является расстановка книг на полках.На эту актуальную тему Вам предлагается следующая задача. На свадьбу молодожены получили в подарок одну книжную полку длиной M см и высотой N см, а также собрание японской классической поэзии,состоящее из M томов толщиной 1 см ивысотой N см. Сколькими различными способами они могут расставить это собрание на полке, если каждую книгу можно поставить вертикально или положить горизoнтально на полку или на другие книги.
Ваша программа должна считать исходные данные из файла TASK2A.DAT. В первой строке этого файла находится число M, во второй - число N. Числа M и N - целые, (1<M<=100, 1<N<=10). Ваша программа должна определить количество способов расстановки книг на полке и записать его в файл TASK2A.SOL.
Примеры входных и выходных данных:

TASK2A.DAT:
3
2

TASK2A.SOL:
18

Максимальное количество баллов: 40

Задача 2E: PLAY2E.PAS, PLAY2E.H

Unit Play2E;

Interface < br>
Procedure BeginGame (P : Integer);
Procedure EndGame;
Procedure Move (J, C : Integer);
Procedure OppMove (Var J, C : Integer);

Implementation

Const
MaxN = 100;
S : Integer = 0;
Var
P, N, K : Integer;
A : Array [1..MaxN] Of Boolean;

Procedure Error;
Begin
WriteLn ('Нарушены правила игры!');
Halt (1);
End;

Procedure BeginGame (P : Integer);
Var
F : Text;
J : Integer;
Begin
If S <> 0 Then Error;
If (P <> 1) And (P <> 2) Then Error;
Play2E.P := P; S := P;
Assign (F, 'TASK2E.DAT'); ReSet (F);
Read (F, N); K := N;
Close (F);
For J := 1 To N Do A[J] := False;
WriteLn ('Начало игры.');
End;

Procedure Move (J, C : Integer);
Begin
If S <> 1 Tn Error;
If (J < 1) Or ((J+C-1) > N) Or (C < 1) Or (C > 2) Then Error;
If A[J] Or A[J+C-1] Then Error;
A[J] := True; A[J+C-1] := True; K := K-C;
If K > 0 Then S := 2 Else S := 3;
WriteLn (P, '-й игрок исправил ', J, '-й минус на плюс.');
If C = 2 Then
WriteLn (P, '-й игрок исправил ', J+1, '-й минус на плюс.');
End;

Procedure OppMove (Var J, C : Integer);
Begin
If S <> 2 Then Error;
J := 1; While A[J] Do J := J+1;
If (J < N) And Not A[J+1]
Then C := 2
Else C := 1;
A[J] := True; A[J+C-1] := True; K := K-C;
If K > 0 Then S := 1 Else S := 3;
WriteLn (3-P, '-й игрок исправил ', J, '-й минус на плюс.');
If C = 2 Then
WriteLn (3-P, '-й игрок исправил ', J+1, '-й минус на плюс.');
End;

Procedure EndGame;
Begin
If S <> 3 Then Error;
S := 4;
WriteLn ('Конец игры.');
End;

End.

void BeginGame (int p);
void EndGame (void);
void Move (int j, int c);
void OppMove (int * j, int * c);

Задача 2E: PLAY2E.C/PLAY2E.CPP

#include <stdlib.h>
#include <stdio.h>
#include "play2e.h"

static int s = 0;
static int p, n, k;
static int * a;

static void Error (void)
{
printf ("Нарушены правила игры! ");
exit (EXIT_FAILURE);
}

void BeginGame (int r)
{
FILE * f;
int j;

if (s != 0) Error ();
if (r != 1 && r != 2) Error ();
p = r; s = r;
f = fopen ("task2e.dat", "r");
fscanf (f, "%d", & n); k = n;
fclose(f);
a = (int *) malloc (n * sizeof (int));
for(j = 0; j < n; j ++) a[j] = 0;
printf ("Начало игры. ");
}

void Move (int j, int c)
{
if (s != 1) Error ();
if (j < 1 || j+c-1 > n || c < 1 || c > 2) Error ();
j --;
if (a[j] || a[j+c-1]) Error ();
a[j] = 1; a[j+c-1] = 1; k -= c;
s = k > 0 ? 2 : 3;
j ++;
printf ("%d-й игрок исправил %d-й минус на плюс. ", p, j);
if (c == 2)
printf ("%d-й игрок исправил %d-й минус на плюс. ", p, j+1);
}

void OppMove (int * j, int * c)
{
int i;
int d;

if (s != 2) Error ();
for (i = 0; a[i]; i ++);
if (i < n-1 && ! a[i+1]) d = 2;
else d = 1;
a[i] = 1; a[i+d-1] = 1; k -= d;
i ++;
s = k > 0 ? 1 : 3;
printf ("%d-й игрок исправил %d-й минус на плюс. ", 3-p, i);
if (d == 2)
printf ("%d-й игрок исправил %d-й минус на плюс. ", 3-p, i+1);
* j = i;
* c = d;
}

void EndGame (void)
{
if (s != 3) Error ();
s = 4;
free (a);
printf ("Конец игры. ");
}