summaryrefslogtreecommitdiff
path: root/1553/CH11/EX11.25/11Ex25.sce
blob: a2c4dcd4cf51919f6a910dc70457280327d0e510 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Chapter 9 Ex 25

clc;
close;
clear;
x=poly(0,'x');
dis2=12.5/100;
dis1=x;
LP=150; SP=105;
for x=1:50
    if (((1-dis2)*(100-x)*LP)/100)==SP 
        break;
    end
end
mprintf("First Discount=%d percent",x);