Pascal egzamino užduotis

Darau užduotį: http://nec.lt/failai/3398_2013-IT-pavyz-uzd.pdf

Puslapis 7. Apie batus.

Turiu du klausimus.

Vienas iš užd. nurodymų yra:

Parašykite funkciją, kuri skaičiuotų, kiek yra vyriškų (moteriškų) batų porų.

Kaip suprasti?

• Ar man reikia dvi funkcijas? (Vieną vyriškoms poroms, kitą moteriškoms)

• Ar man reikia vieną funkciją, kuri gražina kiek mot ir kiek vyr. (Nelabai tikėtina grąžinti masyvą)

• Ar man reikia vieną funkciją, kuri priimtu ir boolean reikšmę, kada vyr ir kada mot ieškoti (Variantas atrodytų neblogas, bet tokiu principu darymas pažeistų funkcijos taisyklę, jog ji turi daryti tik vieną dalyką. Boolean reikšmė iš karto tai pažeistų, nors kažin ar egzaminas į tai žiūri).

Antras klausimas:

Bandžiau daryti funkciją remdamasis pirmąja teorija. Dvi funkcijas, viena vyr kita mot.

Function Vyriskos_Poros(L : Lytys; K : Kojos; D : Dydziai; n : integer) : integer;
var i, j, poros : integer;
begin
   poros := 0;
   for i := 1 to n do
       begin
           if L[i] = Vyras then
               begin
                   for j := i+1 to n do
                       begin
                           if ((L[j] = Vyras) and (D[j] = D[i]) and (K[j] <> K[i]))
                               then begin
                                       poros := poros +1;
                                       D[j] := -1;
                                       D[i] := -2;
                                   end;
                       end;
               end;
       end;
   Vyriskos_Poros := poros;
end;

Tipai ir konstantos.

Type Lytys = array[1..100] of integer;
    Kojos = array[1..100] of integer;
    Dydziai = array[1..100] of integer;
// Konstantos. Aiškesniam sąlygų tikrinimui.
const
   Vyras = 3;
   Moteris = 4;
   Kaire = 1;
   Desine = 2;

Klausimas, ar tie magic skaičiai -1 ir -2 (panaudoti tam, jog tie patys batai nebebūtų panaudoti tolimesniuose tikrinimuose, jei jau sudaro porą) nenuims man taškų per egzaminą?

Atsakymas į pirmą klausimą: vieną funkciją, kuriai paduodi ar reikia vyriškų, ar reikia moteriškų batų porų. Funkcijos taisyklės nepažeidžia, nes ji ir daro vieną dalyką - randa batų poras.