Сформировать матрицу Е из А по правилу

07.10.2013, 23:58. **Показов** 1453. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Использование имени процедуры в качестве параметра другой процедуры:
Составить программу по заданному условию. Первая часть условия является заданием на разработку процедур для любой функции f1, f2. Условие второй части задания предполагает обязательное использование разработанной процедуры. В качестве исходного данного в большинстве заданий используется квадратная матрица А.

Для двух массивов В и С одинаковой длины составить процедуру, формирующую массив Т, по длине совпадающий с исходными, каждый элемент которого Тк равен сумме Вi и Сi в случае, если f2(Ci)>f1(Bi)>0. Если массив Т по длине получается меньше исходных, то он дополняется нулями.
Используя в качестве f1 синус, а в качестве f2 косинус, сформировать матрицу Е из А по правилу: первая строка матрицы Е формируется с помощью процедуры из двух первых столбцов матрицы А, вторая строка – из следующей пары столбцов и т.д.

@Puporev · 08.10.2013, 12:19

Насколько въехал в условие, то так.
Полностью условие cos>sin>0 выполняется например на интервале (0;0.7], чтобы были немного ноли, возьмем интервал (0;1);
Поскольку сравниваются столбцы парами, то возьмем размер матрицы четный.
Решил так.

Pascal

uses crt;
const max=10;
type mas=array[1..max] of real;{массив}
     mtr=array[1..max] of mas;{матрица}
     proc=procedure(n:byte;b,c:mas;var t:mas);{процедурный тип}
{опишем две функции}
function f1(x:real):real;
begin
f1:=sin(x)
end;
function f2(x:real):real;
begin
f2:=cos(x)
end;
{$F+}
{опишем процедуру для использования параметром в другой процедуре}
procedure newmas(n:byte;b,c:mas;var t:mas);
var m,i:byte;
begin
m:=0;
for i:=1 to n do
if (f1(b[i])>0)and(f2(c[i])>f1(b[i])) then
 begin
  m:=m+1;
  t[m]:=b[i]+c[i]
 end;
if m<n then
for i:=m+1 to n do
t[i]:=0;
end;
{$F-}
{основная процедура}
procedure newmtr(a:mtr;n:byte;newmas:proc;var e:mtr);
var i:byte;
begin
for i:=1 to n div 2 do
newmas(n,a[2*i-1],a[2*i],e[i])
end;
var a,e:mtr;
    n,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Размер матрицы А четное число до ',max,' n=');
readln(n);
until (n in [2..max])and(n mod 2=0);
{создадим матрицу А по столбцам}
for j:=1 to n do
for i:=1 to n do
a[j,i]:=random;
{выведем ее построчно}
writeln('Матрица А:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln
 end;
{получим новую матрицу}
newmtr(a,n,newmas,e);
{выведемее построчно}
writeln('Матрица E:');
for i:=1 to n div 2 do
 begin
  for j:=1 to n do
  write(e[i,j]:5:2);
  writeln
 end;
readln
end.

Немтинова
		1
	Сформировать матрицу Е из А по правилу 07.10.2013, 23:58. Показов 1453. Ответов 1 Метки нет (Все метки) Использование имени процедуры в качестве параметра другой процедуры: Составить программу по заданному условию. Первая часть условия является заданием на разработку процедур для любой функции f1, f2. Условие второй части задания предполагает обязательное использование разработанной процедуры. В качестве исходного данного в большинстве заданий используется квадратная матрица А. Для двух массивов В и С одинаковой длины составить процедуру, формирующую массив Т, по длине совпадающий с исходными, каждый элемент которого Тк равен сумме Вi и Сi в случае, если f2(Ci)>f1(Bi)>0. Если массив Т по длине получается меньше исходных, то он дополняется нулями. Используя в качестве f1 синус, а в качестве f2 косинус, сформировать матрицу Е из А по правилу: первая строка матрицы Е формируется с помощью процедуры из двух первых столбцов матрицы А, вторая строка – из следующей пары столбцов и т.д.

	08.10.2013, 12:19

Опции темы

Сформировать матрицу Е из А по правилу

Решение