VPF::[Pascal] Функции - Форум программистов

MaximV

Дата 26.4.2012, 15:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 8.2.2012

Репутация: нет
Всего: нет

Даны 4 произвольных целых чисел.Вычислить S=max(a,b,c)+max(a,c,d)+max(a,b,d)+max(b,c,d).Нахождение максимального трех чисел оформить в виде функции

Mirkes

Дата 26.4.2012, 17:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 586
Регистрация: 18.8.2011
Где: Красноярск

Репутация: 4
Всего: 17

Код


function Max(A, B, C: Integer): Integer;
Begin
  If (A<B) Then Result:=B
               Else Result:=A;
  If (Result<C) Then Result:=C;
End;

--------------------

Mirkes

iff

Дата 26.4.2012, 18:22 (ссылка)

(нет голосов)

Загрузка ...

Администратор

Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: 3
Всего: 16

Mirkes, нужно объявить переменную Result и правильно возвращать значение. Например (программма полностью)

Код


Function Max(A, B, C : Integer) : Integer;
Var Result : Integer;
Begin
    Result := A;
    If B > Result Then Result := B;
    If C > Result Then Result := C;
    Max := Result;
End;

Var A, B, C, D, S : Integer;
Begin
    ReadLn(A, B, C, D);
    S := Max(A, B, C) + Max(A, C, D) + Max(A, B, D) + Max(B, C, D);
    WriteLn(S);
End.

--------------------

DOS... Синей пеленой экран заполнил чистый DOS
Мышь... Стала вдруг квадратной, потеряла форму мышь...
Я разбил окно, девяностопятое мастдайное окно,
И поставил DOS, и тогда увидел: Это счастье, — вот оно.

Mirkes

Дата 27.4.2012, 03:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 586
Регистрация: 18.8.2011
Где: Красноярск

Репутация: 4
Всего: 17

Цитата(iff @ 26.4.2012, 18:22)

Mirkes, нужно объявить переменную Result и правильно возвращать значение. Например (программма полностью)

Код


Function Max(A, B, C : Integer) : Integer;
Var Result : Integer;
Begin
    Result := A;
    If B > Result Then Result := B;
    If C > Result Then Result := C;
    Max := Result;
End;

Var A, B, C, D, S : Integer;
Begin
    ReadLn(A, B, C, D);
    S := Max(A, B, C) + Max(A, C, D) + Max(A, B, D) + Max(B, C, D);
    WriteLn(S);
End.

В дельфи - не надо. Переменная Result - это автоматически создаваемая переменная, которая будет возвращена. Честно говоря писал код для Дельфи. В классическом Паскале - вы правы, нужно объявлять переменную и потом делать присвоение имени функции.

--------------------

Mirkes

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »