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>Ang <code>begin</code> ug <code>end</code> moputos sa mga statement. Assignment ang <code>:=</code>; comparison ang <code>=</code>. Ang programa matapos sa <code>end.</code>. Free Pascal sa Object Pascal mode ang gigamit, sugod sa procedural constructs.</p><pre><code class="language-pascal">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://www.freepascal.org/docs.html">Reperensiya sa pinulongan</a></p></html> |