第５講 プロシージャ(1)
第５話 引数を利用した様々なプロシージャ
①引数（は１つ)を２倍にして表示するプログラム
解答例
Module Module1
Sub Main() '私は社長だ。
Call f(10) 'f()君、仕事をしなさい!
End Sub
Sub f(a As Integer) '引数の2倍を求める社員
Console.WriteLine("{0:d}の2倍は{1:d}", a, 2 * a)
End Sub
End Module
実行結果
10の２倍は20
②引数を初項・交差・末項にして等差数列の和を計算。ただし、初項3・交差2・末項11とする。
解答例
Module Module1
Sub Main() '私は社長だ。
Call f(3, 2, 11) 'f()君、初項が3、交差が2、末項が11の等差数列の和を求めなさい。
End Sub
Sub f(s As Integer, k As Integer, m As Integer) 's：初項 k：交差 m：末項
Dim i, w As Integer 'iはFor文の制御変数 wは和を積算する整数
w = 0 '0に初期化
For i = s To m Step k
w += i
Next
Console.WriteLine("初項{0:d},交差{1:d},末項{2:d}の等差数列の和＝{3:d}", s, k, m, w)
End Sub
End Module
実行結果
初項3,交差2,末項11の等差数列の和＝35
③引数を初項・交差・末項にして等差数列の和を計算。ただし、引数の各値はMain()においてキーボード上から取得。
Module Module1
Sub Main() '私は社長だ。
Dim s, k, m As Integer 's：初項 k：交差 m：末項
Console.WriteLine ("キーボードから初項,交差,末項の順に入力して下さい。")
Console.Write ("初項＝")
s = Console.ReadLine()
Console.Write ("交差＝")
k = Console.ReadLine()
Console.Write ("末項＝")
m = Console.ReadLine()
Call f(s, k, m) 'f()君、初項がs、交差がk、末項がmの等差数列の和を求めなさい。
End Sub
Sub f(s As Integer, k As Integer, m As Integer) 's：初項 k：交差 m：末項
Dim i, w As Integer 'iはFor文の制御変数 wは和を積算する整数
w = 0 '0に初期化
For i = s To m Step k
w += i
Next
Console.WriteLine("初項{0:d},交差{1:d},末項{2:d}の等差数列の和＝{3:d}", s, k, m, w)
End Sub
End Module
実行結果
キーボーから初項、交差、末項を順に入力して下さい。
初項＝5
交差＝2
末項＝199
初項5,交差2,末項199の等差数列の和＝9996
④引数をa,b,cとしてa*b+cを表示させるプログラム。ただし、a,b,cはMain()おいてキーボードから取得。
解答例
Module Module1
Sub Main() '私は社長だ。
Dim a, b, c As Integer 'a,b,cは整数
Console.WriteLine ("キーボーからa,b,cを順に入力して下さい。")
Console.Write ("a＝")
a = Console.ReadLine()
Console.Write ("b＝")
b = Console.ReadLine()
Console.Write ("c＝")
c = Console.ReadLine()
Call f(a, b, c) 'f()君、計算して!
End Sub
Sub f(a As Integer, b As Integer, c As Integer) 'a,b,cは整数
Console.WriteLine("a*b+c＝{0:d}", a * b + c)
End Sub
End Module
実行画面
キーボーからa,b,cを順に入力して下さい。
a＝59
b＝67
c＝109
a * b + c = 4062
さて、なぜ単なる部品にすぎないものを関数（FunctionプロシージャのFunctionは関数です）というのでしょうか。
その答えは、第６話以降の戻り値を学ぶとわかります。
