Задача на Basic

@Grigogo · Регистрация: 11.11.2014

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

Добрый день. задали курсач. я нашел код программы но он на басике, я изучал только С++. не могли бы вы на пальцах рассказать что делает следующий код

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
10 PRINT'РЕШЕНИЕ СИСТЕМЫ ИЗ N ЛИНЕЙНЫХ УРАВНЕНИЙ'
15 PRINT'                      МЕТОДОМ ОТРАЖЕНИЯ'
28  INPUT'ВВЕДИТЕ ЧИСЛО УРАВНЕНИЙ N='N: DIM A(N,N)
38 FOR I=1 ТО N:FOR J=1  TO N
40 PRINT!2.0!'ВВЕДИТЕ А'I','J:INPUT A(I,J)
50  IF J=N THEN PRINT'BBEДИTE B'I: INPUT А(I,0)
60 NEXT J:NEXT I
78 FOR K=1 TO N:LETA=0:F0R  I=K TO N
88 LETA=A+A(I,K)^2:NEXT  l:LETS=S6N(A(K,K))SQR)A)
98 LETB=A+A(K,K)*S:FOR  I=K TO N
188 LETC=0:FOR J=K TO N
110 LETC=C+A(J,I)*A(J,K):NEXT J
120 UETA<8jtI)>!<C+SiKA<:K»I))/B:NEXT I:LETD=8
130 FOR J=K TO N:LETD=D+A(J,0)*A(J,K):NEXT J
148 LETE=(D+S*A(K,0))/B:F0R I=K TO N
158 LETF=A(I,K):IF I=K THEN LETF=F+S
160 FOR J=K T0N:LETA(I,J)=A(I,J)-A(0,J)*F:NEXT J
170 LETA(I,0)=A(I,0)-F*E:NEXT I:NEXT K
180 FOR K=N TO 1 STEP -1:LETL=0:F0R I=K+1 TO N
190 LETL=L+A(K,I)*A(I,0):NEXT  I
200 LETA(K,0)=(A(K,0)-L)/A(K,K):NEXT К
210 PRINT'РЕЗУЛЬТАТЫ РЕШЕНИЯ':FOR I=1 TO N
220 PRINT!2.0!'X'I!F1.9!'='A(I,0):NEXT  I:END

@vodav · 14.12.2014, 11:47

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
'Печать заголовка:
PRINT "РЕШЕНИЕ СИСТЕМЫ ИЗ N ЛИНЕЙНЫХ УРАВНЕНИЙ"
PRINT "                      МЕТОДОМ ОТРАЖЕНИЯ"
'Ввод размерности матрицы и задание массива коэф-тов:
INPUT "ВВЕДИТЕ ЧИСЛО УРАВНЕНИЙ N=",N
DIM A(N,N)
'Заполнение массива:
FOR I=1 ТО N
  FOR J=1  TO N
    PRINT!2.0!'ВВЕДИТЕ А'I','J 'Непонятный формат оператора печати
    INPUT A(I,J)
    IF J=N THEN PRINT "BBEДИTE B";I:INPUT А(I,0)
  NEXT J
NEXT I
'Здесь пошла вся арифметика:
FOR K=1 TO N
  A=0
  F0R  I=K TO N
    A=A+A(I,K)^2
  NEXT  l
  S=S6N(A(K,K))SQR)A)   'Эта строка против всяких правил
  B=A+A(K,K)*S
  FOR  I=K TO N
    C=0
    FOR J=K TO N
      C=C+A(J,I)*A(J,K)
    NEXT J
    UETA<8jtI)>!<C+SiKA<:K»I))/B  'Эта строка против всяких правил
  NEXT I
  D=8
  FOR J=K TO N
    D=D+A(J,0)*A(J,K)
  NEXT J
  E=(D+S*A(K,0))/B
  F0R I=K TO N
    F=A(I,K)
    IF I=K THEN F=F+S
    FOR J=K T0 N
      A(I,J)=A(I,J)-A(0,J)*F
    NEXT J
    A(I,0)=A(I,0)-F*E
  NEXT I
NEXT K
FOR K=N TO 1 STEP -1
  L=0
  F0R I=K+1 TO N
    L=L+A(K,I)*A(I,0)
  NEXT  I
  A(K,0)=(A(K,0)-L)/A(K,K)
NEXT К
PRINT "РЕЗУЛЬТАТЫ РЕШЕНИЯ"
FOR I=1 TO N
  PRINT!2.0!'X'I!F1.9!'='A(I,0)  'Непонятный формат оператора печати
NEXT  I
END

Все остальное можно найти в описании языка Basic здесь на форуме

@Pro_grammer · 14.12.2014, 16:02

Есть в Интернетах ужасный скан, распознанный ранними стадиями FineReader-а, книжки по алгоритмам Бейсика. Видно этот код из этой книги. Потому всё непонятно и искажено до неузнаваемости.
Совет ТС - найти более правильное решение.

@Grigogo · 14.12.2014, 21:24 **[ТС]**

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
:
PRINT "РЕШЕНИЕ СИСТЕМЫ ИЗ N ЛИНЕЙНЫХ УРАВНЕНИЙ"
PRINT "                      МЕТОДОМ ОТРАЖЕНИЯ"
INPUT "ВВЕДИТЕ ЧИСЛО УРАВНЕНИЙ N="N: DIM A(N,N)
'Заполнение массива:
FOR I=1 ТО N
  FOR J=1  TO N
    PRINT!2.0!'ВВЕДИТЕ А'I','J:INPUT A(I,J)
    
    IF J=N THEN PRINT "BBEДИTE B"I:INPUT А(I,0)
  NEXT J:NEXT I
