задачи с процедурами |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
задачи с процедурами |
me to you |
26.05.2007 19:17
Сообщение
#1
|
Группа: Пользователи Сообщений: 4 Пол: Женский Репутация: 0 |
Помогите... срочно нужна помощ...
1. Если среднее арифметическое матрицы А положительно, задать элементам С1, С2,...,Ск значения тех элементов матрицы А, которые больше этого среднего арифметического. Для проверки наличия нулевых эл. в произв. строке матрицы использовать процедуру. 2.для матрицы А(4х5) вывести те строки, в которых есть нулевые элементы, или вывести сообщения "нет строк с нулями" Без процедур она как делать нефиг решается... Вот что я написала, но не пашет ) program z; type matr=array[1..5,1..5] of real; var c,s: real; A:matr; n,i,j,k:integer; procedure vvod_matr(n:integer;var A:matr); var i,j:integer; begin writeln ('Vvedite N'); readln (N); writeln ('Vvedite matrix A razmerom ',n,'*',n); for i:=1 to n do for j:=1 to n do read (a[i,j]); readln; end; function vich(var s:real; n:integer;var A:matr):real; var i,j:integer; begin s:=0; for i:=1 to n do begin for j:=1 to n do s:=s+a[i,j]/(n*n); end; vich:=S end; procedure SOOTV(var c,s:real; k:integer; var A:matr); var i,j: integer; begin k:=0; for i:=1 to n do for j:=1 to n do if a[i,j]>s then begin k:=k+1; c:=a[i,j]; writeln('k= ',k:2,'c= ',c:2:2); readln; end; end; Begin vvod_matr(n, A); vich(s,n,A); if S > 0 then SOOTV(c,s, k, A) else begin writeln('среднее арифметическое меньше нуля'); readln; end End. 2. program x; type matr=array[1..4,1..5] of real; var A,B:matr; i,k,n :integer; f:boolean; Procedure vvod_matr (n,m:integer; var A:matr); var i,j: integer; begin writeln('input matrix A size of ',n,' x ',m); for i:=1 to n do for j:=1 to m do read (A[i,j]); readln; end; procedure vivod_mas (n,m:integer; var B:matr); var i,j:integer; begin for j:=1 to m do write(B[i,j]); writeln end; function FLAG(m:integer;var A:matr):boolean; var j:integer; f:boolean; begin f:=false; for j:=1 to m do if A[i,j]=0 then f:=true; FLAG:=f; end; Begin vvod_matr(n,m,A); k:=0; for i:=1 to n do begin if f=true then begin vivod_mas(m,B); end else k:=k+1; end; if k=n then begin writeln('Het ctpok c Hy/\9lmu'); readln; end else End. Сообщение отредактировано: me to you - 26.05.2007 19:18 |
мисс_граффити |
26.05.2007 23:00
Сообщение
#2
|
просто человек Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: 55 |
me to you, пожалуйста, уважайте собеседников и заключайте код программ в теги code!
отредактируйте сообщение, будьте любезны. -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
Текстовая версия | 29.04.2024 18:06 |