Funkcija programoje

Galbūt galėtumėte padėti išspręti šiuos uždavinius :)

1 uždavinys. Sudarykite funkciją didesniajam iš dviejų skaičių rasti. Tada parašykite programą su šia

funkcija, kuri rastų didžiausią iš keturių kintamųjų a, b, c ir d.

P.s. kreipinys į f-ją turėtų atrodyti taip:

didž := max(max(a, b), max(c, d))

Šiame sakinyje funkcija max vartojama tris kartus:

1) max(a, b) – didesniajai kintamųjų a ir b reikšmei rasti;

2) max(c, d) – didesniajai kintamųjų c ir d reikšmei rasti;

3) didžiausiai (iš rastų dviejų didesniųjų) reikšmei rasti.

2 uždavinys. Jeigu dažnai reikia ieškoti didžiausio iš keturių skaičių, tai pravartu sudaryti šiam tikslui

skirtą funkciją. Pavadinkime ją max4. (Tai yra jūs turėsite dvi funkcijas: viena rasti didesniam iš dviejų, kita

rasti didesniam iš keturių).

program maxai;
var a, b, c, d: integer;

function max(x, y: integer): integer;
begin
 max := x;
 if x < y then
max := y;
end;

function max4(q, w, e, r: integer): integer;
begin
 max4 := max(max(q, w), max(e, r));
end;

begin
 WriteLn('Iveskite a, b, c, d');
 ReadLn(a, b, c, d);
 WriteLn(max4(a, b, c, d));
 ReadLn;
end.

Kažkas čia blogai, neatlieka pirmos funkcijos, vis bandau patvarkyt, tai error meta ties antra funkcija :)

program maxai;
var a, b, c, d, x, y, maxi: integer;

function max(x, y: integer): integer;
begin
 maxi := x;
 if x < y then
maxi := y;
begin
 WriteLn('Iveskite 2 skaicius');
 ReadLn(x, y);
 WriteLn(maxi);
 ReadLn;
end;

function max4(q, w, e, r: integer): integer;
begin
 max4 := max(max(q, w), max(e, r));
end;

begin
 WriteLn('Iveskite a, b, c, d');
 ReadLn(a, b, c, d);
 WriteLn(max4(a, b, c, d));
 ReadLn;
end.

Kažkas čia blogai, neatlieka pirmos funkcijos, vis bandau patvarkyt, tai error meta ties antra funkcija :)

 

begin
 WriteLn('Iveskite 2 skaicius');
 ReadLn(x, y);
 WriteLn(maxi);
 ReadLn;
end;

Ką šita dalis turėtų daryt? Ir kaip spėju ji yra ne vietoj.

EDIT: Aš suprantu sąlygą taip: parašom funkciją mąx, kuri randa didžiausią skaičių iš dviejų, tada ją panaudojam du kartus, kad rastume didžiausią iš keturių. Plius dar parašom funkciją max4, kuri užkart randa didžiausią iš keturių, bet jos nenaudojam. :) So:

program maxai;
var a, b, c, d, x, y: integer;

function max(x, y: integer): integer;
begin
 if x < y then
max := y
 else max:=x;
end;

function max4(a, b, c, d: integer): integer;
begin
 max4 := max(max(a,b),max(c,d));
end;

begin
 WriteLn('Iveskite 4 skaičius');
 ReadLn(a, b, c, d);
 WriteLn(max(max(a,b),max(c,d)));
 ReadLn;
end.