campo-sirio/src/gfm/demo04.c
mtollari 1b14ec9415 Spostamento cartella sorgenti
git-svn-id: svn://10.65.10.50/branches/R_10_00@23236 c028cbd2-c16b-5b4b-a496-9718f37d4682
2016-09-09 13:59:02 +00:00

24 lines
449 B
C
Executable File

#include <stdio.h>
#include "gm.h"
void main(void);
void main()
{
DEC da, *a=&da, db, *b=&db, dc, *c=&dc;
DEC dt, *t=&dt, dx, *x=&dx, *p;
char str[30];
ConvAsciiToDecimal(a, "13.22");
ConvAsciiToDecimal(b, "34.89");
ConvAsciiToDecimal(c, "1.0625");
p = MultiplyDecimalAndRound(x, c, AddDecimal(t, a, b), 2);
if (p) {
ConvDecimalToAscii(str, x);
printf("The result is %s\n", str);
}
else
printf("The computation failed.\n");
}