Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Разное > Исходники и статьи
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Закрытая тема
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 19.03.2010, 18:39
hirdman hirdman вне форума
Прохожий
 
Регистрация: 12.03.2010
Сообщения: 1
Репутация: 10
Сообщение нужна помощь

Товарищи!!!
Помогите, мне нужно написать программу "Крестики-Нолики" тока не 3х3 к примеру 50х50 и тот у кого 5 в ряд выигрывает заранее спасибо!!! с меня спс-ка мне надо будет его показать на экзамене !
  #2  
Старый 19.03.2010, 18:44
Аватар для Admin
Admin Admin сейчас на форуме
Администратор
 
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,560
Версия Delphi: Delphi 7
Репутация: выкл
По умолчанию

Цитата:
Сообщение от hirdman
Товарищи!!!
Помогите, мне нужно написать программу "Крестики-Нолики" тока не 3х3 к примеру 50х50 и тот у кого 5 в ряд выигрывает заранее спасибо!!! с меня спс-ка мне надо будет его показать на экзамене !
http://www.delphisources.ru/pages/so...akarov_xo.html
  #3  
Старый 21.06.2010, 11:56
звезда звезда вне форума
Прохожий
 
Регистрация: 21.06.2010
Сообщения: 2
Репутация: 10
Восклицание нужна помощь

Программирование на алгоритмическом языке Delphi небольшой системной программы.
2.Получение исполняемого модуля и проверка на контрольном примере.
3.Оформление исходного кода программы с комментариями.
4.Разработка внешних и внутренних спецификаций в соответствии с ГОСТ ЕСПД или в соответствии с международными стандартами на программный продукт.

задание - Из матpицы X(M,N) построить матpицу Y, поменяв местами стpоки и столбцы.
  #4  
Старый 21.06.2010, 12:42
Аватар для NIch
NIch NIch вне форума
Продвинутый
 
Регистрация: 02.06.2008
Адрес: Бендеры ПМР
Сообщения: 754
Репутация: 2446
По умолчанию

Код:
var
 A: array of array of word;//Массивы
 B: array of array of word;
begin
 SetLength (A, 10, 5);//Установка размеров массивов
 SetLength (B, 5, 10);
 for i := 0 to Length(A)-1 do
  for j := 0 to Length(B)-1 do
   A(i, j) := B (j, i);//Содержимое строки записываешь в столбец
end;
Как то так...
__________________
В начале был Бит, потом Байт и только потом появилось Слово...
  #5  
Старый 23.06.2010, 00:07
tanya0130 tanya0130 вне форума
Прохожий
 
Регистрация: 22.06.2010
Сообщения: 1
Репутация: 10
По умолчанию Нужен исходник МКБ-10

Нужен исходник МКБ-10 (Международная Классификация Болезней) для написания диплома в Делфи
  #6  
Старый 23.06.2010, 00:48
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Во-первых, для новых вопросов надо создавать новые темы.
Два. На сколько я понял, МКБ-10 это просто некоторый классификатор.
Если смотреть на http://www.mkb10.ru/ то написать такой (там собственно база) не составляет особого труда.
Закрытая тема


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:17.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter