Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как записать массив в память [D7, WinXP]

Страницы: < 1 2
Griffon © (2005-06-01 12:52:00)
Добрый день! Подскажите как записать массив целых чисел, введенный в Мемо, в память под именем mas и обработать его функциями Max и Min.

Defunct (2005-06-04 02:59:00) [21]
> dmitry501
Разрешите поправить, ведь mas это некий тип, а не переменная:

type mas : array of integer; //

function max(var b:mas) : integer;
const MinInt = Low(Integer);
var i: Integer;
begin
result:=MinInt;
for i := Low(b) to High(b) do
if b[i] > result then
result := b[i];
end;

dmitry501 (2005-06-03 12:20:00) [22]
function max(var b:mas) : integer;
const MinInt = Low(Integer);
var i: Integer;
begin
result:=MinInt;
for i := Low(mas) to High(mas) do
if mas[i] > result then
result := mas[i];
end;

Griffon (2005-06-03 07:54:00) [23]
Defunct прав. Конструкция действительно выглядит так: function Max(var b: mas):integer
Как тогда считать через High(mas)

dmitry501 (2005-06-02 08:19:00) [24]
Defunct © (02.06.05 7:01) [15]
тогда, переменную b надо считать через High(mas)

Defunct (2005-06-02 07:01:00) [25]
> dmitry501

Видимо уважаемый Griffon, будучи отвлеченным какими-то более важными проблемами, был не в состоянии точно переписать задание лабораторки. Чем ввел вас в заблуждение, и заставил написать неверный пример. imho в оригинале задания было не так:

> function max(var b ;mas):integer;
а так:
function max(var b :mas):integer

dmitry501 (2005-06-02 06:45:00) [26]
Наверно так?

function max(var b: Integer; mas:Array of Integer) : integer; const MinInt = Low(Integer); var i: Integer; begin result:=MinInt; for i := 0 to b do if mas[i] > result then result := mas[i]; end;

Griffon (2005-06-02 06:34:00) [27]
Digitman спасибо за посказку.
Как тогда можно обработать числа введенные в Мемо используя следующую конструкцию: function max(var b; mas):integer;

Digitman (2005-06-01 13:27:00) [28]
вношу на повестку длня предложение - торжественно и скоропостижно переименовать "Орешник" в "Желудёвник" и назначить raidan'а почетным завсегдатаем

в "Апельсинник" как-то рука не поворачивается написать)

raidan (2005-06-01 13:23:00) [29]
>Alex Konshin © (01.06.05 13:09) [9]
Тогда уж желуди %)

Digitman (2005-06-01 13:16:00) [30]

> Alex Konshin © (01.06.05 13:09) [9]

))

Alex Konshin (2005-06-01 13:09:00) [31]
Орехи почуял

liver (2005-06-01 13:05:00) [32]
raidan © а чё хрюкаешь-то

ANB (2005-06-01 13:02:00) [33]

> Юрий Зотов © (01.06.05 13:00) [5]
- это, похоже, автору проблематично. Дал юзеру мемку - и пусть забивает туда числа. Гы. А ник опять такой серьезный.

Alex Konshin (2005-06-01 13:02:00) [34]
Опять лабораторные пошли...

Юрий Зотов (2005-06-01 13:00:00) [35]
А зачем ЧИСЛА вводить в Memo?
Не лучше ли прямо в массив чисел их и ввести?

Digitman (2005-06-01 12:59:00) [36]

> как записать массив целых чисел, введенный в Мемо, в память

подразумевается, что массив одномерный, и каждый будущий эл-т - это отдельная строка в Мемо ?

пустячное дело ..

for i := 0 to Memo.Lines.Count - 1 do
mas[i] := IntToStr(Memo.Lines[i]);

> обработать его функциями Max и Min

это как ?

Max и Min не работают с массивами

raidan (2005-06-01 12:59:00) [37]
>liver (01.06.05 12:57) [2]
[радостно хрюкаю]

>Griffon (01.06.05 12:52)
Автор, убей себя с разбегу о стену.
Потому что вопросы так не задаются.

raidan (2005-06-01 12:57:00) [38]
Я всегда думал, что массив целых чисел, введенный в мемо, и так в памяти :)

liver (2005-06-01 12:57:00) [39]
напиши функцию обхода строк Meme ну а там уже в строках выделяй элементы, они и будут столбцами массива...

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »