値を返さない関数・仮引数を受け取らない関数

明解Ｃ言語 入門編 > 6. 関数 >

値を返さない関数・仮引数を受け取らない関数

C

#include <stdio.h>

int n1, n2, n3;
void max3(void)

{

    int max = n1;
    if (n2 > max) max = n2;

    if (n3 > max) max = n3;
    printf("最も大きい値は%dです。\n", max);

}

int main(int argc, char* argv[])

{
    puts("３つの整数を入力してください。");
    printf("整数１：");

    scanf("%d", &n1);
    printf("整数２：");

    scanf("%d", &n2);
    printf("整数３：");

    scanf("%d", &n3);
    max3();
    return 0;

}

実行結果

R:\>lesson045\project1.exe

３つの整数を入力してください。

整数１：83

整数２：45

整数３：25

最も大きい値は83です。

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
var

    n1, n2, n3: Integer;
procedure max3();

var

    max: Integer;

begin

    max := n1;
    if n2 > max then    max := n2;

    if n3 > max then    max := n3;
    writeln(format('最も大きい値は%dです。', [max]));

end;
begin

    writeln('３つの整数を入力してください。');
    write('整数１：');

    read(n1);
    write('整数２：');

    read(n2);
    write('整数３：');

    read(n3);
    max3;

end.

実行結果

S:\>lesson045\project1.exe

３つの整数を入力してください。

整数１：83

整数２：45

整数３：25

最も大きい値は83です。

Perl

sub max3
{
    $max = $n1;
    $max = $n2  if ($n2 > $max);
    $max = $n3  if ($n3 > $max);

    printf("最も大きい値は%dです。\n", $max);
}

print "３つの整数を入力してください。\n";

print "整数１：";
chomp($n1 = <>);

print "整数２：";
chomp($n2 = <>);

print "整数３：";
chomp($n3 = <>);

&max3;

実行結果

L:\>perl lesson_06_045.pl

３つの整数を入力してください。

整数１：83

整数２：45

整数３：25

最も大きい値は83です。

Ruby

def max3
    max = $n1
    max = $n2  if ($n2 > max)
    max = $n3  if ($n3 > max)

    printf("最も大きい値は%dです。\n", max)
end

puts "３つの整数を入力してください。"

print "整数１："
$n1 = STDIN.gets.chomp.to_i

print "整数２："
$n2 = STDIN.gets.chomp.to_i

print "整数３："
$n3 = STDIN.gets.chomp.to_i

max3

実行結果

L:\>ruby  l:\lesson_06_045.rb

３つの整数を入力してください。

整数１：83

整数２：45

整数３：25

最も大きい値は83です。