11 lines
1.6 KiB
HTML
11 lines
1.6 KiB
HTML
<!doctype html><html lang="ceb"><meta charset="utf-8"><title>Collection ug balikbalik nga buluhaton</title><h1>Collection ug balikbalik nga buluhaton</h1><p>15-minutong sesyon: pagbasa sulod sa 3 minutos, pag-trace sa 3, pag-eksperimento sa 7, ug pagtubag sa check sa 2. Paggahin og dugang oras kon gikinahanglan.</p><p>Ang collection nagtipig sa may kalabotang value. Bisitahon sa loop ang 1, 2, ug 3; ang total gikan sa 0 mahimong 1, 3, ug 6. Isulat ang trace imbes manag-an. Ilha ang una ug kataposang valid nga posisyon: mahimong 1-based ang Pascal array samtang zero-based ang daghang ubang container. Idugang og value ug taronga ang bounds. Ipasabot ang resulta alang sa empty collection.</p><p>Lahi ang Object Pascal classes ug Objective-Pascal. Unaha ang <code>class</code>, construction, ug <code>Free</code> sa Linux lab. Ang Objective-Pascal modugang og Objective-C interoperability pinaagi sa mode switches; wala sa lab ang maong Apple runtime.</p><pre><code class="language-objectpascal">program AgilaStudy;
|
|
{$mode objfpc}{$H+}{$assertions on}
|
|
|
|
var Minutes: array[1..3] of Integer; I, Total: Integer;
|
|
begin
|
|
Minutes[1] := 1; Minutes[2] := 2; Minutes[3] := 3;
|
|
Total := 0;
|
|
for I := Low(Minutes) to High(Minutes) do Total := Total + Minutes[I];
|
|
writeln(Total);
|
|
end.
|
|
</code></pre><p><strong>Gipaabot nga resulta:</strong> <code>6</code></p><h3>Praktis ug ebidensiya</h3><p>Isulat ang tagna, aktuwal nga resulta, ug hinungdan sa pagkapareho o kalainan. Ang completion check mosukod sa pagsabot; ang practice task mopauswag sa kahanas.</p><p><a href="https://docs.freepascal.org/daily/doc/ref/refse74.html">Reperensiya sa pinulongan</a></p></html> |