Найти максимальный по модулю элемент массива (применять процедуры и функции)

@ирина0204105 · Регистрация: 19.05.2016

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

В однородном массиве, состоящем из N вещественных элементов, найти максимальный по модулю элемент массива.

@ZX Spectrum-128 · 31.05.2016, 12:46

Вычислить максимальный по модулю элемент массива

(применять процедуры и функции)

Какие именно участки программы оформить как процедуры, а какие - как функции?

@ирина0204105 · 31.05.2016, 18:04 **[ТС]**

нахождение рандомных чисел и вывод их на экран можно как процедуры,нахождение максимального по модулю-как функцию,либо все в одну функцию

@ZX Spectrum-128 · 31.05.2016, 18:15

Pascal

const
  n = 10;
 
type
  vector = array [1..n] of real;
 
procedure GenerateVector(var a: vector);
var
  i: integer;
begin
  for i := 1 to n do
  begin
    a[i] := -n div 2 + n * random;
    write(a[i]:8:2);
  end;
  writeln;
end;
 
function FindMax(a: vector): real;
var
  i: integer;
  m: real;
begin
  m := a[1];
  for i := 1 to n do
    if m < abs(a[i]) then
      m := abs(a[i]);
  FindMax := m; 
end;
 
var
  a: vector;
 
begin
  GenerateVector(a);  
  writeln(FindMax(a):8:2);
end.

@ирина0204105 · 31.05.2016, 18:38 **[ТС]**

А что означает эта строчка?
type
vector = array [1..n] of real;

@ZX Spectrum-128 · 31.05.2016, 20:08

Это

Сообщение от ирина0204105

однородном массиве, состоящем из N вещественных элементов

я так оформил .

@ирина0204105 0 / 0 / 0 Регистрация: 19.05.2016 Сообщений: 8
		1
	Найти максимальный по модулю элемент массива (применять процедуры и функции) 31.05.2016, 01:19. Показов 1054. Ответов 5 Метки нет (Все метки) В однородном массиве, состоящем из N вещественных элементов, найти максимальный по модулю элемент массива. 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	31.05.2016, 12:46	2
	Вычислить максимальный по модулю элемент массива (применять процедуры и функции) Какие именно участки программы оформить как процедуры, а какие - как функции? 0

@ирина0204105 0 / 0 / 0 Регистрация: 19.05.2016 Сообщений: 8
	31.05.2016, 18:04 [ТС]	3
	нахождение рандомных чисел и вывод их на экран можно как процедуры,нахождение максимального по модулю-как функцию,либо все в одну функцию 0

@ирина0204105 0 / 0 / 0 Регистрация: 19.05.2016 Сообщений: 8
	31.05.2016, 18:38 [ТС]	5
	А что означает эта строчка? type vector = array [1..n] of real; 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	31.05.2016, 20:08	6
	Это Сообщение от ирина0204105 однородном массиве, состоящем из N вещественных элементов я так оформил . 0