,,,
. 3
1 . 5
2 . 6
3 . 8
4 . 10
4.1 . 10
4.2 . 10
4.3 . 10
5 . 11
6 .. 18
7 . 20
8 . 21
9 . 22
. 23
. 24
, . , . , . , MS DOS .
/ . . / .
IBM . Turbo - Pascal. , , . , (, , , ) . , (, , ). , . : , , . .
.
. , , , .
. , . 16- 640*350 112000 .
???. , . .
, ???. , . , .
, . , . .
, , . 2 , :
- ;
- , .
.
1 .
:
:
- - - ;
- -
- - , .
- 0,0,X0,Y0 .
:
2
, . ⠠ .
(). Borland Pascal 7.0
<> : record
< 1> : < 1>;
< 2> : < 2>;
---------------------------------------------
< M> : < M>;
end;
:
Trec_TST = record
use : integer;
name : string; {_ }
ans : string; {_ }
end;
Trec_YN = record
use : integer;
name : string; {_ }
ans_int : integer; { Y/N}
end;
Trec_USR = record
name : string; {_ }
psw : string; {_ }
ans_am : integer; {_ }
end;
[1], , . < M> .
255 . String. :
Name | |
Ans | |
Ans_RTIME | / |
1
, . Borland Pascal 7.0 MS-DOS. .
, . . . , .
2 :
- ;
- .
, . . ( ). , .
. :
- ;
- ;
- ;
- (), .
:
- 12 ;
- ;
- 12 ;
- .
. :
- 12 ;
- ;
- .
, , .
:
3
:
4
:
:
5
, *. , ( /).
:
6
:
< CGK.EXE >. .
:
- ;
- ;
- ;
- .
:
- ;
- 12 1 . ;
- , . , 6 .
:
- ;
- ;
- , .
, , .
:
- ;
- ( ).
, . , .
:
- 1;
- - 1.
.
.
.
- IBM PC XT/AT ;
- MS DOS v 6.22 Windows 95 OEM;
- 640 .
:
- K16.EXE - ;
- K16.PAS - ;
Zast_uni.tpu ;
CGK_uni.tpu , , , , ;
- Usr.ps ;
- Vopr[1..11].ps 젠 ;
- Vopryn.ps - ;
EGAVGA.BGI - , .
EGAVGA.BGI , EGAVGA.BGI . .
:
; ( );
end;
Backspace - ;
- ;
( - );
- ;
. ( ) ;
, , .
:
, ;
, .. ;
;
- ;
;
( );
( );
, ;
:
- ;
- ;
- VGA , 640 480 16 , (800 600 ) 256 .
1. . ., . . - IBM PC. :- . 1990
2. . IBM MS-DOS. . : . 1992
3. . - IBM PC. . : . 1992
4. . . . . 2001
5. .. , .. , .. , : , . 1994
6. .. , .. : , 2133, 1993
7. .. , .. , .. , .. , 6-10: , , 1998
. 3 1 . 5 2 . 6 3 . 8 4 . 10 4.1 . 10 4.2 . 10 4.3
Copyright (c) 2024 Stud-Baza.ru , , , .