Страница 1 из 1
Помогите с прогой! Pascal
Добавлено: 27 окт 2006, 13:24
AS Roma
Составить подпрограмму, которая определяет номера столбцов матрицы X(M,N), в которых есть нулевые элементы. С помощью подпрограммы определить номера столбцов с нулевыми элементами для матриц B(4,8 ) , C(6,9) и D(2,7).
Массивы B,C и D ввести с экрана дисплея.
Добавлено: 27 окт 2006, 14:58
Лелик_1044
for i:=0 to 4 do
fort j:=0 to 8 do
if massiv[i,j]=0 then ....
по-моему так...
Добавлено: 29 окт 2006, 12:23
AS Roma
Странно-странно
Добавлено: 29 окт 2006, 19:40
AS Roma
Ну кто-нибудь помогите в конце концов
Добавлено: 30 окт 2006, 08:42
somewhere
Код: Выделить всё
Type
TByteArray = array[0..255] of byte;
TMatrix = array[1..255][1..255] of Real;
....
....
Function GetNullColumnList(Rows, Cols:Byte; var El : TMatrix): TByteArray;
var x,y : Integer;
begin
Result[0] := 0;
For X:=1 to Cols do
For Y := 1 to Rows do
If El[Y][X] = 0 then
begin
inc(Result[0]);
Result[Result[0]] := X;
end;
end;
В 0-ом элементе результата - число столбцов
В остальных - их номера
Добавлено: 30 окт 2006, 22:00
AS Roma
Cпасибо решил
Закройте тему