Помогите решить! Через Функцию

[0048132]

запросить 100 четвёрок чисел, сосчитать кол во четвёрок в которых сумма 1 и последнего числа больше суммы 2 и 3

[Stilet]

Попытки имеются?

[0048132]

Через процедуру- Могу, через функцию никак.

[type_Oleg]

Сообщение от 0048132

Через процедуру- Могу, через функцию никак.

Ну, если есть процедура, то можно из нее сделать функцию:

procedure Procedur01(..... , var kol:Integer);
begin
// ......
end;

function function01(....):Integer;
var k:Integer;
begin
 Procedur01(..... , k);
 function01:=k;
end;

[Serge_Bliznykov]

Через процедуру- Могу

показывай свою процедуру.

[0048132]

Сообщение от Serge_Bliznykov

показывай свою процедуру.

Var
Procedure f(a,b,c,d:real; var p1, p2: real);
P1:= a+d;
P2:= b+c;
Begin
...

[Serge_Bliznykov]

Ойеёёй!
Это всё неверно.
мало того, что написан синтаксически ПОЛНАЯ ЕРУНДА, так ещё и логика нарушена!

что спрашивается в задании?

в которых сумма 1 и последнего числа больше суммы 2 и 3

где проверка, что сумма больше?!!

короче, полный код функции будет выглядеть так:

function Sum14_more_then_sum23(a,b,c,d:real) : boolean;
begin
 if (a+d) >(b+c)
   then Sum14_more_then_sum23 := true
   else Sum14_more_then_sum23 := false;
end;

p.s. можно записать и короче:

function Sum14_more_then_sum23(a,b,c,d:real) : boolean;
begin
  Sum14_more_then_sum23 := (a+d) > (b+c);
end;

[0048132]

Сообщение от Serge_Bliznykov

Ойеёёй!
Это всё неверно.
мало того, что написан синтаксически ПОЛНАЯ ЕРУНДА, так ещё и логика нарушена!

что спрашивается в задании?


где проверка, что сумма больше?!!

короче, полный код функции будет выглядеть так:

function Sum14_more_then_sum23(a,b,c,d:real) : boolean;
begin
 if (a+d) >(b+c)
   then Sum14_more_then_sum23 := true
   else Sum14_more_then_sum23 := false;
end;

p.s. можно записать и короче:

function Sum14_more_then_sum23(a,b,c,d:real) : boolean;
begin
  Sum14_more_then_sum23 := (a+d) > (b+c);
end;

А с помощью Функции как?

[Serge_Bliznykov]

Сообщение от 0048132

А с помощью Функции как?

а у меня в примере что написано?!!!!

попытайтесь хотя бы слово function перевести! ну или книжку по Паскалю, наконец, почитайте!!

[0048132]

Сообщение от Serge_Bliznykov

а у меня в примере что написано?!!!!

попытайтесь хотя бы слово function перевести! ну или книжку по Паскалю, наконец, почитайте!!

Да нет, все понятно! И так, Просто не так первый раз прочитал, думал, что у вас в примере был код процедуры.