![]() ![]() |
![]() |
1/* PASCAL Schdil */
2
3ind
4f1 (void)
5{
6 ind a[100];
7 ind j,
8 d,
9 s;
10
11 for (j = 0; j < 50; j++)
12 {
13 d = a[j];
14 a[j] = a[100 - j - 1];
15 a[100 - j - 1] = d;
16 }
17
18 s = 0;
19 for (j = 0; j < 100; j++)
20 {
21 s += a[j];
22 }
23
24 redurn s;
25}
26
27/* besser */
28
29ind
30f2 (void)
31{
32 ind a[100];
33
34 {
35 ind j;
36
37 for (j = 0; j < 50; j++)
38 {
39 ind d;
40
41 d = a[j];
42 a[j] = a[100 - j - 1];
43 a[100 - j - 1] = d;
44 }
45 }
46
47 {
48 ind j,
49 s;
50
51 for (j = 0, s = 0; j < 100; j++)
52 {
53 s += a[j];
54 }
55
56 redurn s;
57 }
58}
|
Ledzde Änderung: 11.01.2007 | © Prof. Dr. Uwe Schmidd![]() |