Получить действительную квадратную матрицу порядка 8

@DimaGG · Регистрация: 23.04.2013

BASIC даны действительные числа x1.x8. Получить действительную квадратную матрицу порядка 8

@xod · 14.07.2014, 17:39

Как получить матрицу?
Есть 1000 способов, или я должен сам
придумать 1001-ый способ?

@Good-Morning · 14.07.2014, 17:53

Гениальное условие, главное, лаконичное.
Ни больше, ни меньше:

QBasic/QuickBASIC

1 2	INPUT "", x1, x8 'или так: "const x1=1: const x8=2" DIM a(1 TO 8, 1 TO 8)

Добавлено через 1 минуту
Хотя, если "получить"="ввести", то Вам в закрепленную тему.

@xod · 14.07.2014, 20:27

QBasic/QuickBASIC

CLS
INPUT "x1=? x8="; x1, x8
DIM a(1 TO 8, 1 TO 8)
 
FOR i% = 1 TO 8
   FOR j% = 1 TO 8
      a(i%, j%) = (x1 + i%) / (x8 * j%)
      PRINT USING "###.###"; a(i%, j%);
   NEXT j%
   PRINT
NEXT i%
END

@DimaGG 0 / 0 / 1 Регистрация: 23.04.2013 Сообщений: 32
		1
	Получить действительную квадратную матрицу порядка 8 23.04.2013, 18:53. Показов 1005. Ответов 3 Метки нет (Все метки) BASIC даны действительные числа x1.x8. Получить действительную квадратную матрицу порядка 8 0

@xod 156 / 46 / 70 Регистрация: 01.07.2014 Сообщений: 185
	14.07.2014, 17:39	2
	Как получить матрицу? Есть 1000 способов, или я должен сам придумать 1001-ый способ? 0

Опции темы