11 lines
1.5 KiB
HTML
11 lines
1.5 KiB
HTML
<!doctype html><html lang="en"><meta charset="utf-8"><title>Functions and a clear policy</title><h1>Functions and a clear policy</h1><p>15-minute session: read for 3 minutes, trace for 3, experiment for 7, and complete the check for 2. Spend longer whenever you need.</p><p>A function or subroutine names a reusable calculation. Our policy accepts nonnegative total and completed counts and returns zero when completed reaches or exceeds total. Otherwise it returns their difference. Trace (4,1), (4,4), (4,5), and (0,0). Keep printing separate from calculation. Write down why negative inputs are outside this exercise’s domain, then design an explicit rejection policy before accepting external input.</p><p><code>begin</code> and <code>end</code> enclose statements. <code>:=</code> assigns; <code>=</code> compares. The final program terminator is <code>end.</code>. This course uses Free Pascal in Object Pascal mode while starting with procedural constructs.</p><pre><code class="language-pascal">program AgilaStudy;
|
||
{$mode objfpc}{$H+}{$assertions on}
|
||
function Remaining(Total, Done: Integer): Integer;
|
||
begin
|
||
if Done >= Total then Result := 0 else Result := Total - Done;
|
||
end;
|
||
|
||
begin
|
||
writeln(Remaining(4, 1));
|
||
end.
|
||
</code></pre><p><strong>Expected result:</strong> <code>3</code></p><h3>Practice and evidence</h3><p>Keep three notes: your prediction, the actual result, and why they match or differ. The completion check grades understanding; the practice task builds skill.</p><p><a href="https://www.freepascal.org/docs.html">Language reference</a></p></html> |