Найти ошибку в коде

@Eizio135 · Регистрация: 08.09.2019

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

Pascal
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
program name_lab6;
uses matr_alg;
var
a,b,at,bt,c:matrix; x,y,z,z1,z2:vector;
n:size; fin,fout:text;
begin
assign(fin, 'name_lab6.in'); reset(fin);
assign(fout, 'name_lab6.out'); rewrite(fout);
read(fin,n);
read_matrix(fin,a,n);
read_matrix(fin,b,n);
read_vector(fin,x,n);
read_vector(fin,y,n);
transp_matrix(b,n,bt);
mult_matrix(a,bt,n,c);
mult_matrix_vector(c,y,n,z1);
transp_matrix(a,n,at);
mult_matrix(at,b,n,c);
mult_matrix_vector(c,x,n,z2);
add_vector(z1,z2,n,z);
writeln(fout, ' vector A*Bt*Y+At*B*X');
write_vector(fout,z,n,2);
writeln(fout, 'evklid_norma: ',
evklid_norma_vector(z,n):1:2);
writeln(fout, 'norma1: ', norma1_vector(z,n):1:2);
writeln(fout, 'norma2: ', norma2_vector(z,n):1:2);
close(fin); close(fout);
end.

Не могу найти ошибку. Прошу помощь.
И еще один вопрос? Как написать код под этот пример:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?{(AB)}^{T}X-CY$

@Puporev · 26.11.2019, 19:19

Сообщение от Костя1235

Не могу найти ошибку.

Так нужен модуль matr_alg;

Добавлено через 6 минут
А это

Сообщение от Костя1235

Как написать код под этот пример:

так примерно как в программе это и написано.

Pascal
1
2
3
4
5
mult_matrix(a,b,n,ab);
transp_matrix(ab,n,abt);
mult_matrix_vector(abt,x,n,z1);
mult_matrix_vector(c,y,n,z2)
div_vector(z1,z2,n,z);

@Eizio135 · 26.11.2019, 19:41 **[ТС]**

Сообщение от Puporev

так примерно как в программе это и написано.

А где это написать? Модуль matr_alg есть. Еще ошибка в строке

Pascal
1
read(fin,n);

@Puporev · 26.11.2019, 19:44

Чтобы проверить код нужно приложить текст модуля и файл name_lab6.in

@Eizio135 · 26.11.2019, 20:07 **[ТС]**

name_lab6.in:
4
1.23 2.12 2.56 3.12
1.27 1.34 5.67 -1.34
2.56 2.12 3.14 -2.45
1.23 2.56 -2.34 1.31
3.45 2.34 -1.24 5.34
3.12 -2.27 2.12 3.23
3.21 2.45 3.32 -4.56
2.23 -1.23 3.45 4.23
2.34 1.23 2.46 2.45
3.46 2.45 -5.67 -2.34

@Puporev · 26.11.2019, 20:27

Сообщение от Костя1235

Модуль matr_alg есть.

Ну и где он?

@Eizio135 · 26.11.2019, 20:33 **[ТС]**

Все роботает. Только где этот код вставить?

Pascal
1
2
3
4
5
mult_matrix(a,b,n,ab);
transp_matrix(ab,n,abt);
mult_matrix_vector(abt,x,n,z1);
mult_matrix_vector(c,y,n,z2)
div_vector(z1,z2,n,z);

Новые блоги и статьи Все статьи Все блоги /
Контроль корректности заполнения дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	26.11.2019, 19:44
	Чтобы проверить код нужно приложить текст модуля и файл name_lab6.in 0

@Eizio135 2 / 8 / 1 Регистрация: 08.09.2019 Сообщений: 195
	26.11.2019, 20:07 [ТС]
	name_lab6.in: 4 1.23 2.12 2.56 3.12 1.27 1.34 5.67 -1.34 2.56 2.12 3.14 -2.45 1.23 2.56 -2.34 1.31 3.45 2.34 -1.24 5.34 3.12 -2.27 2.12 3.23 3.21 2.45 3.32 -4.56 2.23 -1.23 3.45 4.23 2.34 1.23 2.46 2.45 3.46 2.45 -5.67 -2.34 0

Найти ошибку в коде

Решение