Дана матрица Р(7х6) . Вписать в массив элементы , которые делятся на 3 и 6 без остатка . Найти в каждой колоне 0 цысло . Вывести на экран результат матрицы ,
| QUOTE (sa6ok @ 16.02.2007 - время: 12:48) |
| Задание в Паскале , плизз нужно срочно помощь =( Дана матрица Р(7х6) . Вписать в массив элементы , которые делятся на 3 и 6 без остатка . Найти в каждой колоне 0 цысло . Вывести на экран результат матрицы , |
Тут хорошо бы уточнить, что такое 0 "цысло" и результат матрицы, потому как это я уже и не помню. :) В общем матиматику в студию, тем более что справочника под рукой все-равно нет и не предвидится :)
| QUOTE (petya5 @ 16.02.2007 - время: 17:06) | ||
Тут хорошо бы уточнить, что такое 0 "цысло" и результат матрицы, потому как это я уже и не помню. :) В общем матиматику в студию, тем более что справочника под рукой все-равно нет и не предвидится :) |
матрица ето двухмерный массив , в каждой колоне найти 0 если он там будет и вывести матрицу которая делятся на 3 и 6 без остатка
1. Забить массив 7х6 случайными числами так, чтобы определитель делился на 6.
2. Если есть 0, найти и вывести.
*Наморщил лоб и начал вспоминать нахождение определителей, честно сданное два года назад вместе с остальными вопросами очередного передмета из области вышки и засим наглухо забытое...*
Ты бы скинул формулу для расчета определителя матрицы 7х6, а то мало ли перепутаем, неприятно будет....
Зы Паскаля у меня нет, консольное приложение Делфи тебя устроит?
| QUOTE (Gorjie @ 16.02.2007 - время: 20:56) |
| Ты бы скинул формулу для расчета определителя матрицы 7х6, а то мало ли перепутаем, неприятно будет.... |
Разве у неквадратной матрицы можно вообще найти определитель? По-моему, нет...
А поточнее формулировку задания нельзя ли привести?
| QUOTE (Ronin @ 16.02.2007 - время: 23:41) | ||
Разве у неквадратной матрицы можно вообще найти определитель? По-моему, нет... А поточнее формулировку задания нельзя ли привести? |
Может и можно, дополнив её нулями до квадратной... Не помню, это два года назад было, и то в трех лекциях... Поэтому и прошу матчасть.
Сашок, мы тебе поможем, если ты хотя бы внятно скажешь, что тебе надо...
Это сообщение отредактировал Gorjie - 17-02-2007 - 14:51
Это сообщение отредактировал sa6ok - 17-02-2007 - 22:31
| QUOTE (sa6ok @ 17.02.2007 - время: 21:30) |
| Получить матрицу Р(7х6) {7 элементов по горизонтали , 6 по вертикали } которая делятся на 3 и 6 без остатка , Найти в каждой колоне 0 , если попадется , заполнять елементы автоматом функцией { Random } |
Уже яснее. :) Еще несколько вопросов. Что значит матрица каторая делится на 3 и 6? Каждый ее элемент? Или как-то вся матрица должна делиться на 3 и 6? И что сделать с 0-ми элементами, если таковые будут? Указать сколько их в матриче? Или сколько их в каждой колонке (то бишь сделать массив длинной = колличеству колонок. Каждый элемент - количество нулей и колонке)?
type TMatrix = array [0..6, 0..5] of Integer;
type TZeroArray = array [0..6] of Integer;
function GetRandomMatrix(var zeroesByColumns: TZeroArray) : TMatrix
var i,j, tempVal:integer;
begin
Randomize;
for i:=0 to 6 do begin
j:=0;
zeroesByColumns[i] := 0; //Если элементы передаваемого массива гарантированно нулевые, то эта строка не нужна
while j<=5 do begin
tempVal := Rendom(50); //генерация "цысел" от 0 до 50 :)
if ((tempVal mod 6) = 0) and ((tempVal mod 3) = 0) then begin
Result[i,j]:= tempVal;
if (tempVal = 0) then zeroesByColumns[i] := zeroesByColumns[i] + 1;
j := j + 1;
end;
end;
end;
end;
Далее в основной программе вызываешь эту функцию, передаешь ей существующую переменную массива, куда она запишет колличество нулей в соответствующей колонке. Результатом функции и будет необходимая матрица. Если нужно, что бы нулей было побольше, у Random'а уменьши значение с 50 до... До меньшего. :) Чем оно меньше, тем чаще будут попадаться 0-и. :)
Это если задание именно таково, как я его описал в предыдущем посте. Если что-то по сути не так - уточняй, желательно с приведением математического апарата, т.к. народ тут хоть и умный, но в ВУЗах давно уже отучившийся, а следовательно благополучно математику позабывший. :) По крайней мере я.
Это сообщение отредактировал petya5 - 19-02-2007 - 12:31
http://816.sytes.net/bitbucket/clip_image002.jpg
Это сообщение отредактировал sa6ok - 19-02-2007 - 21:39
и ты же надеюсь не просто запихнул все, что тебе написали в редактор. Тебе написали ф-цию, ты должен ее вставить в прогу, вызвать, передать параметры... ))))
Это сообщение отредактировал Arhaim - 20-02-2007 - 00:19
| QUOTE (sa6ok @ 19.02.2007 - время: 23:49) |
| дам , я нооб в Паскале только начал изучать |
Не, ребят, ну я все понимаю, что студентам тяжело учиться: сам был студентом. И что предмет новый тоже понимаю. Но не до такой же степени, что бы не разобраться в отсутствии ;
:)
Хочу лишь заметить, что у меня ни паскаля ни Делфи, весь код набирал в нотепаде, так что за синтаксические ошибки звиняйте: на "компилябельность" его не проверял: средств нету. Соответственно готовую программулину тоже дать не смогу. Да это и излишне: я решение привел, хорошо она или нет. Уж сделать из него полноценную программу (фактически написать синтаксически верную обертку паскаль-кода), сможет любой студент, независимо от того, изучал он паскаль ранее или ему это только предстоит. :)