Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
soporific_ann
0 / 0 / 0
Регистрация: 14.06.2015
Сообщений: 3
1

Считать три матрицы из файла и найти их определители

14.06.2015, 13:27. Просмотров 819. Ответов 5
Метки нет (Все метки)

Здравствуйте.
Условие задачи: В файле записаны три матрицы 3x3. Посчитать их определители и записать в другой файл.
Вопрос: как организовать переход от считывания одной матрицы к другой?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2015, 13:27
Ответы с готовыми решениями:

Считать матрицы из файла и сложить их
Основная задача сложить матрицы.Но это не проблема. Числа для них нужно взять из файла и если...

Заданы три матрицы A(3,3), B(2,2), C(3,3). Найти минимальное из трех чисел x, y, z, где x - след матрицы A,
Заданы три матрицы A(3,3), B(2,2), C(3,3). Найти минимальное из трех чисел x, y, z, где x - след...

Считать значения матрицы А[1:5,1:6] из внешнего файла
Помогите пожалуйста, если вторая часть задания вот такая..... 2. Считать значения матрицы А из...

Найти количество чётных и делящихся на три элементов файла
Найти количество чётных и делящихся на три элементов файла, созданного в задании 1, и полученный...

Найти и вывести на печать по три наибольших числа матрицы в порядке убывания
Ребят,срочно надо. Даны две матрицы а и б. Найти и вывести на печать по три наибольших числа в...

5
Puporev
Модератор
55118 / 42358 / 29258
Регистрация: 18.05.2008
Сообщений: 100,096
14.06.2015, 14:30 2
Цитата Сообщение от soporific_ann Посмотреть сообщение
как организовать переход от считывания одной матрицы к другой?
Pascal
1
2
3
for i:=1 to 3 do
for j:=1 to 3 do
read(f,a[i,j]);
и так 3 раза.
1
soporific_ann
0 / 0 / 0
Регистрация: 14.06.2015
Сообщений: 3
14.06.2015, 14:56  [ТС] 3
Еще вопрос: почему при попытке считать файл в строке:
Pascal
1
assign (f1, ‘d:\matritsy.txt);
перед ‘d:\matritsy.txt’ компилятор упорно пишет - "неожиданныйсимвол"? О_0
0
Puporev
Модератор
55118 / 42358 / 29258
Регистрация: 18.05.2008
Сообщений: 100,096
14.06.2015, 16:38 4
Неправильные апострофы, нужно
Pascal
1
assign (f1, 'd:\matritsy.txt');
1
soporific_ann
0 / 0 / 0
Регистрация: 14.06.2015
Сообщений: 3
14.06.2015, 16:51  [ТС] 5
Прикрепляю полный код, пишет ошибку "Выполнение после конца потока невозможно". В чем дело? (Файлы "matritsy" и "opredelitely" созданы заблаговременно.)

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
var 
f1, f2:file of integer;
a:array[1..9,1..9] of integer; 
i,j:byte;
det:integer;
 
begin
assign (f1, 'd:\matritsy.txt');
reset  (f1);
while not eof(f1) do 
begin
for i:=1 to 3 do
for j:=1 to 3 do
read(f1,a[i,j]);
det:=(a[1,1]*a[2,2]*a[3,3])+(a[1,2]*a[2,3]*a[3,1])+
(a[1,3]*a[2,1]*a[3,2])- (a[1,3]*a[2,2]*a[3,1])-(a[1,1]*a[2,3]*a[3,2])-
(a[1,2]*a[2,1]*a[3,3]);
Begin
Assign (f2, 'd:\opredelitely.txt');
Reset(f2);
Write (det);
Writeln (det);
Close(f2);
end;
end;
end.
0
Puporev
Модератор
55118 / 42358 / 29258
Регистрация: 18.05.2008
Сообщений: 100,096
14.06.2015, 17:02 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от soporific_ann Посмотреть сообщение
В чем дело?
В пустотах в голове
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
f1, f2:text;
a:array[1..9,1..9] of integer;
i,j:byte;
det:integer;
 
begin
assign (f1, 'd:\matritsy.txt');
reset  (f1);
for i:=1 to 3 do
for j:=1 to 3 do
read(f1,a[i,j]);
close(f1);
det:=(a[1,1]*a[2,2]*a[3,3])+(a[1,2]*a[2,3]*a[3,1])+
(a[1,3]*a[2,1]*a[3,2])- (a[1,3]*a[2,2]*a[3,1])-(a[1,1]*a[2,3]*a[3,2])-
(a[1,2]*a[2,1]*a[3,3]);
Assign (f2, 'd:\opredelitely.txt');
Reset(f2);
Write (det);
Writeln (det);
Close(f2);
end.
Добавлено через 1 минуту
И нафига
Pascal
1
array[1..9,1..9] of integer;
если массив 3х3
1
14.06.2015, 17:02
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2015, 17:02

Записи. Считать из файла базу данных. Найти самого старшего человека из Москвы
В базе данных 14 человек. ФИО/Дата рождения/Город/Номер телефона 1) Вывести данные в виде таблицы....

Даны три матрицы, найти их максимальные значения и определить возможность построения из них треугольника
Здравствуйте! Помогите пожалуйста решить задачу. Задание: В трех произвольно заданных...

Даны три целочисленные квадратные матрицы. Найти ту из них, где больше нулевых строк
Даны три целочисленные квадратные матрицы. Найти ту из них, где больше нулевых строк. Ввод...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru