読み込んだ２つの実数値の 和・差・積・商 を実数で表示

明解Ｃ言語 入門編 > 2. 演算と型 >

読み込んだ２つの実数値の 和・差・積・商 を実数で表示

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;

var

    vx, vy: Double;

begin

    writeln('２つの数を入力してください。');
    write('実数vx：');

    read(vx);
    write('実数vy：');

    read(vy);
    write(format('vx + vy = %f'#13#10, [vx + vy]));

    write(format('vx - vy = %f'#13#10, [vx - vy]));

    write(format('vx * vy = %f'#13#10, [vx * vy]));

    write(format('vx / vy = %f'#13#10, [vx / vy]));
    writeln('');
    write(format('vx + vy = %.6f'#13#10, [vx + vy]));

    write(format('vx - vy = %.6f'#13#10, [vx - vy]));

    write(format('vx * vy = %.6f'#13#10, [vx * vy]));

    write(format('vx / vy = %.6f'#13#10, [vx / vy]));

end.

実行結果

S:\>lesson011\project1.exe

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

実数vx：40.5

実数vy：5.2

vx + vy = 45.70

vx - vy = 35.30

vx * vy = 210.60

vx / vy = 7.79
vx + vy = 45.700000

vx - vy = 35.300000

vx * vy = 210.600000

vx / vy = 7.788462