20 lines
276 B
Text
20 lines
276 B
Text
void
|
|
show(integer symbol, real temperature)
|
|
{
|
|
o_form("%c /d2p2w8/\n", symbol, temperature);
|
|
}
|
|
|
|
integer
|
|
main(void)
|
|
{
|
|
real k;
|
|
|
|
k = atof(argv(1));
|
|
|
|
show('K', k);
|
|
show('C', k - 273.15);
|
|
show('F', k * 1.8 - 459.67);
|
|
show('R', k * 1.8);
|
|
|
|
return 0;
|
|
}
|