aboutsummaryrefslogtreecommitdiff
path: root/res/instr.tpc
diff options
context:
space:
mode:
authorAdam NAILI2018-02-23 22:03:52 +0100
committerAdam NAILI2018-02-23 22:03:52 +0100
commit4d52709e24e05d3f2e1ea449b4a4203604b41aec (patch)
tree24da9272cdae9e5777e3b27bc3113cafec8bebfc /res/instr.tpc
parentde916ff97b1a15f7188295cb084058dc5e8054c1 (diff)
parentf83fee146e1159344ee30711652b0ae6ebf07a5d (diff)
downloadtpc-compiler-4d52709e24e05d3f2e1ea449b4a4203604b41aec.tar.gz
Merge branch 'master' of https://github.com/pacien/upem-compil-tpc
Diffstat (limited to 'res/instr.tpc')
-rw-r--r--res/instr.tpc28
1 files changed, 0 insertions, 28 deletions
diff --git a/res/instr.tpc b/res/instr.tpc
deleted file mode 100644
index 7153ac2..0000000
--- a/res/instr.tpc
+++ /dev/null
@@ -1,28 +0,0 @@
1/* instr.tpc */
2/* int trinome(float a, float b, float c) ;
3 double valeur(double a, double b, double c, double x) ; */
4/* Résolution d'une équation du deuxième degré */
5 b=-1;
6 while (b<=1) {
7 c=-1;
8 while (c<=1) {
9 print(b, c);
10 if (trinome(1,b,c)) {
11 print(r1, r2);
12 print(valeur(1,b,c,r1),valeur(1,b,c,r2));
13 }
14 c=c+1;
15 }
16 b=b+1;
17 }
18 return 0;
19 d=b*b-4*a*c;
20 if (d>=0) {
21 s=sqrt(d);
22 r1=(-b+s)/(2*a);
23 r2=(-b-s)/(2*a);
24 return 1;
25 }
26 return 0;
27 if (0<=r1 && r1<=max && 0>=r2 && r2>=-max)
28 return; \ No newline at end of file