использование функций в качестве параметров других функций
Добавлено: 20 апр 2009, 18:21
для массива T из n элементов составить процедуру, формирующую массив из индексов элементов массива T, для которых f(T), больше заданнгой величины.
В каждой строке матрицы A распечатать только те жлементы, модуль которых больше G
В каждой строке матрицы A распечатать только те жлементы, модуль которых больше G
Код: Выделить всё
program lab_14;
uses crt;
const maxcount=50;
type matrix=array [1..maxcount,1..maxcount] of real;
var
matr: matrix;
n, m: integer;
min, max: real;
ask: char;
num: integer;
procedure EnterMatrixSize(var x,y: integer);
begin
repeat
write('Введите количество строк матрицы (1..',MAXCOUNT,') ');
readln(x);
if (x<1) then
writeln('Ошибка! Размерность матрицы не может быть '+'меньшей единицы. Повторите ввод.');
if (x>MAXCOUNT) then
writeln('Ошибка! Размерность матрицы не должна быть '+'большей ',MAXCOUNT,'. Повторите ввод.');
until (x>0)and(x<=MAXCOUNT);
repeat
write('Введите количество столбцов матрицы (1..',MAXCOUNT,') ');
readln(y);
if (y<1) then
writeln('Ошибка! Размерность матрицы не может быть '+'меньшей единицы. Повторите ввод.');
if (y>MAXCOUNT) then
writeln('Ошибка! Размерность матрицы не должна быть '+'большей ',MAXCOUNT,'. Повторите ввод.');
until (y>0)and(y<=MAXCOUNT);
end;
procedure EnterMatrix (x,y: integer; var M: Matrix);
var
i,j: integer;
begin
writeln('Введите элементы прямоугольной матрицы:');
for i:=1 to x do
for j:=1 to y do begin
write('M[',i,',',j,'] = ');
readln(M[i,j]);
end;
end;
procedure GenerateMatrix (x,y: integer; var M: Matrix);
var
i,j: integer;
begin
for i:=1 to x do
for j:=1 to y do
M[i,j] := random*(max-min)+min;
end;