34 lines
720 B
Text
34 lines
720 B
Text
MODULE Leonardo;
|
|
FROM FormatString IMPORT FormatString;
|
|
FROM Terminal IMPORT WriteString,WriteLn,ReadChar;
|
|
|
|
PROCEDURE leonardo(a,b,step,num : INTEGER);
|
|
VAR
|
|
buf : ARRAY[0..63] OF CHAR;
|
|
i,temp : INTEGER;
|
|
BEGIN
|
|
FOR i:=1 TO num DO
|
|
IF i=1 THEN
|
|
FormatString(" %i", buf, a);
|
|
WriteString(buf)
|
|
ELSIF i=2 THEN
|
|
FormatString(" %i", buf, b);
|
|
WriteString(buf)
|
|
ELSE
|
|
FormatString(" %i", buf, a+b+step);
|
|
WriteString(buf);
|
|
|
|
temp := a;
|
|
a := b;
|
|
b := temp + b + step
|
|
END
|
|
END;
|
|
WriteLn
|
|
END leonardo;
|
|
|
|
BEGIN
|
|
leonardo(1,1,1,25);
|
|
leonardo(0,1,0,25);
|
|
|
|
ReadChar
|
|
END Leonardo.
|