|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.06.2007, 17:33 | #1 |
Новичок
Джуниор
Регистрация: 12.06.2007
Сообщений: 1
|
Паскаль. Две задачи с матрицами
1.Для матрицы А (4 строки;5 столбцов) вывести те строки, в которых есть нулевые элементы или вывести сообщение "нет строк с нулевыми элементами". Для проверки наличия нулевых элементов в произвольной строке матрицы использовать процедуру.
2. Дана матрица 6Х6.Составить процедуру, которая находит номер первого от начала массива Т элемента, для которого f(Ti) больше заданной величины. Для каждой строки матрицы А отпечатать элементы, начиная с элемента, абсолютная величина которого больше R. Заранее спасибо. |
12.06.2007, 23:58 | #2 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
-=1=-
const M=4; N=5; var i,j,s:integer; A:array[1..M,1..N]of integer; procedure Create_Mass; begin Randomize(); for i:=1 to m do begin for j:= 1 to n do begin a[i,j]:=Random(10); end; end; end; procedure Find(str:integer); var stop:boolean; kol:integer; begin stop:=false; kol:=0; for i:=1 to m do begin if (a[i,str]='0')and(stop=false) then begin stop:=true; {если есть хоть один ноль, то берем всю строку} for j:=1 to M do begin Write(a[j,str],' '); inc(kol); end; end; end; if kol=0 then Writeln('Нулевых элементов в строке ',str,' не найдено!'); end; begin {*} Create_Mass; Writeln('Введите строку 1-4 для поиска в ней нулевых элементов: '); Readln(s); Find(s); {*} end. ///////////////// Между {*} и {*} для автоматического перебора вставляем код: Create_Mass; for i:=1 to M do begin Find(i); end; end.
Life is too short, play more...
Как правильно задавать вопросы Последний раз редактировалось Alex21; 13.06.2007 в 09:07. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задачи...Паскаль | Silena | Помощь студентам | 6 | 25.03.2008 16:27 |
Паскаль. задачи | Bagsi | Помощь студентам | 3 | 26.10.2007 20:30 |
4 задачи, Паскаль | VirtuozZz | Помощь студентам | 9 | 26.04.2007 22:41 |