You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
644 B
Plaintext
34 lines
644 B
Plaintext
8 months ago
|
program sign;
|
||
|
|
|
||
|
|
const N = 4;
|
||
|
|
const M = 2.3;
|
||
|
|
|
||
|
|
var x, y, xy, xyz : integer;
|
||
|
|
var z : real;
|
||
|
|
var as, cs : array [2 .. 2] of real; { Array of size 1 }
|
||
|
|
var bs : array [2 .. 2] of integer;
|
||
|
|
|
||
|
|
begin
|
||
|
|
as[2] := 25.3; { assign real to *real* }
|
||
|
|
as[2] := 2; { assign int to *real* }
|
||
|
|
bs[2] := 1;
|
||
|
|
cs[2] := bs[2];
|
||
|
|
as[2] := cs[2];
|
||
|
|
x := N;
|
||
|
|
z := M;
|
||
|
|
z := 3 / 2;
|
||
|
|
z := 3.5 * 3 + 2 - 1;
|
||
|
|
z := 3.4 / 5;
|
||
|
|
z := 3.5 / 3.4 - 3.4;
|
||
|
|
y := 3 div 2;
|
||
|
|
z := bs[2];
|
||
|
|
x := 42;
|
||
|
|
y := -1;
|
||
|
|
xy := x*y;
|
||
|
|
xyz := -1*x + (-xy);
|
||
|
|
x := -x - x;
|
||
|
|
z := as[2];
|
||
|
|
writeln(z);
|
||
|
|
writeln(10 * 3 / 2 + 6 - 5 / 4 + (4 / 3 * 8 + 6 - 7) * 25 - 15 + 4)
|
||
|
|
end.
|