-
Notifications
You must be signed in to change notification settings - Fork 0
/
ex2.yaka
58 lines (53 loc) · 1.23 KB
/
ex2.yaka
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
PROGRAMME ex2
BOOLEEN FONCTION trace (ENTIER x,ENTIER y)
CONST blanc=0,
croix=1;
SI x<>y ALORS SI y=25-x ALORS ECRIRE(blanc)
SINON ECRIRE(croix)
FSI
SINON ECRIRE(blanc)
FSI;
SI x=24 ALORS ALALIGNE FSI;
RETOURNE VRAI
FFONCTION
PRINCIPAL
VAR ENTIER i,j;
VAR BOOLEEN b;
i=0;j=0;
TANTQUE j+1<>25 FAIRE
ECRIRE(' ');
TANTQUE i+1<>25 FAIRE
b= trace(i+1,j+1);
i=i+1
FAIT;
j=j+1;
i=0
FAIT
FPRINCIPAL
FPROGRAMME
(*
011111111111111111111110
101111111111111111111101
110111111111111111111011
111011111111111111110111
111101111111111111101111
111110111111111111011111
111111011111111110111111
111111101111111101111111
111111110111111011111111
111111111011110111111111
111111111101101111111111
111111111110011111111111
111111111110011111111111
111111111101101111111111
111111111011110111111111
111111110111111011111111
111111101111111101111111
111111011111111110111111
111110111111111111011111
111101111111111111101111
111011111111111111110111
110111111111111111111011
101111111111111111111101
011111111111111111111110
*)