|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.11.2011, 21:33 | #1 |
Регистрация: 28.11.2011
Сообщений: 5
|
процедуры и функции
почему у меня значения mi выводятся все нули?
или у меня файл не открывается? Program Lab7; uses crt; type matr =array[1..3,1..3] of real; function min(X:matr;m,n:integer):real; var stmin:real; i,j:integer; begin for j:= 1 to n do begin stmin:=X[1,j]; for i:=1 to m do if x[i,j]<stmin then stmin:= x[i,j]; end;end; procedure input(var Y:matr;m,n:integer;L:string); var i,j:integer; d:text; begin assign(d,l); reset(d); readln(d); for i:=1 to m do for j:=1 to n do read(d,y[i,j]); close(d); end; var mi :array[1..4] of real ;i:integer; la,lb,lc,ld:matr; begin input(la,2,2,'La.pas'); input(lb,2,2,'Lb.pas'); input(lc,3,3,'LC.pas') ; input(ld,3,3,'LD.pas') ; mi[1]:=min(la,2,2); mi[2]:=min(lb,2,2); mi[3]:=min(lc,3,3); mi[4]:=min(ld,3,3); writeln('ìèíèìàëüíîå çíà÷åíèå ñòîëáöîâ ìàòðèö'); for i:= 1 to 4 do write(Mi[i]:5:2); writeln; end. |
28.11.2011, 21:37 | #2 |
Регистрация: 28.11.2011
Сообщений: 5
|
вот задание само:Найти минимальное значение среди первых элементов столбцов каждой из матриц A, B , C, D и напечатать их в порядке убывания. Вычисление минимального элемента оформить в виде подпрограммы - функции.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Процедуры и функции | GTO7778 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 06.10.2011 20:41 |
Процедуры и функции | GTO7778 | Помощь студентам | 0 | 06.10.2011 19:16 |
Процедуры и функции!!!! | k4k7u3 | Помощь студентам | 0 | 12.12.2010 18:41 |
процедуры/функции | vihlyaev | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 07.06.2010 23:43 |
Процедуры и функции... | hohol90 | Помощь студентам | 3 | 25.10.2009 05:16 |