-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathtest1.gr
More file actions
48 lines (38 loc) · 1.32 KB
/
test1.gr
File metadata and controls
48 lines (38 loc) · 1.32 KB
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
πρόγραμμα τεστ
δήλωση α,β
δήλωση γ,δ
συνάρτηση αύξηση(α,β)
διαπροσωπεία
είσοδος α
έξοδος β
αρχή_συνάρτησης
β := α + 1;
αύξηση := -1 + 1
τέλος_συνάρτησης
διαδικασία τύπωσε_συν2(χ)
διαπροσωπεία
είσοδος χ
αρχή_διαδικασίας
γράψε χ + 1
τέλος_διαδικασίας
αρχή_προγράμματος
α := 1 ;
β := 2 + α * α / (2 - α - (2*α));
γ := αύξηση(α,%β);
για α:=1 έως 8 με_βήμα 2 επανάλαβε
εκτέλεσε τύπωσε_συν2(α)
για_τέλος;
β := 1;
όσο β<10 επανάλαβε
εάν β<>+22 ή [β>=+23 και β<=+24] τότε
β := β+1
αλλιώς
β := β
εάν_τέλος
όσο_τέλος;
διάβασε β;
επανάλαβε
β := β + 1
μέχρι β< -100
γράψε 3 + 2
τέλος_προγράμματος