This section provides a quick preview of questions from the document. It may not display every question or the complete wording of each one. For the full content, including diagrams, tables and other information, view the original PDF above.
Q1โ Section header โ
Q2โ Section header โ
Q3โ Section header โ
Q4โ Section header โ
Q1โ Section header โ
1.1Knoppie [1.1 Properties] Vir chbQ1_1 do Verander opskrif ( caption \a Marine World
1.2Knoppie [1.2 Fudge] area uit cmbQ1_2 Omgeskakel na Integer NumPieces =
1.3Knoppie [1.3 Hexadecimal] Verkry sHex met gebruik van InputBox Vertoon sHex o
1.4Knoppie [1.4 Extract word] Verk ry sin wat deur gebruiker geselekteer is uit lstQ1_4 Vertoon sin in redQ1_4
Q2โ Section header โ
2.1SQL stellings
2.1.1Knoppie [2.1.1 All creatures]
2.1.2Knoppie [2.1.2 Shallow water]
2.1.3Redigeerblokkie [2.1.3 Search habitat] sFind + AANVAAR
2.1.4Knoppie [2.1.4 Calculate salinity] LEFT(SalinityConst,2\
2.1.5
Q2โ Section header โ
2.2Databasismanipulasie
2.2.1Knoppie [2.2.1 Update] aan na die eerste ord in tblCreatures us ( Loop deur tblCreatures
2.2.2Knoppie [2.2.2 Habitat summary] aan na die eerste ord in tblHabitats Lus loop \ deur tblHabitats
3.1.1ksie generateTurtleID Funksie opskrif met string terugstuurtipe en resultaat Result UpperCase
3.1.2Constructor Create Die volgende moet onderkant gegewe kode getoets word TurtleID None fTurtleID := generateTurtleID
3.1.3Pros edure injuryObservation Pros edure opskrif met s tring parameter s of parameter waarde
3.1.4Funksie getInjurySeverity ksie opskrif met elgetal terugkeertipe Result = fInjurySeverity
3.1.5Pros edure setRehabDays Pros edure opskrif met eelgetal parameter fRehabDays = parameter
3.1.6Funksie estimateReleaseDate Funksie opskrif met datum parameter en datum terugstuurtipe Result = fRehabDays + parameter waarde
Q3โ Section header โ
3.2.1Knoppie [3.2.1 Instantiate object] objSeaTurtle:= TSeaTurtle.Create (sTurtleID, sName, sSpecies, iAge\ Vertoon objSeaTurtle in redQ3_2 deur toString metode te gebruik
3.2.2Knoppie [3.2.2 Observation] Roep injuryObservation (sObservation\ Toets of getInjurySeverity 1 .. 4: Dae := 30 5 .. 7:
3.2.3Knoppie [3.2.3 Release date] Vertoon op pnlQ3_2_3: Omgeskakel na string Roep estimatedReleaseDate Met dCurrentDate as argument Subtotaal Vormklas: TOTAAL AFDELING C:
4.1.1
4.1.2Knoppie [4.1.2 Competition winners] us ( loop \ van 1 to iNumEntries oets elke inskrywing of
4.2Knoppie [4.2 Pascal s triangle] us ( Loop iRy van 3 to
Q1โ Section header โ
1.1chbQ1_1.Caption := Marine World
1.2iArea := StrToInt(cmbQ1_2.Text); iNumPieces := iArea DIV 4; iPackets := iNumPieces DIV 6;
1.3sHex := InputBox( Convert Hexadecimal to Decimal
1.1punte // ============================================================================== chbQ1_1.Enabled := False; end; //===============================================================================
1.2punte // ============================================================================== //=============================================================================== // Vraag
1.314 punte // ============================================================================== 13 SS/
1.4sSentence := lstQ1_4.Items[lstQ1_4.ItemIndex]; redQ1_4.Lines.Add(sSentence);
1.413 punte // ============================================================================== redQ1_4.Lines.Add(sSentence\ repeat iRandom := Random(length(sSentence\ until sSentence[iRandom] = ' '; redQ1_4.Lines.Add('Generated value: ' + IntToStr(iRandom\ Delete(sSentence, 1, iRandom\ iPos := Pos(' ', sSentence\ if iPos > 0 then sWord := Copy(sSentence, 1, iPos - 1\ else sWord := Copy(sSentence, 1, length(sSentence\- 1\ redQ1_4.Lines.Add('Extracted word: ' + sWord\ end; //
Q2โ Section header โ
2.1.4sSQL := SELECT HabitatID, SalinityConst, RIGHT(SalinityConst,2)
2.1.5sSQL := SELECT H.HabitatName, ROUND(AVG(CreatureLength),2) AS AvgLength
2.1.4punte //=============================================================================== //=============================================================================== // Vraag
2.1.5punte //=============================================================================== 17 SS/
2.2.1tblCreatures.First; while not tblCreatures.EOF do begin
2.2.2tblHabitats.First; while not tblHabitats.EOF do begin
Q2โ Section header โ
2.2.1punte //============= ================================================================== 'CreatureName'] \ begin tblCreatures.Edit; tblCreatures['CreatureName'] := tblCreatures['CreatureName'] +'*'; tblCreatures.Post; redQ2_2.Lines.Add(tblCreatures['CreatureName'] + #9 + tblCreatures['HabitatID']\ end; tblCreatures.Next; end; end; //===============================================================================
2.2.210 punte //=============================================================================== 18 SS/
Q3โ Section header โ
3.1.1punte // ============================================================================== // ============================================================================== // Vraag
3.1.2punte // ============================================================================== 20 SS/
3.1.3punte // ============================================================================== // ============================================================================== // Vraag
3.1.4punte // ============================================================================== // ============================================================================== // Vraag
3.1.5punte // ============= ================================================================= // ============================================================================== // Vraag
3.1.6punte // ============================================================================== // ============================================================================== // Provided code // ==============================================================================
3.2.1objSeaTurtle := TSeaTurtle.Create(sTurtleID, sName, sSpecies, iAge); redQ3_2.Lines.Add(objSeaTurtle.toString); end;
3.2.2objSeaTurtle.injuryObservation(sObservation); case objSeaTurtle.getInjurySeverity of 1 .. 4: objSeaTurtle.setRehabDays(30);
3.2.3pnlQ3_2_3.caption := DateToStr(objSeaTurtle.estimateReleaseDate(dCurrentDate)); end;
3.2.1punte // ==============================================================================
Q3โ Section header โ
3.2.2punte // ==============================================================================
Q3โ Section header โ
3.2.3punte // ============================================================================== 23 SS/
4.1.114 punte // ============================================================================== procedure TfrmQuestion4.btnQ4_1_1Click(Sender: TObject\; tFile: Textfile; sLine, sTemp: String; iNumFish: Integer;
4.1.125 SS/
4.1.210 punte // ============================================================================== procedure TfrmQuestion4.btnQ4_1_2Click(Sender: TObject\; rHighestAvg, rAvg: Real; iCnt, iNumFish: Integer; sOutput: String;
4.1.2for iCnt := 1 to iNumEntries do begin if arrNumFish[iCnt] > 0 then begin rAvg := arrTotalWeight[iCnt] / arrNumFish[iCnt]; if rAvg = rHighestAvg then sOutput := sOutput + arrSurnameName[iCnt] + #13; if rAvg > rHighestAvg then
4.2punte // ============================================================================== procedure TfrmQuestion4.btnQ4_2Click(Sender: TObject\; iRow, iCol: Integer; begin Vraag
4.2for iRow := 3 to 7 do for iCol := 2 to 14 do arrPattern[iRow, iCol] := arrPattern[iRow 1, iCol 1] + arrPattern[iRow 1, iCol + 1]; // Provided code display2D;