В заданном массиве заменить нулями элементы, не превышающие заданное значение

@Xo6ut · Регистрация: 04.11.2011

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

Помогите пожалуйста, не имею понятия как делать. Составить программу по заданному условию. Первая часть условия является заданием на разработку процедуры для функции f или пару функций(f1,f2). Условие 2ой части задания предполагает обязательное использование разработанной процедуры. В большинстве случаев исходным данным является квадратная матрица А.
А вот и само условие:Cоставить процедуру, которая в заданном массиве С заменяет нулями элементы, не превышающие $https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{1}{B}\sum_{i=1}^{n}f({C}_{i})$ где n кол-во эл в массиве С, а B некоторая величина. Задать в качестве f синус и B=5, применить процедуру к каждому столбцу матрицы А, подсчитав при этом как изменится средн арифметическое матрицы А

Добавлено через 1 час 6 минут
Знает кто как сделать?

@Cyborg Drone · 18.11.2013, 23:42

Не по теме:

Сообщение от Xo6ut

исходным данным является квадратная матрица А.

Сообщение от Xo6ut

в заданном массиве С

Сообщение от Xo6ut

применить процедуру к каждому столбцу матрицы А

Как-то всё несуразно выглядит. Можно было бы не копировать, а написать, что конкретно требуется сделать.

Сообщение от Xo6ut

подсчитав при этом как изменится средн арифметическое матрицы А

никак среднее арифметическое не изменится. Оно не было определено. Наверное, его просто надо вычислить.

Сообщение от Xo6ut

Знает кто как сделать?

Конечно же, кто знает как сделать.

Оформляйте свои посты более подробно. Чтобы каждому необученному академику было ясно, хотя бы приблизительно, что именно Вы хотели спросить.

@Xo6ut · 19.11.2013, 00:33 **[ТС]**

Вот 2 фотки, на 1 из них общее условие, на 2ой, по вариантам(я 21)

@Xo6ut · 19.11.2013, 23:00 **[ТС]**

помогите пжлст

Добавлено через 2 часа 28 минут
Ап.

@Cyborg Drone · 20.11.2013, 01:05

Да... Вы написали задание полностью. Извиняюсь за всяческие придирки. Методичка путаницей изъяснений и несуразными умолчаниями привела меня в уныние. Автору надо бы два балла за неё поставить. Вот, еле написал, как я это дело понял.

Pascal

program test;
 
const n = 10;
 
type func = function(x: real): real;
 
{$F+}
function sinus(x : real):real;
begin
  sinus := sin(x)
end;
{$F-}
 
procedure zeroset(b: real; var c: array of real; f: func);
var i: integer;
    a: real;
begin
  a := 0;
  for i := 0 to sizeof(c) - 1 do a := a + f(c[i]);
  a := a / b;
  for i := 0 to sizeof(c) - 1 do if c[i] < a then c[i] := 0
end;
 
var a: array [1..n] of array [1..n] of real;
    i, j: integer;
    q, p: real;
 
begin
  randomize;
  q := 0;
  writeln('Source array A:');
  for j := 1 to n do
    begin
      for i := 1 to n do
        begin
          a[i, j] := random * 200 - 100;
          q := q + a[i, j];
          write(a[i, j]:7:2)
        end;
      writeln
    end;
  q := q / n / n;
  writeln('Average of A =', q:7:2);
  for i := 1 to n do zeroset(5, a[i], sinus);
  p := 0;
  writeln('Result array A:');
  for j := 1 to n do
    begin
      for i := 1 to n do
        begin
          p := p + a[i, j];
          write(a[i, j]:7:2)
        end;
      writeln
    end;
  p := p / n / n;
  writeln('Average of result A = ', p:7:2);
  readln
end.

@Xo6ut · 20.11.2013, 02:10 **[ТС]**

А зачем эти значки? {$F+}{$F-}
И еще тут требует значок [

Код

var c: array of real

после array

@Cyborg Drone · 20.11.2013, 02:30

Сообщение от Xo6ut

А зачем эти значки? {$F+}{$F-}

включение и выключение формирования дальнего типа вызова процедуры. При использовании процедурных переменных используется дальний тип вызова (far). Если не указать этот спецкомментарий, процедурные переменные использовать не удастся.

Сообщение от Xo6ut

И еще тут требует значок [

всё зависит от версии паскаля. Ну, напишите так, может, прокатит:

Pascal

procedure zeroset(b: real; var c: array [1..n] of real; f: func);
var i: integer;
    a: real;
begin
  a := 0;
  for i := 1 to n do a := a + f(c[i]);
  a := a / b;
  for i := 1 to n do if c[i] < a then c[i] := 0
end;

У меня в Delphi работает.

В заданном массиве заменить нулями элементы, не превышающие заданное значение

@Xo6ut · 20.11.2013, 02:36 **[ТС]**

Спасибо огромное, но можно как-нибудь без {$F+}{$F-} оформить?

Добавлено через 3 минуты
Выдает много ошибок, сейчас скачаю делфи, попробую там.

@Cyborg Drone · 20.11.2013, 02:43

Можно. Но тогда, в большинстве компиляторов, будут невозможны процедурные переменные. Если с Дельфи не работали - учтите, потратите много времени на его изучение. Может, лучше и не качать. Без процедурных переменных будет так:

Pascal

procedure zeroset(b: real; var c: array [1..n] of real);
var i: integer;
    a: real;
begin
  a := 0;
  for i := 1 to n do a := a + sinus(c[i]);
  a := a / b;
  for i := 1 to n do if c[i] < a then c[i] := 0
end;
//.....
for i := 1 to n do zeroset(5, a[i]);

@Xo6ut · 20.11.2013, 02:51 **[ТС]**

На строке

Pascal

1	zeroset(5, a[i], sinus);

Выдает вот это

[Error] Unit1.pas(71): Local procedure/function 'sinus' assigned to procedure variable

Добавлено через 4 минуты
Сейчас попробую разобраться

Добавлено через 1 минуту
Получился вот такой код:

Pascal

const n = 10;
 
type func = function(x: real): real;
 
{$F+}
function sinus(x : real):real;
begin
  sinus := sin(x)
end;
{$F-}
 
procedure zeroset(b: real; var c: array of real);
var i: integer;
    a: real;
begin
  a := 0;
  for i := 1 to n do a := a + sinus(c[i]);
  a := a / b;
  for i := 1 to n do if c[i] < a then c[i] := 0
end;
 
var a: array [1..n] of array [1..n] of real;
    i, j: integer;
    q, p: real;
 
begin
  randomize;
  q := 0;
  writeln('Source array A:');
  for j := 1 to n do
    begin
      for i := 1 to n do
        begin
          a[i, j] := random * 200 - 100;
          q := q + a[i, j];
          write(a[i, j]:7:2)
        end;
      writeln
    end;
  q := q / n / n;
  writeln('Average of A =', q:7:2);
  for i := 1 to n do zeroset(5, a[i]);
  p := 0;
  writeln('Result array A:');
  for j := 1 to n do
    begin
      for i := 1 to n do
        begin
          p := p + a[i, j];
          write(a[i, j]:7:2)
        end;
      writeln
    end;
  p := p / n / n;
  writeln('Average of result A = ', p:7:2);
  readln
end;
end.

Выдает ошибкy error I/O 105

@Cyborg Drone · 20.11.2013, 03:05

Вот-вот... Это потому, что не вставлены {$F+}{$F-}, поэтому функция 'sinus' остаётся локальной (вызов для этой процедуры ближнего типа), а процедурные переменные вызываются глобально (вызов дальнего типа). Происходит попытка глобально вызвать локальную процедуру. Вот и ошибка.

Добавлено через 12 минут

Сообщение от Xo6ut

Выдает ошибкy error I/O 105

А... Выводить куда, не ведает... Такое бывает, если старая версия паскаля работает под виндами. Скорее всего, вылечится добавлением после

Pascal

1	program test;

строчки

Pascal

1	uses wincrt;

@Xo6ut 103 / 90 / 75 Регистрация: 04.11.2011 Сообщений: 1,820
		1
	В заданном массиве заменить нулями элементы, не превышающие заданное значение 18.11.2013, 22:02. Показов 1693. Ответов 10 Метки нет (Все метки) Помогите пожалуйста, не имею понятия как делать. Составить программу по заданному условию. Первая часть условия является заданием на разработку процедуры для функции f или пару функций(f1,f2). Условие 2ой части задания предполагает обязательное использование разработанной процедуры. В большинстве случаев исходным данным является квадратная матрица А. А вот и само условие:Cоставить процедуру, которая в заданном массиве С заменяет нулями элементы, не превышающие $https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{1}{B}\sum_{i=1}^{n}f({C}_{i})$ где n кол-во эл в массиве С, а B некоторая величина. Задать в качестве f синус и B=5, применить процедуру к каждому столбцу матрицы А, подсчитав при этом как изменится средн арифметическое матрицы А Добавлено через 1 час 6 минут Знает кто как сделать? 0

@Cyborg Drone
	18.11.2013, 23:42 #2
	Не по теме: Сообщение от Xo6ut исходным данным является квадратная матрица А. Сообщение от Xo6ut в заданном массиве С Сообщение от Xo6ut применить процедуру к каждому столбцу матрицы А Как-то всё несуразно выглядит. Можно было бы не копировать, а написать, что конкретно требуется сделать. Сообщение от Xo6ut подсчитав при этом как изменится средн арифметическое матрицы А никак среднее арифметическое не изменится. Оно не было определено. Наверное, его просто надо вычислить. Сообщение от Xo6ut Знает кто как сделать? Конечно же, кто знает как сделать. Оформляйте свои посты более подробно. Чтобы каждому необученному академику было ясно, хотя бы приблизительно, что именно Вы хотели спросить. 0

@Xo6ut 103 / 90 / 75 Регистрация: 04.11.2011 Сообщений: 1,820
	19.11.2013, 00:33 [ТС]	3
	Вот 2 фотки, на 1 из них общее условие, на 2ой, по вариантам(я 21) Миниатюры 0

@Xo6ut 103 / 90 / 75 Регистрация: 04.11.2011 Сообщений: 1,820
	19.11.2013, 23:00 [ТС]	4
	помогите пжлст Добавлено через 2 часа 28 минут Ап. 0

@Xo6ut 103 / 90 / 75 Регистрация: 04.11.2011 Сообщений: 1,820
	20.11.2013, 02:10 [ТС]	6
	А зачем эти значки? {$F+}{$F-} И еще тут требует значок [ Код var c: array of real после array 0

@Xo6ut 103 / 90 / 75 Регистрация: 04.11.2011 Сообщений: 1,820
	20.11.2013, 02:36 [ТС]	8
	Спасибо огромное, но можно как-нибудь без {$F+}{$F-} оформить? Добавлено через 3 минуты Выдает много ошибок, сейчас скачаю делфи, попробую там. 0

	20.11.2013, 03:05