Const N1= 10; N2= 20;
Var Mas: array [1..N1,1..N2] of real;
:
. ;
. random;
. ;
program ff;
const n = 20;
var A: array[1..n] of Real;
begin
Writeln(' :');
for i:=1 to n do Readln(A[i]);
Readln;
end.
Program hh;
Const n = 20;
var A: array[1..n] of Real;
begin
Writeln(' :');
for i:=1 to n do Write(A[i]:8:2);
Writeln;
end.
Pascal. . - .
, (). .
Z
Var Z:array[1..6] of real;
Z ( Pascal)
ARRAY OF (, );
[1..6] -, ;
real , ;
Const N1= 10; N2= 20;
Var Mas: array [1..N1,1..N2] of real;
:
. ;
. random;
. ;
Program Lab10_1;
Const
N1=30;
N2=30;
Var M:array[1..N1, 1..N2] of integer;
i,n:integer;
Begin
writeln( );
readln(N1);
writeln( - );
readln(N2);
writeln( - :);
For i:=1 to N1 do
For j:=1 to N2 do
Begin
31. . , ( ):
Procedure<>;
(const,type,var)
(procedure,function)
(begin, end). .
{$ I }, I . include
32. , .
Function <>[( )]:< >;
< >
Begin
< >;
End;
, , , . .
|
|
|
. , : 'LAB1.DAT' 'c:\ pr.txt' 'my_files'
:
; ; - -.
. :
file of - ( );
text - ;
file - .
:
Var f1: file of char; f2: file of integer; f3: file; t: text;
, . .
Assign(f, FileName) f , FileName. , , .
Reset(f) , f. Reset . , .
Rewrite(f) , f. . , .
Close(f) f. Close .
Rename(f, NewName) , f. .
Erase(f)
, f. Erase .
, const, , , , , .
CRT , .
GRAPH.
GRAPH , IBM .
:
InitGraph (var Driver, Mode: Integer; Path: String) . Driver, Mode . Path .
SetViewPort (x1, x2, y1, y2: Integer; ClipOn;Word) . .
SetGraphMode .
SetTextStyle , .
CloseGraph .
ClearDevice .
OutText .
|
|
|
OutTextXY .
GRAPH. . .
Line(X1, y1, x2,y2) 1, y1 2, y2
SetBkColor .
SetColor , .
SetLineStyle .
. - . -
.
, .
(:)
(=)
.
:=
=
=
=
,
.
:
n..m Calculator;
: .
:
x:= x1, x1+ Δx.. xn
, x ( );
x1 - ;
x1+ Δx - ;
Δx - - ;
xn - .
:
x:= x1.. xn
+1 (-1), .
