summaryrefslogtreecommitdiff
path: root/1553/CH24/EX24.32/24Ex32.sce
blob: b3c70f313c9cba42465c74bf490200cf355e8363 (plain)
1
2
3
4
5
6
7
8
9
10
11
//Chapter 24 Ex 32

clc;
clear;
close;
R=1;    // assuming radius of the circle is 1.
NR=(50/100)*R;
OArea=(%pi)*(R^2);
NArea=(%pi)*(NR^2);
dec=((OArea-NArea)*100)/OArea;
mprintf("The percentage decrease in area of circle is %d percent",dec);