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

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

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

Help! Для массива С из n элементов составить процедуру, которая находит значения m наименьших его элементов (Z1, Z2,...,Zn, а также сумму наименьших элементов. Поочередно применяя разработанную процедуру к каждой строке матрицы A, найти для каждой строки сумму квадратов трех наименьших элементов.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.03.2014, 20:32
Ответы с готовыми решениями:

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

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

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

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

1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
6168 / 3695 / 2557
Регистрация: 22.11.2013
Сообщений: 10,539
Записей в блоге: 1
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.03.2014, 22:34

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

Как передать список в качестве параметра процедуры?
С Наступающим!!! Есть вот такая Stored Procedure: ALTER PROCEDURE dbo.spFileToService ...

Не даёт задать переменную в качестве параметра процедуры
Проблема такая. 1. Определил в отдельном модуле тип: Type TConfig YFrst As Long ...

Передача типа DataTable в качестве параметра в хранимой процедуры
Всем доброго вечера. Прощу Вашей помощи. Проблема следующая: есть множество таблиц в базе данных, у...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru