��1

�¿� x �� ���� n ($\ge 0$) ��Ϳ�����Ȥ��� ${\displaystyle \sum_{k=0}^{n} x^k}$ ���ͤ��֤��ؿ���

     1000 fnF(x,n)
     1010   local k,s
     1020   s=0.0
     1030   for k=0 to n       for ʸ (�����֤�) �ϡ����Τ褦��
     1040     s=s+x^k          �Ԥ�ʬ���ƽ񤯤Τ����̤���
     1050   next               for �� next �δ֤ϲ��Ԥ��äƤ�褤��
     1060 return(s)

�ؿ�̾�� fn �ǻϤޤ�褦�ˤ�����«�����֤��ͤ� return( ) ����˽񤯡�

�ؿ��������ǤΤ߻Ȥ��ѿ���̿�� local ��������Ƥ��� (�������� ������줿�ѿ��� local �ѿ� (�ɽ��ѿ�) �Ȥ���)�� ��������ȡ��ץ�������¾����ʬ��Ʊ��̾�����ѿ���ȤäƤ����Ȥ��Ƥ⡤ ����Ȥ���Ȥ���ʪ�Ȥ��ư����롥

�ޤ��ؿ�������Ѥ����������ѿ�̾�ȡ��ºݤ˴ؿ���Ƥ֤Ȥ��ΰ������ѿ�̾ �Ȥ�Ʊ���Ǥʤ��Ƥ褤 (������äƤ�Τ��狼��ʤ����������顤���ä��ȼ� ������򸫤�)��

���˼���Ū�������󤲤褦��