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

  • Автор темы snickers
  • Дата начала
S

snickers

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

nayke

Well-Known Member
04.08.2010
310
0
Москва
#2
Два игрока "нечетный" и "четный" по очереди ставят еденицы и нули в незанятые позиции поля NxN.Игра продолжается до заполнения всех позиций.После этого суммируются числа вдоль каждой строки,столбца и диагоналей.Число нечетных сумм сравнивается с числом четных сумм.Выигрывает тот,чья сумма больше.
__________________________________________________________________________
Желательно с пояснениями,чтобы потом можно отчет было составить,заранее спасибо
Паскаль или Делфи? В чем конкретно вопрос? как посчитать суммы как проверить на заполненность или просто проект ждете?
 
S

snickers

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

nayke

Well-Known Member
04.08.2010
310
0
Москва
#5
это делфи,надо написать программу согласно условию)) я сам то слабо понимаю,но сказали так,и желательны пояснения,чтобы составить отчет по практике и было проще потом его защитить
5. Ну а те, кто не хочет что-то делать самостоятельно должны понимать, что работа людей стоит денег. Даже самая мелкая. А потому если вы готовы платить за решение своей проблемы, то так же указывайте это в своей теме. Что-то в духе: Нужно решить такую-то задачу. Оплата.
 

nayke

Well-Known Member
04.08.2010
310
0
Москва
#8
Вообще на сайте помоему есть спец страничка с чем то вроде резюме программистов выполняющих курсовые на заказ. Если походить по веткам этого раздела то тоже можно найти программистов постоянно предлагающих оплачиваемые услуги. Я бы взял 80$ если вас интересует именно цена.
 
S

snickers

Гость
#9
это не курсовая работа,вы че,с такими ценами...
 
09.11.2009
665
1
23
Киев
#15
Вот, вроде работает, на правильность не проверял, в проэкте поле рисуется на канве.
И еще одно
Число нечетных сумм сравнивается с числом четных сумм.Выигрывает тот,чья сумма больше.
Сравнивается количетсво сумм или суммы сумм?
если количество то замените в начале процедуру
Код:
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;
 

Вложения