, , , , . :
1) TURBO.TPL (Turbo Pascal Library). .
2) TURBO. TPL, TPU- .
3) , , Options/ Directories/Unit Directories /U і.
4) , .
5) Compile/Make Compile/Build, , . , .PAS.
, TURBO.TPL. . () , TPUMOVER TURBO.TPL, .
, , Turbo Pascal ; TPL- .
Turbo Pascal , , , . :
SYSTEM
DOS
CRT
PRINTER
OVERLAY
GRAPH
TORBO3
GRAPHS
, , , Turbo Pascal.
TPU- Turbo Pascal. , System, Dos, Crt, Printer Overlay TURBO. TPL. , , . System, , .
|
|
|
, , , . .
System Pascal, , , , .
Dos MS-DOS.
Crt . , ( ) .
Printer - Lst text, PRN ( , ). Write WriteLn .
Overlay , , .
Graph . - CGA, EGA, VGA, Hercules .. , , .
Turbo3 Graph3 Turbo Pascal , 3.0.
, "". , implementation; ( , , , ) , ( " " ).
unit StackOps; { }
interface
procedure Push (Elem:integer);
function Pop: integer;
function Empty: boolean;
function Full: boolean;
implementation
{ ;
}
const
= 100;
var
Stack array[1..Max] of integer;
Top: integer;
procedure Push; { }
begin
if Top>Max then Exit;
Stack[Top]:= Elem;
inc(Top)
end;
function Pop; { }
begin
op:= 0;
if Top=1 then Exit;
dec(Top);
Pop:= Stack[Top]
end;
function Empty; { }
begin
Empty:= (Top=1)
end;
function Full; { }
begin
Full:= (>)
end;
begin
{ : }
|
|
|
:= 1
end.
, . , ( 5,6,7,8,9,10,11,12,13).
5
6 -
7
8
9 -
10
11
12 -
13
3
:
6x5 , [1, 100]. , , output.txt.
PascalABC.NET , , Delphi, .
const
n = 6;
m = 5;
var
a: array[1..n, 1..m] of integer;
b: array[1..n,1..m] of integer;
c: array[1..n,1..m] of integer;
i, j: byte;
sum: integer;
t: text;
begin
assign(t, 'output.txt');
randomize;
for i:= 1 to n do
begin
for j:= 1 to m do
begin
a[i, j]:= random(100);
b[i, j]:= random(100);
end;
writeln
end;
for i:= 1 to n do
begin
for j:= 1 to m do
begin
write(a[i, j]:3);
end;
writeln
end;
writeln;
for i:= 1 to n do
begin
for j:= 1 to m do
begin
write(b[i, j]:3);
end;
writeln
end;
writeln;
for i:= 1 to n do
begin
for j:= 1 to m do
begin
c[i,j]:= a[i, j]*b[i, j];
write(c[i, j]:8);
end;
writeln
end;
rewrite(t);
for i:= 1 to n do
begin
for j:= 1 to m do
begin
write(t,c[i,j]:8)
end;
writeln(t)
end;
close(t);
readln
end.
:
const
n = 6;
m = 5;
var
a: array[1..n, 1..m] of integer;
b: array[1..n,1..m] of integer;
c: array[1..n,1..m] of integer;
i, j: byte;
sum: integer;
t: text;
begin
assign(t, 'output.txt'); output
randomize;
for i:= 1 to n do i 1 n
begin
for j:= 1 to m do j 1 m
begin
a[i, j]:= random(100); 1 100
b[i, j]:= random(100);
end;
writeln
end;
for i:= 1 to n do i 1 n
begin
for j:= 1 to m do j 1 m
begin
write(a[i, j]:3);
end;
writeln
end;
writeln;
for i:= 1 to n do i 1 n
begin
for j:= 1 to m do j 1 m
begin
write(b[i, j]:3); b
end;
writeln
end;
writeln;
for i:= 1 to n do i 1 n
begin
for j:= 1 to m do j 1 m
begin
c[i,j]:= a[i, j]*b[i, j]; c a b
write(c[i, j]:8);
end;
writeln
end;
rewrite(t); output ( )
for i:= 1 to n do i 1 n
begin
for j:= 1 to m do j 1 m
begin
write(t,c[i,j]:8) output c
end;
writeln(t)
end;
close(t); output
readln
end.
( 14):
14
output.
- ( 15):
|
|
|
| a: array[1..n, 1..m] of integer; b: array[1..n,1..m] of integer; c: array[1..n,1..m] of integer; i, j: byte; |
| a[i, j]:= random(100); b[i, j]:= random(100); |
| i:= 1 to n do begin for j:= 1 to m do |
| j:= 1 to m do |
| a[i, j]:3 |
| i:= 1 to n do begin for j:= 1 to m do |
| j:= 1 to m do |
| b[i, j]:3 |
| i:= 1 to n do begin for j:= 1 to m do |
| j:= 1 to m do |
| c[i, j]:8 |
| i:= 1 to n do begin for j:= 1 to m do |
| j:= 1 to m do |
15 -
, , . .
, ( ), , . , , , .
, .
, , , , , .
1. - .. / .. -.//
. - 2002.
2. .. , , / ..
// . - 1991.
3. -: http://www.tspu.tula.ru/
4. http://ugned.ru/
5. http://examen.od.ua/
6. http://phys.adygnet.ru/
7. http://www.akdi.ru/
8. 7.0 .: BHV, 1996 448.: . . .
9. .. .. Express Pascal. . .
10. .. .. . 8-9 .: . . 2001 176.:.
