関数の定義

　Cの関数は

0個以上の引数を持ち、0個か1個の戻り値を持ち、まとまった仕事を行うプラグラムの一部分」

http://www.amazon.co.jp/%E6%96%B0%E7%89%88C%E8%A8%80%E8%AA%9E%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%9F%E3%83%B3%E3%82%B0%E3%83%AC%E3%83%83%E3%82%B9%E3%83%B3-%E5%85%A5%E9%96%80%E7%B7%A8-%E7%B5%90%E5%9F%8E%E6%B5%A9/dp/4797336781/ref=sr_1_10?ie=UTF8&s=books&qid=1209639049&sr=1-10:title

3割引の計算をする関数

#include <stdio.h>
float calc(float x);
int main(void);
/* この部分が関数だよ */
float calc(float x)
{
return(x * 0.7);
}
int main(void)
{
float y;
y = calc(10000.0);
printf ("値段 %.0f 円の時", 10000.0);
printf ("%.0f 円支払います。\n", y);
return();
}

ちなみに Perl だと、こんな感じかな？

use strict;
use warnings;
my $sum = 10000;
$sum = &calc($sum);
print $sum, "\n";
sub calc{
my $i;
my @nums = @_;
$i = $nums[] * 0.7;
return $i;
}

Cだと変数の方の宣言をする必要があって、結構がちがちにやる必要があります。それに対して、Perlだと引数の個数を指定する必要がなかったりと自由度高め。自分は配列の1番目（添え字0）に決めうちで計算をさせています。Perlの自由度は高いなー。

戻り値のない関数

　アスタリスクをn個表示させます。

#include <stdio.h>
void prt_graph(int x);
int main(void);
void prt_graph(int x)
{
int i;
for (i = ;i < x;i++) {
printf ("*");
}
printf ("\n");
}
int main(void)
{
prt_graph(10);
return();
}

Perlだと、こんな感じになる。簡単だ。

use strict;
use warnings;
print "*" x 10;
print "\n";

xのn乗を計算する

#include <stdio.h>
int get_power(int x, int n);
int main(void);
int get_power(int x, int n)
{
/* 変数の定義 */
/* i はカウンタ */
/* res は計算と戻り値のため */
int i;
int res = 1;
for (i = ;i <= n - 1;i++) {
res = res * x;
}
return(res);
}
int main(void)
{
int temp;
temp = get_power(7, 4);
printf ("%d", temp);
printf ("\n");
return();
}

Perlだとこうなる。ただし、厳密な引数のチェックはしていない。

use strict;
use warnings;
print &get_power(10,3);
print "\n";
sub get_power{
my $res = 1;
my ($x, $n) = @_;
for (my $i = ; $i <= $n - 1; $i++) {
$res = $res * $x;
}
return $res;
}

練習問題

　nの2乗個の*を表示させる（nを10→0→10と変化させる）。

#include <stdio.h>
/* プロトタイプ宣言 */
void prt_graph(int n);
int main(void);
/* 関数 prt_graph */
void prt_graph(int n)
{
int i;
int cnt;
cnt = n * n;
for (i = ;i < cnt;i++) {
printf ("*");
}
printf ("\n");
}
/* メイン */
int main(void)
{
int i;
for (i = 10; < i;i = i -1) {
prt_graph(i);
}
for (i = ;i < 11; i++) {
prt_graph(i);
}
return();
}