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

[dimitruf]

С помощью подпрограммы с параметром процедурного типа получить из двух векторов третий, каждый элемент которого равен меньшему элементу исходных векторов, и вектор, состоящий из сумм соответствующих компонентов исходных векторов

[min@y™]

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

[newerow1989]

type
  tVector=array[1..10] of integer;

procedure pr1(a,b:tVector; var c:tVector);
var i:integer;
begin
   For i:=1 to 10 do
      If a[i]<b[i] then
         c[i]:=a[i] else
         c[i]:=b[i];
end;

procedure pr2(a,b:tVector; var c:tVector);
var i:integer;
begin
   For i:=1 to 10 do
      c[i]:=a[i]+b[i];
end;

var a,b,c:tVector;
    i:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      a[i]:=Random(21);
      b[i]:=Random(21);
   end;
   Write('a = ');
   For i:=1 to 10 do
      Write(a[i],'  ');
   Writeln;
   Write('b = ');
   For i:=1 to 10 do
      Write(b[i],'  ');
   Writeln;
   Writeln;
   pr1(a,b,c);
   Write('c = ');
   For i:=1 to 10 do
      Write(c[i],'  ');
   Writeln;
   pr2(a,b,c);
   Write('c = ');
   For i:=1 to 10 do
      Write(c[i],'  ');
   Writeln;
   Readln;
end.

Сойдет?

[min@y™]

Сойдет?

не сойдёт!

С помощью подпрограммы с параметром процедурного типа получить

З.Ы. Тебе 26 лет, ёмоё. Может быть пора уже начать нумеровать массивы с нуля, а? Да, да, даже статические!

[Аватар]

Раньше думал, что параметры процедурного типа это что-то вроде такого. Теперь засомневался

type TMyProcedure = procedure(param: Integer);

procedure HowDisgustingThisFishInAspic1(param: Integer);
begin
...
end;

procedure HowDisgustingThisFishInAspic2(MyProcedure: TMyProcedure);
begin
...
end;
...
  HowDisgustingThisFishInAspic2(HowDisgustingThisFishInAspic1);

[min@y™]

Теперь засомневался

зря!

[Heirat]

Может быть пора уже начать нумеровать массивы с нуля, а? Да, да, даже статические!

Не могу спорить с вашим опытом в программировании, лишь хочу прояснить ситуацию. Почему именно с нуля, если для индексации элементов массивов используют любой порядковый тип?

[Вадим Мошев]

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

Не могу спорить с вашим опытом в программировании, лишь хочу прояснить ситуацию. Почему именно с нуля, если для индексации элементов массивов используют любой порядковый тип?

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

Почему надо нумеровать от нуля? Честно скажу не знаю, но я читал доводы на эту тему. Среди доводов мне запомнился такой. Когда мы нумеруем массивы от 1, ты мы попросту не экономно расходуем память, так как не используем допустимый для нумерации нуль.

От себя могу добавить, что 0 - это тоже допустимое состояние какого-нибудь регистра. Например, у нас есть 8 битный регистр. Он может иметь состояния от 00000000 до 11111111. Так вот, начальное состояние - нуль - самое обычное и вполне допустимое. И ну потом, про неэкономное использование памяти я уже сказал. Мы можем использовать массив, состоящий из N элементов, а мы используем лишь N-1.

Даже в самой(м) Делфи есть структуры хранения данных, где нумерация идёт также от 0 до N-1, если элементов N. Пример: TStringList. Вообще, нумерация я бы сказал, везде идёт от нуля - просто человек привык нумеровать всё от единицы.

[min@y™]

Почему именно с нуля, если для индексации элементов массивов используют любой порядковый тип?

потому что это только в паскалях и только статические массивы.
потому что твой исходник будут другие люди читать.
потому что эти люди пишут программы не только на паскале.
потому что в цифровой электронике с нуля нумеруется ВСЁ.

компилятору-то пофигу. Это просто рекомендация воизбежание путаницы.

Когда мы нумеруем массивы от 1, ты мы попросту не экономно расходуем память, так как не используем допустимый для нумерации нуль.

Загляни в дизассемблер - поймёшь, что тебя нае... это не так.

[Вадим Мошев]

Сообщение от Вадим Мошев

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

Почему надо нумеровать от нуля? Честно скажу не знаю, но я читал доводы на эту тему. Среди доводов мне запомнился такой. Когда мы нумеруем массивы от 1, ты мы попросту не экономно расходуем память, так как не используем допустимый для нумерации нуль.

От себя могу добавить, что 0 - это тоже допустимое состояние какого-нибудь регистра. Например, у нас есть 8 битный регистр. Он может иметь состояния от 00000000 до 11111111. Так вот, начальное состояние - нуль - самое обычное и вполне допустимое. И ну потом, про неэкономное использование памяти я уже сказал. Мы можем использовать массив, состоящий из N элементов, а мы используем лишь N-1.

Даже в самой(м) Делфи есть структуры хранения данных, где нумерация идёт также от 0 до N-1, если элементов N. Пример: TStringList. Вообще, нумерация я бы сказал, везде идёт от нуля - просто человек привык нумеровать всё от единицы.

Теперь, что касается углубления. Есть такое понятие, как ассоциативный массив (хеш). От обычного он отличается тем, что для индексирования элементов там используются строки (здесь индексы называются ключами). Где-то в инете я видел информацию о том, как такого можно добиться в Делфи, и, да, я видел рабочий код, где такое применялось.

В некоторых других ЯП ассоциативные массивы поддерживаются штатно. Например, PHP.
Просто, чтобы повеселить публику скажу, что:
1. Массивы там могут быть смешанными (как обычными, так ассоциативными);
2. Могут быть "дырявыми" - то есть, содержать неопределённые элементы (хотя в Паскале так же можно)
3. Элементы массивы не обязаны быть одного и того же типа.

то есть, в коде всё это может выглядеть так:

PHP код:

a[0] = 1;
a[2] = 'my string';
a['key'] = new myClass(); // объект