diff options
author | pacien | 2018-02-23 01:11:34 +0100 |
---|---|---|
committer | pacien | 2018-02-23 01:11:34 +0100 |
commit | 806dd4ff649a1fb9a28dc469cc17d7dd5dbc1da5 (patch) | |
tree | da414ebbb1807a2dea82235faa429f6e6613db69 /res/instr.tpc | |
parent | 11acfa2e75350d31a665b8ee99925916c2c8b5f1 (diff) | |
download | tpc-compiler-806dd4ff649a1fb9a28dc469cc17d7dd5dbc1da5.tar.gz |
Adapt for new grammar
Diffstat (limited to 'res/instr.tpc')
-rw-r--r-- | res/instr.tpc | 28 |
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 | ||