FOR K=1 TO N
  A=0
  F0R  I=K TO N
    A=A+A(I,K)^2
  NEXT  l
  S=S6N(A(K,K))SQR(A)   'Эта строка против всяких правил
  B=A+A(K,K)*S
  FOR  I=K TO N
    C=0
    FOR J=K TO N
      C=C+A(J,I)*A(J,K)
    NEXT J
    LETA(0,I)=(C+S*A(K,0))/B  'Эта строка против всяких правил
  NEXT I
  D=0
  FOR J=K TO N
    D=D+A(J,0)*A(J,K)
  NEXT J
  E=(D+S*A(K,0))/B
  F0R I=K TO N
    F=A(I,K)
    IF I=K THEN F=F+S
    FOR J=K T0 N
      A(I,J)=A(I,J)-A(0,J)*F
    NEXT J
    A(I,0)=A(I,0)-F*E
  NEXT I
NEXT K
FOR K=N TO 1 STEP -1
  L=0
  F0R I=K+1 TO N
    L=L+A(K,I)*A(I,0)
  NEXT  I
  A(K,0)=(A(K,0)-L)/A(K,K)
NEXT К
PRINT "РЕЗУЛЬТАТЫ РЕШЕНИЯ"
FOR I=1 TO N
  PRINT!2.0!'X'I!F1.9!'='A(I,0)  'Непонятный формат оператора печати
NEXT  I
END

Добавлено через 4 часа 16 минут

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
38
39
40
41
42
43
44
45
46
47
48
49
50
PRINT "РЕШЕНИЕ СИСТЕМЫ ИЗ N ЛИНЕЙНЫХ УРАВНЕНИЙ"
PRINT "                      МЕТОДОМ ОТРАЖЕНИЯ"
INPUT "ВВЕДИТЕ ЧИСЛО УРАВНЕНИЙ N="N: DIM A(N,N)
'Заполнение массива:
FOR I=1 ТО N
  FOR J=1  TO N
    PRINT!2.0!'ВВЕДИТЕ А'I','J:INPUT A(I,J)
    
    IF J=N THEN PRINT "BBEДИTE B"I:INPUT А(I,0)
  NEXT J:NEXT I
FOR K=1 TO N
  A=0
  F0R  I=K TO N
    A=A+A(I,K)^2
  NEXT  l
  S=SIGN(A(K,K))SQR(A)   'Эта строка против всяких правил
  B=A+A(K,K)*S
  FOR  I=K TO N
    C=0
    FOR J=K TO N
      C=C+A(J,I)*A(J,K)
    NEXT J
    LETA(0,I)=(C+S*A(K,0))/B  'Эта строка против всяких правил
  NEXT I
  D=0
  FOR J=K TO N
    D=D+A(J,0)*A(J,K)
  NEXT J
  E=(D+S*A(K,0))/B
  F0R I=K TO N
    F=A(I,K)
    IF I=K THEN F=F+S
    FOR J=K T0 N
      A(I,J)=A(I,J)-A(0,J)*F
    NEXT J
    A(I,0)=A(I,0)-F*E
  NEXT I
NEXT K
FOR K=N TO 1 STEP -1
  L=0
  F0R I=K+1 TO N
    L=L+A(K,I)*A(I,0)
  NEXT  I
  A(K,0)=(A(K,0)-L)/A(K,K)
NEXT К
PRINT "РЕЗУЛЬТАТЫ РЕШЕНИЯ"
FOR I=1 TO N
  PRINT!2.0!'X'I!F1.9!'='A(I,0)  'Непонятный формат оператора печати
NEXT  I
END

@vodav · 16.12.2014, 06:13

Ну 23-ю строку Вашего последнего варианта я могу принять как:

QBasic/QuickBASIC
1
A(0,I)=(C+S*A(K,0))/B

,
но с остальными замечаниями разбирайтесь сами.

@Grigogo · 03.01.2015, 17:25 **[ТС]**

А как насчет 16?

@Alex77755 · 05.01.2015, 13:23

но он на басике, я изучал только С++

Не по теме:

Аналогичный случай произошел со мной в школе:
Я изучал только ботанику, а эти гадкие преподаватели заставили сдавать вступительные экзамены аж по 4 предметам! Ну не ГАДЫ?! Ладно бы меня одного! А то же все сдавали!
И не поверишь, но многие сдали! И сами осилили программу и благополучно защитили дипломы!.
Правда с тех пор мнгое изменилось. Теперь считается достоинством на....ть ближнего, преподавателя, закон, правила....И что вы так удивляетесь, что в стране бардак?!

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@Pro_grammer 6807 / 2839 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	14.12.2014, 16:02
	Есть в Интернетах ужасный скан, распознанный ранними стадиями FineReader-а, книжки по алгоритмам Бейсика. Видно этот код из этой книги. Потому всё непонятно и искажено до неузнаваемости. Совет ТС - найти более правильное решение. 0

@Grigogo 0 / 0 / 0 Регистрация: 11.11.2014 Сообщений: 7
	03.01.2015, 17:25 [ТС]
	А как насчет 16? 0