. , .
:
GOTO <>.
GOTO ( ).
<> .
, . . . . , , . LABEL (), .
label 222, a1, met;
.
, , , .
:
x:+ 2; a:= b; goto 99;
14: a:= 0; x:= b; 99: y:= x; write(x)
x:= 2 a:= b, , 99, y:= x. y:= x write(x).
11. , cos(i3)sin(in), i = 1,..., n, 0.0001. , , (. 50).
.
program task11;
label m1;
var i, n: integer;
begin
readln(n);
for i:= 1 to n do
if cos(i*i*i)*sin(i*n) < 0.0001 then
begin
write();
goto m1
end;
write();
m1: end.
, 0.0001, , . end m1 . .
:
program task11;
label m1,m2;
var i, n: integer;
begin
readln(n);
for i:= 1 to n do
if cos(i*i*i)*sin(i*n) < 0.0001 then goto m1;
write(); goto m2;
m1: write();
m2: end.
C , , . GOTO . .
. :
var
a: array [1..10] of real;
b: array [0..50] of char;
c: array [3..4] of boolean;
|
|
ARRAY OF ( ). ARRAY , . , 10 , b 51, 8.
(, ), ( 1, ). , :
b[17]:= f;
c[2]:= a[1] > a[2]
for k:= 1 to 10 do a[k]:= 0;
, . , a[1], b[38], c[0], a[0] [38]. .
, 2.
12. , .
7 2.
program task12;
const
m = 40;
var
i, n, k: integer; s: real;
r: array [1..m] of real;
begin
readln(n);
s:= 0;
for i:= 1 to n do
begin
readln(r[i]);
s:= s + r[i]
end;
s:= s/n;
k:= 0;
for i:= 1 to n do
if r[i] > s then k:= k+1;
write ( = ,k)
end.
m . 40. m . n , . i . k , . r .
13. n . , . 8 2, . .
program task13;
const
h = 20;
var i, k, l, m,n: integer;
a: array [1..h] of real;
begin
write( n, n <= 20); readln(n);
for i:=1 to n do
begin
write( ,i); readln(a[i])
end;
l:= 0; r:= 0; m:= 0
for i:= 1 to n do
if a[i] <0 then
k:= k+1
else
if a[i] >0 then
l:= l+1
else
m:= m + 1;
write( ,k, . ,l,. ,m)
end.
write( n, n <= 20), write( ,i). . n, n <= 20 . , . .
14. N M . . .
13, 2, . , aij Sj = Sj /N. S, M .
|
|
: N , M , A . a[i,j] i j . , N M . N M. , ( ) .
.
program task14;
const
n = 30; m = 5;
var
i,j: integer;
s: array [1..m] of real; { s.}
a: array [1..n,1..m] of integer;{ .}
begin
for i:= 1 to n do for j:= 1 to m do readln(a[i,j]);{ .}
for j:= 1 to m do
begin
s[j]:= 0;
for i:= 1 to n do s[j]:= s[j] + a[i,j];{ }
{ }
s[j]:= s[j]/n
end;
for j:= 1 to m do write (s[j]) { }
end.