Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.05.2022, 20:24   #1
katya chern
 
Регистрация: 19.04.2022
Сообщений: 7
По умолчанию двумерные массивы

Соседями элемента Аij назовем элементы Akl с i-1≤k≤i+1, j-1≤l≤j+1, (k,l)≠(i,j). Элемент матрицы называется локальным минимумом, если он строго больше всех его соседей. Задачи:
1). Найдите количество локальных минимумов заданной матрицы размером 10х10;
2). Найдите сумму модулей элементов, расположенных выше главной диагонали.
katya chern вне форума Ответить с цитированием
Старый 10.05.2022, 20:44   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Экономят люди свою голову, не пытаются включать даже при формулировке задачи.
1. Язык программирования - тайна великая есть.
2. Если от больше соседей - какой же он на фиг минимум?
"Негром будет человек, кожа которого белее, чем у всех его соседей" ?
digitalis вне форума Ответить с цитированием
Старый 10.05.2022, 21:41   #3
macomics
Участник клуба
 
Регистрация: 17.04.2022
Сообщений: 1,833
По умолчанию

Код:
find_s_and_t:
  virtual at ebp - 28
    .i				dd ? ; int
    .j				dd ? ; int
    .k				dd ? ; int
    .l				dd ? ; int
    .m				dd ? ; int
    .n				dd ? ; int
    .t				dd ? ; int
    .u = $ - .i
				rd 3
    .A				dd ? ; double *
    .w				dd ? ; int
    .h				dd ? ; int
    .s				dd ? ; double *
    .v = $ - .A
  end virtual
	push	ebx
	push	ebp
	mov	ebp, esp
	sub	esp, .u
	xor	ecx, ecx
	mov	eax, [.s]
	fldz
	mov	[.t], ecx
	fstp	qword [eax]
	cmp	[.w], ecx
	jz	.empty
	  cmp	  [.h], ecx
	  jz	  .empty
	    mov     ebx, [.A]
	    mov	    [.i], ecx
  .lp_i:
	      mov     [.j], 0
  .lp_j:
		mov	eax, [.i]
		mul	[.h]
		test	edx, edx
		jnz	.empty
		add	eax, [.j]
		jc	.empty
		mov	edx, [.i]
		lea	ecx, [ebx + eax * 8]
		cmp	edx, [.j]
		jbe	@f
		  mov	  eax, [.s]
		  fld	  qword [ecx]
		  fadd	  qword [eax]
		  fstp	  qword [eax]
  @@:
		mov	eax, edx
		sub	eax, 1
		inc	edx
		jnc	@f
		  xor	  eax, eax
  @@:
		cmp	edx, [.w]
		jc	@f
		  mov	  edx, [.w]
		  dec	  edx
  @@:
		mov	[.k], eax
		mov	[.m], edx
  .lp_k:
		  mov	  eax, [.j]
		  mov	  edx, eax
		  sub	  eax, 1
		  inc	  edx
		  jc	  @f
		    xor	    eax, eax
  @@:
		  cmp	  edx, [.h]
		  jc	  @f
		    mov	    edx, [.h]
		    dec	    edx
  @@:
		  mov	  [.l], eax
		  mov	  [.n], edx
  .lp_l:
		    mov	    eax, [.k]
		    cmp	    eax, [.i]
		    jnz	    @f
		      mov	    edx, [.l]
	 	      cmp	    edx, [.j]
		      jz      .br
  @@:
		    mov	    eax, [.k]
		    mul	    [.h]
		    test    edx, edx
		    jnz     .empty
		    add	    eax, [.l]
		    jc      .empty
		    fld	    qword [ebx + eax * 8]
		    fld     qword [ecx]
		    fcompp
		    fstsw   ax
		    test    ah, 0x44
		    jnz     .br_br
  .br:
		    inc	    [.l]
		    mov	    eax, [.n]
		    cmp	    [.l], eax
		    jbe	    .lp_l
		  inc	  [.k]
		  mov	  eax, [.m]
		  cmp	  [.k], eax
		  jbe	  .lp_k
		inc	[.t]
  .br_br:
		inc	[.j]
		mov	eax, [.h]
		cmp	[.j], eax
		jc	.lp_j
	      inc     [.i]
	      mov     eax, [.w]
	      cmp     [.i], eax
	      jc      .lp_i
  .empty:
	mov	eax, [.t]
	leave
	pop	ebx
	retn	.v	; return t
Вот вам FASM x32. Плевать на минимум - найдем такие, что больше всех его соседей. Элементы матрицы double.

Последний раз редактировалось macomics; 11.05.2022 в 01:48.
macomics вне форума Ответить с цитированием
Старый 11.05.2022, 09:26   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Ну прям на асме... Труд, достойный уважения. Но как мне кажется - тут даже Бесик - тёмна вода в облацех.
digitalis вне форума Ответить с цитированием
Старый 17.05.2022, 19:15   #5
katya chern
 
Регистрация: 19.04.2022
Сообщений: 7
По умолчанию

macomics, искренне благодарю за помощь, вы мне очень помогли!
katya chern вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
двумерные массивы Ранис Паскаль, Turbo Pascal, PascalABC.NET 1 25.11.2012 11:35
Одномерные массивы, двумерные массивы, строки Sand093 C++ Builder 11 20.05.2012 21:48
Двумерные массивы(матрица) 2)Строковые массивы(строки): 3)Структуры nuriyat Помощь студентам 1 21.01.2012 16:16
Двумерные массивы(массивы указателей на массивы) krytishka99 Помощь студентам 1 29.12.2011 19:51
двумерные массивы alla _ zip Помощь студентам 1 20.04.2010 23:10