Хелп ! помощь в решении задачи в Паскале

Задание в Паскале , плизз нужно срочно помощь =(


Дана матрица Р(7х6) . Вписать в массив элементы , которые делятся на 3 и 6 без остатка . Найти в каждой колоне 0 цысло . Вывести на экран результат матрицы ,

(sa6ok @ 16.02.2007 - время: 12:48) Задание в Паскале , плизз нужно срочно помощь =(


Дана матрица Р(7х6) . Вписать в массив элементы , которые делятся на 3 и 6 без остатка . Найти в каждой колоне 0 цысло . Вывести на экран результат матрицы ,
Тут хорошо бы уточнить, что такое 0 "цысло" и результат матрицы, потому как это я уже и не помню. :) В общем матиматику в студию, тем более что справочника под рукой все-равно нет и не предвидится :)

(petya5 @ 16.02.2007 - время: 17:06) (sa6ok @ 16.02.2007 - время: 12:48) Задание в Паскале , плизз нужно срочно помощь =(


Дана матрица Р(7х6) . Вписать в массив элементы , которые делятся на 3 и 6 без остатка . Найти в каждой колоне 0 цысло . Вывести на экран результат матрицы ,
Тут хорошо бы уточнить, что такое 0 "цысло" и результат матрицы, потому как это я уже и не помню. :) В общем матиматику в студию, тем более что справочника под рукой все-равно нет и не предвидится :)
матрица ето двухмерный массив , в каждой колоне найти 0 если он там будет и вывести матрицу которая делятся на 3 и 6 без остатка

стало еще непонятней

Примерно понял задание так:
1. Забить массив 7х6 случайными числами так, чтобы определитель делился на 6.
2. Если есть 0, найти и вывести.

*Наморщил лоб и начал вспоминать нахождение определителей, честно сданное два года назад вместе с остальными вопросами очередного передмета из области вышки и засим наглухо забытое...*

Ты бы скинул формулу для расчета определителя матрицы 7х6, а то мало ли перепутаем, неприятно будет....

Зы Паскаля у меня нет, консольное приложение Делфи тебя устроит?

(Gorjie @ 16.02.2007 - время: 20:56) Ты бы скинул формулу для расчета определителя матрицы 7х6, а то мало ли перепутаем, неприятно будет....
Разве у неквадратной матрицы можно вообще найти определитель? По-моему, нет...


А поточнее формулировку задания нельзя ли привести?

H(6x7) -> a:array of Integer;

Офигеть уточнил...

(Ronin @ 16.02.2007 - время: 23:41) (Gorjie @ 16.02.2007 - время: 20:56) Ты бы скинул формулу для расчета определителя матрицы 7х6, а то мало ли перепутаем, неприятно будет....
Разве у неквадратной матрицы можно вообще найти определитель? По-моему, нет...


А поточнее формулировку задания нельзя ли привести?
Может и можно, дополнив её нулями до квадратной... Не помню, это два года назад было, и то в трех лекциях... Поэтому и прошу матчасть.

Сашок, мы тебе поможем, если ты хотя бы внятно скажешь, что тебе надо...

Получить матрицу Р(7х6) {7 элементов по горизонтали , 6 по вертикали } которая делятся на 3 и 6 без остатка , Найти в каждой колоне 0 , если попадется , заполнять елементы автоматом функцией { Random }

(sa6ok @ 17.02.2007 - время: 21:30) Получить матрицу Р(7х6) {7 элементов по горизонтали , 6 по вертикали } которая делятся на 3 и 6 без остатка , Найти в каждой колоне 0 , если попадется , заполнять елементы автоматом функцией { Random }
Уже яснее. :) Еще несколько вопросов. Что значит матрица каторая делится на 3 и 6? Каждый ее элемент? Или как-то вся матрица должна делиться на 3 и 6? И что сделать с 0-ми элементами, если таковые будут? Указать сколько их в матриче? Или сколько их в каждой колонке (то бишь сделать массив длинной = колличеству колонок. Каждый элемент - количество нулей и колонке)?

В общем без уточнения решение выглядит примерно так

type TMatrix = array of Integer;
type TZeroArray = array 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 := 0; //Если элементы передаваемого массива гарантированно нулевые, то эта строка не нужна
while j<=5 do begin
tempVal := Rendom(50); //генерация "цысел" от 0 до 50 :)
if ((tempVal mod 6) = 0) and ((tempVal mod 3) = 0) then begin
Result:= tempVal;
if (tempVal = 0) then zeroesByColumns := zeroesByColumns + 1;
j := j + 1;
end;
end;
end;
end;

Далее в основной программе вызываешь эту функцию, передаешь ей существующую переменную массива, куда она запишет колличество нулей в соответствующей колонке. Результатом функции и будет необходимая матрица. Если нужно, что бы нулей было побольше, у Random'а уменьши значение с 50 до... До меньшего. :) Чем оно меньше, тем чаще будут попадаться 0-и. :)
Это если задание именно таково, как я его описал в предыдущем посте. Если что-то по сути не так - уточняй, желательно с приведением математического апарата, т.к. народ тут хоть и умный, но в ВУЗах давно уже отучившийся, а следовательно благополучно математику позабывший. :) По крайней мере я.

petya5 взгляни че за ошибку выдаёт => мошет както по особому запускать нужно
https://816.sytes.net/bitbucket/clip_image002.jpg

по пробуй после TMatrix точку с запятой поставить
и ты же надеюсь не просто запихнул все, что тебе написали в редактор. Тебе написали ф-цию, ты должен ее вставить в прогу, вызвать, передать параметры... ))))

дам , я нооб в Паскале только начал изучать

(sa6ok @ 19.02.2007 - время: 23:49) дам , я нооб в Паскале только начал изучать
Не, ребят, ну я все понимаю, что студентам тяжело учиться: сам был студентом. И что предмет новый тоже понимаю. Но не до такой же степени, что бы не разобраться в отсутствии ;
:)
Хочу лишь заметить, что у меня ни паскаля ни Делфи, весь код набирал в нотепаде, так что за синтаксические ошибки звиняйте: на "компилябельность" его не проверял: средств нету. Соответственно готовую программулину тоже дать не смогу. Да это и излишне: я решение привел, хорошо она или нет. Уж сделать из него полноценную программу (фактически написать синтаксически верную обертку паскаль-кода), сможет любой студент, независимо от того, изучал он паскаль ранее или ему это только предстоит. :)