Оформить решение задачи в виде процедуры

@proMan · Регистрация: 20.04.2012

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

Здравствуйте. Помогите пожалуйста с задачей.
Оформить решение задачи(сглаживание матриц) в виде подпрограммы процедуры. Привести решения этой задач различными способами, используя в качестве фактических параметров: параметры-значения, параметры-переменные и параметры-константы. Объясните различия.
Вот программа решения задачи:

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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const n=10;
var a:array[0..n+1,0..n+1] of real;
    i,j,k,p,r:integer;
    s:real;
begin
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-9+20*random;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
for i:=1 to n do
 begin
  a[0,i]:=0;
  a[n+1,i]:=0;
  a[i,0]:=0;
  a[i,n+1]:=0;
 end;
for i:=1 to n do
for j:=1 to n do
 begin
  s:=0;r:=0;
  for k:=i-1 to i+1 do
  for p:=j-1 to j+1 do
   begin
    s:=s+a[k,p];
    if (k in [1..n])and(p in [1..n]) then r:=r+1;
   end;
  s:=(s-a[i,j])/r;
  a[i,j]:=s;
 end;
writeln('Сглаженная матрица*:');
s:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    write(a[i,j]:6:2);
    if j<i then s:=s+abs(a[i,j]);
   end;
  writeln;
 end;
write('Сумма модулей чисел ниже главнлй диагонали=',s:0:2);
readln
end.

@Forty-se7en · 21.04.2012, 01:32

Тебе этот код надо прочсто в процедуру запихать?

@proMan · 21.04.2012, 08:02 **[ТС]**

Да, надо офрмить данную программу в виде процедуры

@Puporev · 21.04.2012, 08:31

Delphi
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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const n=10;
type mtr=array[0..n+1,0..n+1] of real;
procedure Vvod(var a:mtr);
var i,j:integer;
begin
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-9+20*random;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
end;
procedure Sglaz(var a:mtr);
var i,j,k,p,r:integer;
    s:real;
begin
for i:=1 to n do
 begin
  a[0,i]:=0;
  a[n+1,i]:=0;
  a[i,0]:=0;
  a[i,n+1]:=0;
 end;
for i:=1 to n do
for j:=1 to n do
 begin
  s:=0;r:=0;
  for k:=i-1 to i+1 do
  for p:=j-1 to j+1 do
   begin
    s:=s+a[k,p];
    if (k in [1..n])and(p in [1..n]) then r:=r+1;
   end;
  s:=(s-a[i,j])/r;
  a[i,j]:=s;
 end;
writeln('Сглаженная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln;
 end;
end;
function Summa(a:mtr):real;
var i,j:integer;
begin
result:=0;
for i:=2 to n do
for j:=1 to i-1 do
result:=result+abs(a[i,j]);
end;
var a:mtr;
begin
randomize;
Vvod(a);
Sglaz(a);
write('Сумма модулей чисел ниже главной диагонали=',Summa(a):0:2);
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров Programma_Boinc 21.04.2025 Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров. 3 марта 2025 года, в результате обобщенного поиска простых чисел Ферма в PrimeGrid был найден. . .	Система статов в Unity GameUnited 20.04.2025 Статы — фундаментальный элемент игрового дизайна, который определяет характеристики персонажей, предметов и других объектов в игровом мире. Будь то показатель силы в RPG, скорость передвижения в. . .	Статические свойства и методы в TypeScript run.dev 20.04.2025 TypeScript прочно занял своё место в системе современной веб-разработки. Этот строго типизированный язык программирования не просто расширяет возможности JavaScript — он делает разработку более. . .	Batch Transform и Batch Gizmo Drawing API в Unity GameUnited 20.04.2025 В мире разработки игр и приложений на Unity производительность всегда была критическим фактором успеха. Создатели игр постоянно балансируют между визуальной привлекательностью и плавностью работы. . .	Звук в Unity: Рандомизация с Audio Random Container GameUnited 20.04.2025 В современных играх звуковое оформление часто становится элементом, который либо полностью погружает игрока в виртуальный мир, либо разрушает атмосферу за считанные минуты. Представьте: вы исследуете. . .
Максимальная производительность C#: Советы, тестирование и заключение stackOverflow 20.04.2025 Погружение в мир микрооптимизаций C# открывает перед разработчиком целый арсенал мощных техник. Но как определить, где и когда их применять? Ответ начинается с точных измерений и профилирования. . . .	Максимальная производительность C#: Предсказание ветвлений stackOverflow 20.04.2025 Третий ключевой аспект низкоуровневой оптимизации — предсказание ветвлений. Эта тема менее известна среди разработчиков, но её влияние на производительность может быть колоссальным. Чтобы понять. . .	Максимальная производительность C#: Векторизация (SIMD) stackOverflow 20.04.2025 Помимо работы с кэшем, другим ключевым аспектом низкоуровневой оптимизации является векторизация вычислений. SIMD (Single Instruction, Multiple Data) позволяет обрабатывать несколько элементов данных. . .	Максимальная производительность C#: Процессорный кэш stackOverflow 20.04.2025 Знакомство с внутренним устройством процессорного кэша — ключевой шаг в написании по-настоящему быстрого кода на C#. Этот слой архитектуры компьютера часто ускользает от внимания разработчиков, но. . .	Максимальная производительность C#: Введение в микрооптимизации stackOverflow 20.04.2025 В мире разработки на C# многие привыкли полагаться на . NET Runtime, который "магическим образом" сам оптимизирует код. И часто это работает - современные JIT-компиляторы творят чудеса. Но когда речь. . .

@Forty-se7en 4 / 4 / 0 Регистрация: 27.02.2012 Сообщений: 25
	21.04.2012, 01:32
	Тебе этот код надо прочсто в процедуру запихать? 0

@proMan 0 / 0 / 0 Регистрация: 20.04.2012 Сообщений: 8
	21.04.2012, 08:02 [ТС]
	Да, надо офрмить данную программу в виде процедуры 0

Опции темы