FilesExpand file tree

 master

/

test.p

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

54 lines (49 loc) · 755 Bytes

 master

/

test.p

Copy path

Top

File metadata and controls

• Code
• Blame

54 lines (49 loc) · 755 Bytes

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

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

program testvar;

var

y : real;

z : real;

a : string;

c : integer;

procedure ScopeInner2(s : integer);

var K : char;

begin

writeln(s);

end;

procedure ScopeInner(i: integer);

var K : char;

begin

writeln(i);

i := i +1;

ScopeInner2(i);

end;

function Add(j:iNteger): intEger;

begin

Add := 1 + j;

ScopeInner2(j);

end;

procedure Sco;

var P : integer;

Q: real;

z: real;

begin

P := 10 + c;

z := 4.4;

Q := 2.2 * z;

writeln(P);

P := Add(P);

ScopeInner(P);

end;

begin

z := 2.2;

y := 1.3 + z;

c := 2 + 5*2 + 4 mod 7 div 6;

write('O mod z e: ');

writeln(y);

writeln(c);

Sco;

ScopeInner(c);

c := c +1;

ScopeInner(c);

c := Add(2);

writeln(c);

end.