С Новым годом! Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > PascalABC.NET
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 21.11.2016
Сообщений: 3
1

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

21.11.2016, 18:32. Показов 847. Ответов 3
Метки массив pascal, параметр, Процедуры (Все метки)
Author24 — интернет-сервис помощи студентам
Составить программу по заданному условию.Первая часть условия является заданием на разработку процедуры для любой функции f или пары функций (f1,f2).Условие второй части задания предполагает обязательное использование разработанной процедуры.В качестве исходного данного в большинстве заданий используется квадратная матрица A.
Задание:
Составить процедуру, которая изменяет все элементы заданного массива C, кроме первого ,по правилу

https://www.cyberforum.ru/cgi-bin/latex.cgi?{C}_{i}={C}_{i}+\sum_{k=1}^{i}f\left({C}_{k}\right).

Применить процедуру к каждой строке матрицы A, используя в качестве f функцию определения абсолютной величины.Вычислить также сумму элементов главной диагонали.

Помогите, если не сложно.
Написал программу, но не могу разобраться с применением процедуры к каждой строке квадратной матрицы A. и с процедурой-параметром.
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77

proc = procedure(n : integer; C: s; var B: s);
 
var
  A,Q: t;C, B: s;
{------------------------------------------------------------------------------}
function f(x: integer): integer;
begin
  f := abs(x)
end;
{------------------------------------------------------------------------------}
{$F+}
procedure replaced_C(n: integer; C: s; var B: s);
var
  i, sum: integer;
begin
  sum := 0;
  for i := 2 to n do
  begin
    sum := sum + f(c[i]);
    c[i] := f(c[1]) + (c[i]) + sum;
  end;
  sum := 0;
  begin
    for i := 1 to n do
      write(c[i]:6);
    writeln
  end;
end;
{$F-}
{------------------------------------------------------------------------------}
procedure create_C(n: integer; var C: s);
var
  i: integer;
begin
  for i := 1 to n do
  begin
    c[i] := random(201) - 101;
    write(c[i]:6, ' ')
  end;
  writeln
end;
{------------------------------------------------------------------------------}
procedure create_A(n: integer; var A: t);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do 
    begin
      a[i, j] := random(201) - 101;
      write(a[i, j]:6, ' ')
    end;
    writeln
  end
end;
{------------------------------------------------------------------------------}
procedure replaced_A(A: t;n: integer; replaced_C: proc; var Q: t);
var
  i: integer;
begin
  for i := 1 to n do
  begin
    replaced_C(n,C,B)
  end
end;
{------------------------------------------------------------------------------}
begin
  writeln('Заданный массив целых чисел C');
  create_C(n, C);
  writeln('Изменённый массив целых чисел C');
  replaced_C(n, C, B);
  writeln('Заданный массив целых чисел A');
  create_A(n, A);
  writeln('Изменённый массив целых чисел A');
  replaced_A(A,n, replaced_C, q)
end.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 21.11.2016, 18:32
Ответы с готовыми решениями:

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

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

Использование имени процедуры в качестве параметра другой процедуры
Help! Для массива С из n элементов составить процедуру, которая находит значения m наименьших его...

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

3
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
33006 / 21309 / 8183
Регистрация: 22.10.2011
Сообщений: 36,614
Записей в блоге: 8
21.11.2016, 18:51 2
Полностью программу показывай. Я про тип s ничего не знаю. Компилятор тоже. Типа t касается то же самое. А вообще, перед первой строкой нужно бы добавить type

И еще. Я совсем не уверен, что приведенный код - для PascalABC.Net. Скорее, он для Турбо-Паскаля.
1
0 / 0 / 0
Регистрация: 21.11.2016
Сообщений: 3
21.11.2016, 19:05  [ТС] 3
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83

program z_4_3_2;
 
const
  n = 4;
 
