Anonymous user
Repeat: Difference between revisions
→{{header|PARI/GP}}
m (→{{header|Phix}}: added syntax colouring the hard way) |
|||
Line 1,161:
<pre>Hi!
Hi!</pre>
=={{header|Pascal}}==
<lang pascal>program Repeater;
type
TProc = procedure(I: Integer);
procedure P(I: Integer);
begin
WriteLn('Iteration ', I);
end;
procedure Iterate(P: TProc; N: Integer);
var
I: Integer;
begin
for I := 1 to N do
P(I);
end;
begin
Iterate(P, 3);
end. </lang>
{{out}}
<pre>Iteration 1
Iteration 2
Iteration 3</pre>
=={{header|Perl}}==
| |||