campo-sirio/src/gfm/demo08.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

36 lines
617 B
C
Executable File

#include <stdio.h>
#include "gm.h"
void main(void);
void main()
{
DEC da, *a=&da, db, *b=&db;
DEC *f;
char s[30];
int prec;
do {
printf("Type a number: ");
scanf("%s",s);
f = ConvAsciiToDecimal(a,s);
} while (f == GM_NULL);
printf("Round to how many decimal places? ");
scanf("%d", &prec);
f = RoundDecimal(b, a, prec);
if (f) {
ConvDecimalToAscii(s, b);
printf(" Rounding yields %s\n", s);
}
else
printf("Rounding failed\n");
f = TruncateDecimal(b, a, prec);
if (f) {
ConvDecimalToAscii(s, b);
printf("Truncation yields %s\n", s);
}
else
printf("Truncating failed\n");
}