|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.05.2011, 18:48 | #1 |
Регистрация: 28.04.2011
Сообщений: 8
|
Исправить модуль
Исправить модуль так, чтобы сначала выводил исходный двумерный массив, а затем примерно так:
4 4 5 6 5 4,8 2 6 4 6 4 5 5 2 5 3 4 3 6 4,2 3 2 6 3 3 4 3,6 3 5 6 4 4 4 4,6 3 где 6 столбец-сред.арифметическое, а 7 столбец-большие сред.арифметического Модуль_1 unit op; interface const MaxN=25; type TMyArray=Array[1..maxN, 1..maxN] of integer; implementation end. Модуль_2 uses op,module,crt; var A : TMyArray; n, m : Integer; begin Clrscr; Zapolnenie(n, m, A); Vivod(n, m, A); Sr_ar (n, m, A); readln end. Модуль_3 unit module; interface uses op; procedure Zapolnenie(var v, w: integer; var X :TMyArray); procedure Vivod (v, w: integer; var X:TMyArray); procedure Sr_ar(v, w: integer; X :TMyArray); implementation procedure Zapolnenie(var v,w:integer; var X :TMyArray); var i, j:integer; begin repeat write('Количество строк до ',MaxN,' n='); readln(v); until v in [1..MaxN]; repeat write('Количество столбцов до ',MaxN,' m='); readln(w); until w in [1..MaxN]; For i:=1 to v do For j:=1 to w do X[i,j]:=random(5)+2; end; procedure Vivod(v,w:integer; var X:TMyArray); var i,j:integer; begin For i:=1 to v do begin For j:=1 to w do write(X[i,j]:3); Writeln; end; writeln; end; procedure Sr_ar(v, w: integer; X :TMyArray); var i,j,r:integer; ar:real; begin for i:=1 to v do begin ar:=0; r:=0; for j:=1 to w do ar:=X[i,j]+ar; ar:=ar/w; writeln('Среднее арифметическое ',i,' строки= ', ar:0:2); for j:=1 to w do if x[i,j]<ar then r:=r+1; writeln('Количество элементов больше среднего=',r); end; end; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Модуль((((( | strabik | Общие вопросы C/C++ | 8 | 13.11.2010 23:28 |
Типизированные файлы, модуль Crt, Модуль Graph | Kate_Fleur | Помощь студентам | 1 | 06.05.2010 17:43 |
МОДУЛь | pahom | Помощь студентам | 2 | 23.04.2010 10:43 |
Модуль | Hilda | Помощь студентам | 3 | 17.03.2010 19:12 |
Модуль | ponchikpk | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 15.05.2009 11:14 |