type
  s = array[1..n] of integer;
  t = array[1..n] of s;
  proc = procedure(n : integer; C: s; var B: s);
 
var
  A,Q: t;C, B: s;
{------------------------------------------------------------------------------}
function f(x: integer): integer;
begin
  f := abs(x)
end;
{------------------------------------------------------------------------------}
procedure replaced_C(n: integer; C: s; var B: s);
var
  i, sum: integer;
begin
  sum := 0;
  for i := 2 to n do
  begin
    sum := sum + f(c[i]);
    c[i] := f(c[1]) + (c[i]) + sum;
  end;
  sum := 0;
  begin
    for i := 1 to n do
      write(c[i]:6);
    writeln
  end;
end;
{------------------------------------------------------------------------------}
procedure create_C(n: integer; var C: s);
var
  i: integer;
begin
  for i := 1 to n do
  begin
    c[i] := random(201) - 101;
    write(c[i]:6, ' ')
  end;
  writeln
end;
{------------------------------------------------------------------------------}
procedure create_A(n: integer; var A: t);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do 
    begin
      a[i, j] := random(201) - 101;
      write(a[i, j]:6, ' ')
    end;
    writeln
  end
end;
{------------------------------------------------------------------------------}
procedure replaced_A(A: t;n: integer; replaced_C: proc; var Q: t);
var
  i: integer;
begin
  for i := 1 to n do
  begin
    replaced_C(n,C,B)
  end
end;
{------------------------------------------------------------------------------}
begin
  writeln('Заданный массив целых чисел C');
  create_C(n, C);
  writeln('Изменённый массив целых чисел C');
  replaced_C(n, C, B);
  writeln('Заданный массив целых чисел A');
  create_A(n, A);
  writeln('Изменённый массив целых чисел A');
  replaced_A(A,n, replaced_C, q)
end.
0
0 / 0 / 0
Регистрация: 21.11.2016
Сообщений: 3
23.11.2016, 15:10  [ТС] 4
Дописал программу.На ABC.net всё работает, но осталась проблема при подсчёте главной диагонали матрицы программа рассматривает изначальную матрицу вместо изменённой.Прошу помочь.

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88

program z_4_3_2;
 
 
type
  s = array[1..100] of integer;
  t = array[1..100] of s;
 
var
  A: t;C: s; i, j, n, r, sumd: integer;
{------------------------------------------------------------------------------}
procedure replaced_C(r: integer; C: s);
 
var
  i, sum: integer;
begin
  sum := 0;
  for i := 2 to r do
  begin
    sum := sum + abs(c[i]);
    c[i] := abs(c[1]) + (c[i]) + sum;
  end;
  sum := 0;
  begin
    for i := 1 to r do
      write(c[i]:6);
    writeln
  end;
end;
{------------------------------------------------------------------------------}
procedure create_C(r: integer; var C: s);
var
  i: integer;
begin
  for i := 1 to r do
  begin
    c[i] := random(201) - 101;
    write(c[i]:6, ' ')
  end;
  writeln
end;
{------------------------------------------------------------------------------}
procedure create_A(n: integer; var A: t);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do 
    begin
      a[i, j] := random(201) - 101;
      write(a[i, j]:6, ' ')
    end;
    writeln
  end
end;
{------------------------------------------------------------------------------}
procedure replaced_A(n: integer; A: t);
var
  i: integer;
begin
  for i := 1 to n do
  begin
    replaced_C(n, a[i])
  end;
end;
{------------------------------------------------------------------------------}
begin
  write(' Введите длину матрицы n(A)=');
  readln(n);
  write(' Введите длину массива r(C)=');
  readln(r);
  writeln('Заданный массив целых чисел C');
  create_C(r, C);
  writeln('Изменённый массив целых чисел C');
  replaced_C(r, C);
  writeln('Заданный массив целых чисел A');
  create_A(n, A);
  writeln('Изменённый массив целых чисел A');
  replaced_A(n, A);
  sumd := 0;
  begin
    for i := 1 to n do
      for j := 1 to n do
        if i = j then
          sumd := sumd + a[i, j];
    writeln('Сумма главной диагонали sumd= ', sumd)
  end
