Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
ThyArtIsMurder
0 / 0 / 0
Регистрация: 24.03.2014
Сообщений: 2
1

Использование имени процедуры в качестве параметра другой процедуры

24.03.2014, 20:32. Просмотров 1038. Ответов 1
Метки нет (Все метки)

Help! Для массива С из n элементов составить процедуру, которая находит значения m наименьших его элементов (Z1, Z2,...,Zn, а также сумму наименьших элементов. Поочередно применяя разработанную процедуру к каждой строке матрицы A, найти для каждой строки сумму квадратов трех наименьших элементов.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.03.2014, 20:32
Ответы с готовыми решениями:

Использование имени процедуры в качестве параметра другой процедуры
Предложите, пожалуйста, пример решения след. задачи с использованием...

подпрограммы.процедуры без параметра
помогите пожалуйста составить программу для обработки массива содержащего 10...

Использование имени массива как параметра функции
Для получения результата разработать алгоритм и программу, содержащую функцию,...

Использование процедуры
1) Подсчитать число точек, находящихся внутри круга радиусом r с центром в...

Использование процедуры
Для матрицы А (4 строки, 5 столбцов) вычислите выражение Y = M1M5 + M2M4 + …...

1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3913 / 2567 / 2088
Регистрация: 22.11.2013
Сообщений: 7,188
24.03.2014, 22:34 2
Лучший ответ Сообщение было отмечено ThyArtIsMurder как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
const
  m=5; n=10;
 
type
  tVec=array [1..n] of real;
  tMas=array [1..m] of tVec;
  tCalcFunc=function (v: tVec; m: integer): real;
 
procedure LessCalc(var res: real; v: tVec; m: integer; action: tCalcFunc);
var
  i, d: integer;
  t: real;
  done: boolean;
begin
  d:=n div 2;
  while d>0 do begin
    repeat
      done:=true;
      for i:=1 to n-d do 
        if v[i]>v[i+d] then begin
          t:=v[i]; v[i]:=v[i+d]; v[i+d]:=t; done:=false;
        end;
    until done;
    d:=d div 2;
  end;
  res:=action(v,m);
end;
{$F+}
function Sum1(v: tVec; m: integer): real;
var r: real;
begin
  r:=0; for m:=m downto 1 do r:=r+v[m];
  Sum1:=r;
end;
 
function Sum2(v: tVec; m: integer): real;
var r: real;
begin
  r:=0; for m:=m downto 1 do r:=r+sqr(v[m]);
  Sum2:=r;
end;
 
var
  a: tMas;
  r: real;
  i, j: integer;
begin
  Randomize;
  WriteLn('A=');
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(11); Write(a[i,j]:6:0);
    end;
    LessCalc(r,a[i],3,Sum2); WriteLn('|',r:6:0);
  end;
end.
PS. Условие, скорее всего, перепечатано на форум с ошибкой, проверьте.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.03.2014, 22:34

Использование процедуры
Составить программу решение задачи с использованием процедуры

Использование процедуры swap
Помогите решить!!! дана матрица mxn, в ней поменять местами строку, номер...

Процедуры, Функции. Организация и Использование
Помогите плиз решить 2 задачки для зачета... 1) Органицазия процедур....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru