1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

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

  1. snickers

    snickers Гость

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

    nayke Well-Known Member

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

    acorn PHP Developer

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

    snickers Гость

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

    nayke Well-Known Member

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

    snickers Гость

    Репутация:
    0
    сколько денях за это хотите?
     
  7. snickers

    snickers Гость

    Репутация:
    0
    ну так сколько?
     
  8. nayke

    nayke Well-Known Member

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

    snickers Гость

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

    acorn PHP Developer

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

    Dock1100 :-]

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

    snickers Гость

    Репутация:
    0
    обе вроде,но можно одну главную сделать
     
  13. Dock1100

    Dock1100 :-]

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

    snickers Гость

    Репутация:
    0
  15. Dock1100

    Dock1100 :-]

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

    Вложения:

Загрузка...
Похожие Темы - Задача для отчета
  1. Янчик
    Ответов:
    0
    Просмотров:
    744
  2. Edip
    Ответов:
    10
    Просмотров:
    2.463
  3. petiablack
    Ответов:
    0
    Просмотров:
    64
  4. disub
    Ответов:
    1
    Просмотров:
    177
  5. Kazua
    Ответов:
    1
    Просмотров:
    191

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