/*****************************************************************************
*       Converts pennyweights into scruples.                                 *
*       Inputed: p (pennyweights)                                            *
*       Outputed: s (scruples) [=(p*24)/20]                                  *
*       Written: September 18, 2001                                          *
*       By: Ronald Roberts                                                   *
*****************************************************************************/

//Program 7
//18SEP01
#include <iostream.h>
#include <math.h>
int main()
{
/* declaration of variables */ 
double p=0, s=0;

/* instruction statements and input */ 
cout<<"This program converts pennyweights into scruples."<<endl;
cout<<"Please enter the amount of pennyweights:"<<endl;
cin>>p;

/* calculation formula */
s=(p*24)/20;

/* output results */
cout<<p<<" pennyweight(s) is equal to "<<s<<" scruples."<<endl;

return 0;
}

/* OUTPUT
This program converts pennyweights into scruples.
Please enter the amount of pennyweights:
3
3 pennyweight(s) is equal to 3.6 scruples.
*/