IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Матрицы, помогите решить 1 задачку
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 3
Пол: Женский
Реальное имя: Леся

Репутация: -  0  +


Формулировка условия задачи

а) В матрице А поменять местами два столбца с заданными номерами
б) сформировать из элементов полученной матрицы, которые определяются как суммы элементов ее столбцов, диагональную матрицу С;
в) если среди элементов главной диагонали С нет равных, найти ее след, в противном случае вычесть из С единичную матрицу.
Помогите пожалуйста, надо очень срочно решить. а никак. и если есть возможность-поразвернутей, плиз.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Ответы на ВСЕ вопросы ты наедешь здесь
Просто поищи.
+ поиск по форуму. Будут конкретные вопросы, задавай.

Сообщение отредактировано: klem4 -


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 3
Пол: Женский
Реальное имя: Леся

Репутация: -  0  +


помогите пожалуйста, напишите поподробней. второй день изучаю FAQ, а толку мало. wacko.gif если не очень сложно и есть желание помочь, хотелось бы именно программку полностью. там все разбито по частям и в итоге ничего не получается. HELP ME!! !mol1.gif !mol1.gif !mol1.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Цитата(lesena-85 @ 8.04.2006 18:51)
хотелось бы именно программку полностью

А поможет она тебе? no1.gif

Ну, попробуй разобраться:


Прикрепленные файлы
Прикрепленный файл  tt.pas ( 1.63 килобайт ) Кол-во скачиваний: 119
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





Группа: Пользователи
Сообщений: 3
Пол: Женский
Реальное имя: Леся

Репутация: -  0  +


Цитата(volvo @ 8.04.2006 20:04) *

А поможет она тебе? no1.gif

Ну, попробуй разобраться:


Спасибо, я разобралась. единственное, у меня еще задача. чтобы ввод и вывод данных был из файла. а с этим проблемы...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Вот с этим как раз никаких проблем:
Program matrix_test(input, output); { добавляешь это }

{ меняешь старую процедуру enter на эту }
procedure enter(var res: mx);
var i, j: integer;
begin
for i := 1 to n do begin
for j := 1 to n do read(res[i, j]); { }
readln;
end;
end;

{ добавляешь в начале основной программы вот это: }
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);

... { остальная часть программы }

{ не забываем закрывать файлы }
close(output);
close(input);
end.


Естественно, что в файле матрица должна храниться в виде: N строк в каждой по N элементов...
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 22.08.2017 20:02
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"