Задача для отчета по практике

[snickers]

Два игрока "нечетный" и "четный" по очереди ставят еденицы и нули в незанятые позиции поля NxN.Игра продолжается до заполнения всех позиций.После этого суммируются числа вдоль каждой строки,столбца и диагоналей.Число нечетных сумм сравнивается с числом четных сумм.Выигрывает тот,чья сумма больше.
__________________________________________________________________________
Желательно с пояснениями,чтобы потом можно отчет было составить,заранее спасибо

 

[nayke]

Два игрока "нечетный" и "четный" по очереди ставят еденицы и нули в незанятые позиции поля NxN.Игра продолжается до заполнения всех позиций.После этого суммируются числа вдоль каждой строки,столбца и диагоналей.Число нечетных сумм сравнивается с числом четных сумм.Выигрывает тот,чья сумма больше.
__________________________________________________________________________
Желательно с пояснениями,чтобы потом можно отчет было составить,заранее спасибо

Паскаль или Делфи? В чем конкретно вопрос? как посчитать суммы как проверить на заполненность или просто проект ждете?

 

[acorn]

snickers
может и в дипломе моё имя впишите?

 

[snickers]

это делфи,надо написать программу согласно условию)) я сам то слабо понимаю,но сказали так,и желательны пояснения,чтобы составить отчет по практике и было проще потом его защитить

 

[nayke]

это делфи,надо написать программу согласно условию)) я сам то слабо понимаю,но сказали так,и желательны пояснения,чтобы составить отчет по практике и было проще потом его защитить

5. Ну а те, кто не хочет что-то делать самостоятельно должны понимать, что работа людей стоит денег. Даже самая мелкая. А потому если вы готовы платить за решение своей проблемы, то так же указывайте это в своей теме. Что-то в духе: Нужно решить такую-то задачу. Оплата.

 

[snickers]

сколько денях за это хотите?

 

[snickers]

ну так сколько?

 

[nayke]

ну так сколько?

Вообще на сайте помоему есть спец страничка с чем то вроде резюме программистов выполняющих курсовые на заказ. Если походить по веткам этого раздела то тоже можно найти программистов постоянно предлагающих оплачиваемые услуги. Я бы взял 80$ если вас интересует именно цена.

 

[snickers]

это не курсовая работа,вы че,с такими ценами...

 

[acorn]

это не курсовая работа,вы че,с такими ценами...

а че, кому надо разбираться в задачках за копейки..

 

[Dock1100]

После этого суммируются числа вдоль каждой строки,столбца и диагоналей

Диагональ только главная и побочная, или проверять все?

 

[snickers]

обе вроде,но можно одну главную сделать

 

[Dock1100]

Сабж еще один вопросик, надо на Делфи или на Паскале?

 

[snickers]

делфи

 

[Dock1100]

Вот, вроде работает, на правильность не проверял, в проэкте поле рисуется на

Ссылка скрыта от гостей

.
И еще одно

Число нечетных сумм сравнивается с числом четных сумм.Выигрывает тот,чья сумма больше.

Сравнивается количетсво сумм или суммы сумм?
если количество то замените в начале процедуру

procedure sum_recheck;
var i,j,k:integer;
sum_one,sum_two,sum:integer;
begin
sum_one:=0;
sum_two:=0;
for i:=0 to xcount-1 do
begin
sum:=0;
for j := 0 to ycount - 1 do
begin
sum:=sum+main_array[i,j];
end;
if sum mod 2 =1 then sum_one:=sum_one+sum
else sum_two:=sum_two+sum;
end;

for j:=0 to ycount-1 do
begin
sum:=0;
for i := 0 to xcount - 1 do
begin
sum:=sum+main_array[i,j];
end;
if sum mod 2 =1 then sum_one:=sum_one+sum
else sum_two:=sum_two+sum;
end;

if xcount>ycount then k:=ycount else k:=xcount;
sum:=0;
for i := 0 to k - 1 do
sum:=sum+main_array[i,i];

if sum mod 2 =1 then sum_one:=sum_one+sum
else sum_two:=sum_two+sum;

if sum_one>sum_two then
showmessage('Выиграл игрок "0"')
else if sum_two>sum_one then
showmessage('Выиграл игрок "1"')
else showmessage('Нич''я');
end;

на

procedure sum_recheck;
var i,j,k:integer;
sum_one,sum_two,sum:integer;
begin
sum_one:=0;
sum_two:=0;
for i:=0 to xcount-1 do
begin
sum:=0;
for j := 0 to ycount - 1 do
begin
sum:=sum+main_array[i,j];
end;
if sum mod 2 =1 then sum_one:=sum_one+1
else sum_two:=sum_two+1;
end;

for j:=0 to ycount-1 do
begin
sum:=0;
for i := 0 to xcount - 1 do
begin
sum:=sum+main_array[i,j];
end;
if sum mod 2 =1 then sum_one:=sum_one+1
else sum_two:=sum_two+1;
end;

if xcount>ycount then k:=ycount else k:=xcount;
sum:=0;
for i := 0 to k - 1 do
sum:=sum+main_array[i,i];

if sum mod 2 =1 then sum_one:=sum_one+1
else sum_two:=sum_two+1;

if sum_one>sum_two then
showmessage('Выиграл игрок "0"')
else if sum_two>sum_one then
showmessage('Выиграл игрок "1"')
else showmessage('Нич''я');
end;