• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

  • Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

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

snickers

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

nayke

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

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

snickers

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

nayke

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

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

nayke


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

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;
 

Вложения

  • Borland_Studio_Projects.zip
    6,7 КБ · Просмотры: 140
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!