end.
Добавлено через 13 часов 7 минут
Нашёл ошибку, не возвращал значение изменённой матрицы из процедуры в основную программу.
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88

program z_4_3_2;
 
 
type
  s = array[1..100] of integer;
  t = array[1..100] of s;
 
var
  A: t;C: s;  n, r: integer;
{------------------------------------------------------------------------------}
procedure replaced_C(r: integer; var C: s);
 
var
  i, sum: integer;
begin
  sum := 0;
  for i := 2 to r do
  begin
    sum := sum + abs(c[i]);
    c[i] := abs(c[1]) + (c[i]) + sum;
  end;
  sum := 0;
  begin
    for i := 1 to r do
      write(c[i]:6);
    writeln
  end;
end;
{------------------------------------------------------------------------------}
procedure create_C(r: integer; var C: s);
var
  i: integer;
begin
  for i := 1 to r do
  begin
    c[i] := random(201) - 101;
    write(c[i]:6, ' ')
  end;
  writeln
end;
{------------------------------------------------------------------------------}
procedure create_A(n: integer; var A: t);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do 
    begin
      a[i, j] := random(201) - 101;
      write(a[i, j]:6, ' ')
    end;
    writeln
  end
end;
{------------------------------------------------------------------------------}
procedure replaced_A(n: integer; var A: t);
var
  i, j, sumd: integer;
begin
  for i := 1 to n do
  begin
    replaced_C(n, a[i])
  end;
  sumd := 0;
  begin
    for i := 1 to n do
      for j := 1 to n do
        if i = j then
          sumd := sumd + a[i, j];
    writeln('Сумма главной диагонали sumd= ', sumd)
  end
end;
{------------------------------------------------------------------------------}
begin
  write(' Введите длину матрицы n(A)=');
  readln(n);
  write(' Введите длину массива r(C)=');
  readln(r);
  writeln('Заданный массив целых чисел C');
  create_C(r, C);
  writeln('Изменённый массив целых чисел C');
  replaced_C(r, C);
  writeln('Заданный массив целых чисел A');
  create_A(n, A);
  writeln('Изменённый массив целых чисел A');
  replaced_A(n, A);
end.
0
23.11.2016, 15:10
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 23.11.2016, 15:10
Помогаю со студенческими работами здесь

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

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

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

Передача типа Record в процедуру в качестве параметра процедуры
Вот такой код не работает: TGraph = Record Graf_Flag : boolean; Priyom_Flag :...

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

Delphi Fortran DLL передача процедуры в качестве параметра
Уважаемые Гуру, очень нужна Ваша помощь. Стоит задача переделать программу на Фортране в...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Книги и учебные ресурсы по C#
InfoMaster 08.01.2025
Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .
Что такое NullReferenceEx­­­ception и как исправить?
InfoMaster 08.01.2025
NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .
Что такое Null Pointer Exception (NPE) и как это исправить?
InfoMaster 08.01.2025
Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .
Русский язык в консоли C++
InfoMaster 08.01.2025
При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .
Telegram бот на C#
InfoMaster 08.01.2025
Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .
Использование GraphQL в Go (Golang)
InfoMaster 08.01.2025
Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор?
Alexander-7 08.01.2025
Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .
Как работать с GraphQL на TypeScript
InfoMaster 08.01.2025
Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .
Счётчик на базе сумматоров + регистров и генератора сигналов согласования.
Hrethgir 07.01.2025
Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .
Как перейти с Options API на Composition API в Vue.js
BasicMan 06.01.2025
Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров
inter-admin 06.01.2025
Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .
История создания реляционной модели баз данных, правила Кодда
Programming 06.01.2025
Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru