Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.04.2009, 18:25   #1
mono
 
Регистрация: 06.04.2009
Сообщений: 6
По умолчанию использование функций в качестве параметров других функций

для массива T из n элементов составить процедуру, формирующую массив из индексов элементов массива T, для которых f(T[i]), больше заданнгой величины.
В каждой строке матрицы 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;
mono вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Использование функций prikolist Общие вопросы C/C++ 15 06.04.2009 18:42
Использование логических функций Клубничка Microsoft Office Excel 52 15.01.2009 15:01
использование процедур и функций! ...Оленька... Паскаль, Turbo Pascal, PascalABC.NET 0 24.12.2008 15:33
передача объектов как параметров функций в Dll Umen Общие вопросы Delphi 9 12.11.2006 19:31