Функции

[nikshiyan]

Написать функцию, которая вычисляет значение аь. Числа
а и ь могут быть любыми дробными положительными числами.

[Анатоль]

чёто не понял условие можно поподробнее?

[nikshiyan]

Вот как раз это полное задание. Я тож не совсем понял.

[p51x]

function AB(a, b:Integer):Integer;
begin
  AB := a*b;
end;

[nikshiyan]

Спасибо за "ПОМОЩЬ" )

[D@rkD@iver]

неправильный код...
нужно же с дробными
function AB(a, bouble)ouble;
begin
AB := a*b;
end;

[p51x]

2 D@rkD@iver
Вы ошиблись разделом. Готовый код пишут во фрилансе. Здесь направляют на путь истинный.

[Serge_Bliznykov]

Готовый кд пишут во фрилансе. Здесь направляют на путь истинный.

p51x, не согласен с Вами, коллега. Если Вы даёте пример, который не соответствует заданию, то какое уж тут направление на путь истинный?! Это, имхо, скорее, попытка ввести в заблуждение...

D@rkD@iver, не забывайте использовать тег [СODE] .. [/CODE]

[p51x]

который не соответствует заданию

???
Что сложного в том, чтобы просто поменять тип на нужный? Или вы считаете, если показывать умножение столбиком на примере двузначных чисел, то к умножению трехзначных чисел столбиком это тоже не имеет значение?

[Serge_Bliznykov]

p51x, давайте не будем спорить, а? У Вас есть своё мнение, у меня — своё... По количеству строк Ваш код и код от D@rkD@iver совпадает. А то, что Вы поставили вместо вещественного типа - целый (не знаю, описались ли, или специально), особого обучающего эффекта я в том не вижу. Т.к. топикстартер скопирует этот код. и пойдёт сдавать. Его там ткнут носом в ошибку. А он будет вспоминать неласковым словом форум, где его так подло обманули..
Тогда уже написали что-то вроде:

function AB(a, b:ВещественныйТип):ВещественныйТип;
begin
  AB := a*b;
end;

вот это позволило бы автору вопроса вставить код в паскаль, убедиться, что он не компилируется и задуматься, как сделать так, чтобы код был рабочий...
Ну это всё - ИМХО. Если человек не хочет учиться - так он и не будет это делать...