Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.12.2008, 21:04   #1
Миша
Пользователь
 
Регистрация: 13.09.2007
Сообщений: 63
По умолчанию Не понимаю как работать с функциями.

Допустим имеем стандартный массив.


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
V:array[1..10]of integer;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
I: integer;
begin
for I:=1 to 10 do V[i]:=i;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
{ Функция Maxvalue возвращает максимальное значение массива. Как сделать так
чтобы после нажатия кнопки появлялось сообщение
"максимальное значение массива ... . Где и что нужно прописать в этом коде???}
end;

end.


пишу полный код потому что совсем не понимаю что значит и где прописать function MaxValue(const Data: array of Double): Double;

Последний раз редактировалось Миша; 24.12.2008 в 21:06.
Миша вне форума Ответить с цитированием
Старый 24.12.2008, 21:17   #2
Кирилл13
Пользователь
 
Регистрация: 10.11.2008
Сообщений: 19
По умолчанию

procedure TForm1.Button1Click(Sender: TObject);
var
MaxValue : integer;
begin
MaxValue:=MaxValue(V);
ShowMessage('Максимальное значение = '+IntToStr(MaxValue));
end;

Попрубуйте так.
Кирилл13 вне форума Ответить с цитированием
Старый 24.12.2008, 23:08   #3
Миша
Пользователь
 
Регистрация: 13.09.2007
Сообщений: 63
По умолчанию

Неа ошибка Missing operator or semicolon
Миша вне форума Ответить с цитированием
Старый 25.12.2008, 02:08   #4
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Миша, а где ваша функция? function MaxValue(const Data: array of Double): Double; - Это только её начало. Должно быть продолжение.
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Старый 26.12.2008, 12:20   #5
Миша
Пользователь
 
Регистрация: 13.09.2007
Сообщений: 63
По умолчанию

Я не знаю продолжения может ктото знает посмотрите ещё раз пожалуйста.
Миша вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как работать с изображениями eliyas Помощь студентам 4 10.03.2011 22:27
Как работать с XML? Никки Общие вопросы Delphi 7 18.01.2008 00:56
Как работать c USB? Araver Общие вопросы Delphi 4 05.11.2007 18:41
Delphi. Не понимаю как решить задачу. EVIL Помощь студентам 3 21.10.2007 01:12
Как работать с DBF Solomon БД в Delphi 7 07.08.2007 09:39