, . (. 6, ).
|
| ||
) | ) |
. 6 .
:
TYPE TA=ARRAY[1..10] OF REAL;
VAR a:TA; f:TEXTFILE; i:BYTE;
BEGIN
ASSIGNFILE(f,'1.txt');
RESET(f);
FOR i:=1 TO 10 DO
READLN(f,a[i]);
CLOSEFILE(f);
( , ) READLN.
, , . 3´3 , . 6, :
TYPE TA=ARRAY[1..3,1..3] OF REAL;
VAR a:TA; i,j:BYTE; f:TEXTFILE;
BEGIN
ASSIGNFILE(f,'1.txt');
RESET(f);
//
FOR i:=1 TO 3 DO
BEGIN
//
FOR j:=1 TO 3 DO
READ(f,a[I,j]);
//
READLN(f)
END;
CLOSEFILE(f);
READ, , . , READLN(f). , .
, .
. . :
CONST Nmax=10; { }
TYPE TA=ARRAY[1..Nmax] OF REAL;
VAR a:TA; i:BYTE; max: REAL;
BEGIN
//
FOR i:=1 TO Nmax DO
a[i]:=RANDOM;
max:= a[1];
FOR i:=2 TO Nmax DO
IF a[i]>max THEN
max:=a[i];
Label1.Caption:=
' '+FloatToStrF(max,ffFixed,10,4);
, , , . , max.
, ,
:
- IBM- C Windows XP, 7, 8;
- Far Commander;
- Delphi 7.0 .
|
|
:
Z (x):
,
- , N , .
1. () .
2. (-) .
3. .
4.
5.
.