Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.05.2015, 16:35   #1
Anya Lis
Пользователь
 
Регистрация: 19.05.2015
Сообщений: 14
По умолчанию не могу решить в Паскале

а.1 0 1 2
4 3 2 1
0 -4 8 9
б. 2 7 4 4
0.1 -3 15 7
5.5 6 3 1
Поменять местами минимальные и максимальные элементы матрицы “а” на соответствующие матрицы ”б”.

Последний раз редактировалось Anya Lis; 19.05.2015 в 16:39. Причина: не до конца введена тема
Anya Lis вне форума Ответить с цитированием
Старый 19.05.2015, 17:27   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ввод матрицы показать можешь?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 19.05.2015, 21:04   #3
Anya Lis
Пользователь
 
Регистрация: 19.05.2015
Сообщений: 14
По умолчанию

мне нужно через присоединенный файл.
Код:
assign (fr,'c:\student\14-ttp\lisina\dan5a.pas');
reset(fr);
assign (fr,'c:\student\14-ttp\lisina\dan5b.pas');
reset(fr);
assign (fw,'c:\student\14-ttp\lisina\res5a.pas');
rewrite (fw);
assign (fw,'c:\student\14-ttp\lisina\res5b.pas');
rewrite (fw);
for i:=1 to 3 do
for j:=1 to 4 do
read (fr,a[i,j]);
for i:=1 to 3 do
for j:=1 to 4 do
read (fr,b[i,j]);
Anya Lis вне форума Ответить с цитированием
Старый 19.05.2015, 22:08   #4
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,309
По умолчанию

У меня возник вопрос.
Почему при открытии файлов у Вас используется один и тот же указатель для работы с разными файлами? В первых двух строках - fr, а затем fw?
Для работы с определенным файлом необходимо использовать один указатель, а для работы с другим - второй. Это если Вы хотите работать с, например, двумя файлами одновременно.
В вашем случае можно создать четыре указателя.
Код:
assign (fr1,'c:\student\14-ttp\lisina\dan5a.txt');
reset(fr1);
for i:=1 to 3 do
begin
   for j:=1 to 3 do
      read (fr1,a[i,j]);
   readln(fr1, a[i,j]);
end;

assign (fr2,'c:\student\14-ttp\lisina\dan5b.txt');
reset(fr2);
for i:=1 to 3 do
begin
   for j:=1 to 3 do
      read (fr2,b[i,j]);
   readln(fr1, b[i,j]);
end;
...
{Тут ищем мин и макс элементы для первой матрицы: сохраняем номера строк и столбцов}
{Тут ищем мин и макс элементы для второй матрицы: сохраняем номера строк и столбцов}
{Тут выполняем обмен найденными значениями}
...
assign (fw1,'c:\student\14-ttp\lisina\res5a.tst');
rewrite (fw1);
for i:=1 to 3 do
begin
   for j:=1 to 3 do
      write (fw1, a[i,j]:4:2);
   writeln(fw1, a[i,j]:4:2);
end;
assign (fw2,'c:\student\14-ttp\lisina\res5b.txt');
rewrite (fw2);
for i:=1 to 3 do
begin
   for j:=1 to 3 do
      write (fw2, a[i,j]:4:2);
   writeln(fw2, a[i,j]:4:2);
end;
Close(fw1);
Close(fw2);
...
Расширение файлов изменил, так как данные будут читаться и писаться в файл текстового формата.
В частности, в файле dan5a.txt данные для матрицы должны быть записаны так:
Код:
1  0 1 2
4  3 2 1
0 -4 8 9
А тут есть код для поиска, например, максимального элемента ...
http://www.programmersforum.ru/showthread.php?t=70310


Как-то так, ...
Как-то так, ...

Последний раз редактировалось ViktorR; 19.05.2015 в 22:12.
ViktorR вне форума Ответить с цитированием
Старый 20.05.2015, 16:10   #5
Anya Lis
Пользователь
 
Регистрация: 19.05.2015
Сообщений: 14
По умолчанию

спасибо большое) буду пробовать)
Anya Lis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не могу решить. Дима22 Помощь студентам 7 26.01.2013 17:21
Не могу решить массив teac2010 Помощь студентам 0 22.01.2012 14:06
не могу решить kornit Помощь студентам 0 17.12.2011 20:14
не могу решить wrangler Общие вопросы C/C++ 11 06.12.2009 20:14
Не могу решить naMazi Microsoft Office Access 2 08.05.2008 06:37