IPB
ЛогинПароль:

> 

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Функции и массивы
сообщение
Сообщение #1


Гость






Добрый день!
Меня интересует возможность передачи массивов между функциями.
Допустим есть такое задание
написать программу которая б считала сумму максимального и минимального элемента матрицы (размеры вводит пользователь матрица заполняется случайными числами).
интересно было бы если тело программы выгляделло так
write(getsum(randmatr(usermatr())));
,где usermatr() возвращает размеры матрицы; randmatr() заполняет случ. числами; getsum() возвращает сумму.
для передачи размера можна использовать пользовательский тип
size = record 
x,y : byte;
end;

, тогда usermatr будет выглядить так.
function usermatr(): size;
begin
readln(usermatr.x);
readln(usermatr.y);
end;

функции getsum и randmatr также легко реализуются в отдельности

однако собрать это все в одну программу у меня не получается... помогите пожалуйста...
заранее благодарен.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Без проблем... Динамические массивы в 32-битах еще никто не отменял:

type
tsize = record
x, y: integer;
end;
tmatrix = array of array of integer;

function usermatr(): tsize;
begin
write('x = '); readln(result.x);
write('y = '); readln(result.y);
end;

function randmatr(size: tsize): tmatrix;
var i, j: integer;
begin
setlength(result, size.y, size.x);
for i := 0 to pred(size.y) do begin
for j := 0 to pred(size.x) do begin
result[i, j] := random(1000);
write(result[i, j]:4);
end;
writeln;
end;
end;

function getsum(mx: tmatrix): integer;
var i, j, min, max: integer;
begin
max := -maxint; min := maxint;
for i := 0 to pred(length(mx)) do
for j := 0 to pred(length(mx[i])) do begin
if max < mx[i, j] then max := mx[i, j];
if min > mx[i, j] then min := mx[i, j];
end;
result := max + min;
end;

begin
writeln(getsum(randmatr(usermatr)));
end.

 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


Код
tmatrix = [b]array[/b] [b]of[/b] [b]array[/b] [b]of[/b] integer;
вот она ключевая строчка!


только один вопрос кто такой pred() ?



а так ОГРОМНОЕ спасибо!



--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Pred(X) - аналог (X - 1) ...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


Цитата(volvo @ 10.11.2007 15:19) *
Pred(X) - аналог (X - 1) ...
точно ypriamii.gif


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.09.2020 17:08
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name