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

Тема в разделе "Pascal and Delphi", создана пользователем snickers, 24 фев 2011.

  1. snickers

    snickers Гость

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

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    Паскаль или Делфи? В чем конкретно вопрос? как посчитать суммы как проверить на заполненность или просто проект ждете?
     
  3. acorn

    acorn PHP Developer
    Web Team

    Регистрация:
    29 авг 2004
    Сообщения:
    599
    Симпатии:
    3
    snickers
    может и в дипломе моё имя впишите? :)
     
  4. snickers

    snickers Гость

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

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
     
  6. snickers

    snickers Гость

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

    snickers Гость

    ну так сколько?
     
  8. nayke

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    Вообще на сайте помоему есть спец страничка с чем то вроде резюме программистов выполняющих курсовые на заказ. Если походить по веткам этого раздела то тоже можно найти программистов постоянно предлагающих оплачиваемые услуги. Я бы взял 80$ если вас интересует именно цена.
     
  9. snickers

    snickers Гость

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

    acorn PHP Developer
    Web Team

    Регистрация:
    29 авг 2004
    Сообщения:
    599
    Симпатии:
    3
    а че, кому надо разбираться в задачках за копейки..
     
  11. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Диагональ только главная и побочная, или проверять все?
     
  12. snickers

    snickers Гость

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

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Сабж еще один вопросик, надо на Делфи или на Паскале?
     
  14. snickers

    snickers Гость

  15. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Вот, вроде работает, на правильность не проверял, в проэкте поле рисуется на канве.
    И еще одно
    Сравнивается количетсво сумм или суммы сумм?
    если количество то замените в начале процедуру
    Код (Delphi):
    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;
    на

    Код (Delphi):
    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;
     

    Вложения:

  16. snickers

    snickers Гость

    громадное спасибо
     
Загрузка...
Похожие Темы - Задача для отчета
  1. Янчик
    Ответов:
    0
    Просмотров:
    490
  2. Edip
    Ответов:
    10
    Просмотров:
    2.319
  3. TrishaRay
    Ответов:
    1
    Просмотров:
    783
  4. elzim
    Ответов:
    0
    Просмотров:
    932
  5. ShaoKahn
    Ответов:
    0
    Просмотров:
    1.128

Поделиться этой страницей