finalyze moving

This commit is contained in:
2025-03-12 14:28:04 +03:00
parent f840006398
commit 033bbce220
774 changed files with 0 additions and 0 deletions

View File

@@ -0,0 +1,10 @@
PROGRAM SIMPLE_SUM
REAL A (10), B (24), C(2)
REAL S
S = SUM(A)
S = SUM(B)
S = SUM(C)
END

View File

@@ -0,0 +1,11 @@
PROGRAM SUM_WITH_SECTIONS
REAL A (10), B (9), C(3)
REAL S
S = SUM(B(4:7))
S = SUM(A(3:6))
S = SUM(A(1:5))
S = SUM(A(2:4))
END

View File

@@ -0,0 +1,11 @@
PROGRAM TWO_DIMENSIONAL_SUM
REAL A (100, 100), B (100, 90), C(10, 3)
REAL S
S = SUM(A(2:10, 3:30))
S = SUM(B(10:20, 34:37))
S = SUM(C)
S = SUM(A(45:99, 2:10))
END