Свободен
Скрыть опции темы
Привет, гость!
Зарегистрируйся, чтобы получить полный доступ и возможность писать в форуме, группах и блогах.
Вход Регистрация
Вход Регистрация
 sa6ok
|
|
|
Задание в Паскале , плизз нужно срочно помощь =( Дана матрица Р(7х6) . Вписать в массив элементы , которые делятся на 3 и 6 без остатка . Найти в каждой колоне 0 цысло . Вывести на экран результат матрицы , |
 petya5
|
|||
|
Тут хорошо бы уточнить, что такое 0 "цысло" и результат матрицы, потому как это я уже и не помню. :) В общем матиматику в студию, тем более что справочника под рукой все-равно нет и не предвидится :) |
||
|
sa6ok
|
|||||
|
матрица ето двухмерный массив , в каждой колоне найти 0 если он там будет и вывести матрицу которая делятся на 3 и 6 без остатка |
||||
 Marilyn Omen
|
|
|
стало еще непонятней 
|
|
Gorjie
|
|
|
Примерно понял задание так: 1. Забить массив 7х6 случайными числами так, чтобы определитель делился на 6. 2. Если есть 0, найти и вывести. *Наморщил лоб и начал вспоминать нахождение определителей, честно сданное два года назад вместе с остальными вопросами очередного передмета из области вышки и засим наглухо забытое...* Ты бы скинул формулу для расчета определителя матрицы 7х6, а то мало ли перепутаем, неприятно будет.... Зы Паскаля у меня нет, консольное приложение Делфи тебя устроит? |
|
Ronin
|
|||
|
Разве у неквадратной матрицы можно вообще найти определитель? По-моему, нет... А поточнее формулировку задания нельзя ли привести? |
||
|
sa6ok
|
|
|
H(6x7) -> a:array[1..6,1..7] of Integer;
|
|
Marilyn Omen
|
|
|
Офигеть уточнил...
|
|
Gorjie
|
|||||
|
Может и можно, дополнив её нулями до квадратной... Не помню, это два года назад было, и то в трех лекциях... Поэтому и прошу матчасть. Сашок, мы тебе поможем, если ты хотя бы внятно скажешь, что тебе надо... Это сообщение отредактировал Gorjie - 17-02-2007 - 14:51 |
||||
|
sa6ok
|
|
|
Получить матрицу Р(7х6) {7 элементов по горизонтали , 6 по вертикали } которая делятся на 3 и 6 без остатка , Найти в каждой колоне 0 , если попадется , заполнять елементы автоматом функцией { Random } Это сообщение отредактировал sa6ok - 17-02-2007 - 22:31 |
|
petya5
|
|||
|
Уже яснее. :) Еще несколько вопросов. Что значит матрица каторая делится на 3 и 6? Каждый ее элемент? Или как-то вся матрица должна делиться на 3 и 6? И что сделать с 0-ми элементами, если таковые будут? Указать сколько их в матриче? Или сколько их в каждой колонке (то бишь сделать массив длинной = колличеству колонок. Каждый элемент - количество нулей и колонке)? |
||
|
petya5
|
|
|
В общем без уточнения решение выглядит примерно так 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 |
|
sa6ok
|
|
|
petya5 взгляни че за ошибку выдаёт => мошет както по особому запускать нужно http://816.sytes.net/bitbucket/clip_image002.jpg Это сообщение отредактировал sa6ok - 19-02-2007 - 21:39 |
 Arhaim
|
|
|
по пробуй после TMatrix точку с запятой поставить и ты же надеюсь не просто запихнул все, что тебе написали в редактор. Тебе написали ф-цию, ты должен ее вставить в прогу, вызвать, передать параметры... )))) Это сообщение отредактировал Arhaim - 20-02-2007 - 00:19 |
|
sa6ok
|
|
|
дам , я нооб в Паскале только начал изучать
|
|
petya5
|
|||
|
Не, ребят, ну я все понимаю, что студентам тяжело учиться: сам был студентом. И что предмет новый тоже понимаю. Но не до такой же степени, что бы не разобраться в отсутствии ; :) Хочу лишь заметить, что у меня ни паскаля ни Делфи, весь код набирал в нотепаде, так что за синтаксические ошибки звиняйте: на "компилябельность" его не проверял: средств нету. Соответственно готовую программулину тоже дать не смогу. Да это и излишне: я решение привел, хорошо она или нет. Уж сделать из него полноценную программу (фактически написать синтаксически верную обертку паскаль-кода), сможет любой студент, независимо от того, изучал он паскаль ранее или ему это только предстоит. :) |
||
|
Рекомендуем почитать также топики: Daemon Tools + StarForce Machinarium Добавить оперативки 1*512 или 2*256 Активации Windows Замена видеокарты |