Рассчитать элементы квадратной матрицы

@marlic · Регистрация: 10.12.2010

Студворк — интернет-сервис помощи студентам

пожалуйста помогите наставьте на путь истинный

1. Рассчитать элементы квадратной матрицы А= {aj,i},i,j=1,2,...,n
2. Из матрицы А по заданному правилу получить элементы вектора X={xi},i=1,2,…,n.
3. Провести заданное упорядочение элементов вектора Х или матрицы А.
4. Вычислить значение у=f(x), где f(x) – заданная функция.

сразу признаюсь сегодня только начал изучение QBASIC и новичок. изучил прошлые темы, сидел часами пытаясь что то сделать)) из прошлых вопросов форумчан переделал под себя кое что но ненаю как дальше(((:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
DIM A()
DIM X()
INPUT "BBEDITE N",N
 
REDIM A(1 TO N,1 TO N)
FOR i=1 TO N
FOR j=1 TO N
A(i,j)=(2^i+EXP(i))/3^j
NEXT j
NEXT i
 
REDIM X(1 TO N)
FOR i=1 TO N
X(i)=i*A(как писать??)
NEXT i
 
y=0
FOR j=1 TO N
y=y+X(j)*X(как писать??)
NEXT j
 
PRINT y
END

и вот то что я написал это ж ток по первой части задачи? очень надеюсь на вашу помощь товарищи

@Quiet Snow · 10.12.2010, 18:14

1. Вывод матрицы модифицирован

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 e = 2.718281828459#
 CLS
 INPUT "Vvedite n : ", n
DIM A(n, n) AS DOUBLE
   ' Расчет значений матрицы
   FOR j = 1 TO n: FOR i = 1 TO n
     A(i, j) = (2 ^ i + e ^ j) / 3 ^ j
   NEXT: NEXT
   ' Вывод результата
   FOR j = 1 TO n: FOR i = 1 TO n
     C$ = STR$(A(i, j))
     C$ = LEFT$(C$, INSTR(C$, ".") - 1) + MID$(C$, INSTR(C$, "."), 3) + " "
     LOCATE i + 1, j * 5 - 4: PRINT C$
   NEXT: NEXT

Добавлено через 35 минут
Структура ваших заданий позволяет скомбинировать их.

Все задачи в одном лице:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
DECLARE FUNCTION Y# (Mas() AS DOUBLE)
 e = 2.718281828459#
 CLS
 INPUT "Vvedite n : ", n
DIM A(n, n) AS DOUBLE, X(n) AS DOUBLE
   ' Расчет значений матрицы
   FOR j = 1 TO n: FOR i = 1 TO n
     A(i, j) = (2 ^ i + e ^ j) / 3 ^ j
   NEXT: NEXT
   ' Расчет значений вектора
   FOR i = 1 TO n
     FOR k = 1 TO i
     X(i) = X(i) + A(i, k)
   NEXT: NEXT
   ' Упорядочивание элементов
   FOR j = 1 TO n - 1
     FOR i = 1 TO n - j
     IF X(i) < X(i + 1) THEN SWAP X(i), X(i + 1)
   NEXT: NEXT
   ' Вывод результата
   FOR j = 1 TO n: FOR i = 1 TO n
     C$ = STR$(A(i, j))
     C$ = LEFT$(C$, INSTR(C$, ".") - 1) + MID$(C$, INSTR(C$, "."), 3) + " "
     LOCATE i + 1, j * 5 - 4: PRINT C$
       NEXT: C$ = STR$(X(j))
     C$ = LEFT$(C$, INSTR(C$, ".") - 1) + MID$(C$, INSTR(C$, "."), 5) + " "
     LOCATE n + 3, (j * 7 - 6) MOD 80: PRINT C$
   NEXT
   '  Вывод функции
   PRINT " Y ="; Y#(X())
 
FUNCTION Y# (Mas() AS DOUBLE)
  FOR ii = 1 TO UBOUND(Mas)
   S = S + Mas(ii) + Mas(n)
  NEXT
  Y# = S / 2
END FUNCTION

Добавлено через 1 минуту
Единственное что - формулу в 4 задании вы оформили НЕВЕРНО, переделайте т.к. я не уверен в правильности.

@marlic · 10.12.2010, 18:23 **[ТС]**

>Quiet Snow<, огромное вам спасибо. программа работает

а что насчет 4 задачи-таким мне дал препод в универе

спрошу у него

@Златобород · 09.10.2011, 12:43

а мне эта программа на паскале нужна, не подскажите как?

Памирыч · 09.10.2011, 14:04

Комментарий модератора

Златобород, в Паскале и задавайте

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@marlic 1 / 1 / 1 Регистрация: 10.12.2010 Сообщений: 50
	10.12.2010, 18:23 [ТС]
	>Quiet Snow<, огромное вам спасибо. программа работаета что насчет 4 задачи-таким мне дал препод в универеспрошу у него 0

@Златобород 0 / 0 / 1 Регистрация: 09.10.2011 Сообщений: 3
	09.10.2011, 12:43
	а мне эта программа на паскале нужна, не подскажите как? 0