ШИФP 410300 ЗC5^
ОЗУ 32^
EEB1A3
*NAME TECT
*CALL FICMEMОRУ
*LIBRARУ:13
*NО LIST
*PASCAL
PRОGRAM TEST(ОUTPUT);
CОNST
XLINES = 16;
SCALE = 32;
ZERОУ = 34;
XLIMIT = 32;
VAR
DELTA: REAL;
TWОPI: REAL;
X, У : REAL;
PОINT: INTEGER;
УPОSITIОN: INTEGER;
BEGIN
DELTA := 1 / XLINES;
TWОPI := 8 * ARCTAN(1.0);
FОR PОINT := 0 TО XLIMIT DО
BEGIN
X := DELTA * PОINT;
У := EXP(-X) * SIN(TWОPI * X);
УPОSITIОN := RОUND(SCALE * У) + ZERОУ;
REPEAT
WRITE (ОUTPUT, ' '); УPОSITIОN:= УPОSITIОN - 1
UNTIL УPОSITIОN = 0;
WRITELN(ОUTPUT, '*')
END
END.
*EXECUTE
*END FILE
================================================================================
M О H И T О P-8 0 (3.7) 25.09.84* ( MC " Д У Б H A " ИAЭ )
ЖЖЖЖЖ ЖЖЖЖ ЖЖЖ Ж Ж Ж Ж Ж
Ж Ж Ж Ж Ж ЖЖЖЖЖ Ж Ж Ж Ж
Ж Ж Ж Ж Ж Ж Ж Ж Ж Ж ЖЖ
Ж Ж Ж Ж Ж Ж Ж Ж Ж ЖЖ Ж Ж
Ж ЖЖЖЖ Ж Ж ЖЖЖЖЖ Ж Ж Ж Ж Ж
Ж Ж ЖЖЖЖЖ Ж ЖЖ Ж Ж Ж
Ж Ж Ж Ж Ж Ж Ж Ж Ж
*NAME ГPAФИK
*CALL FICMEMОRУ
*LIBRARУ:13
*NО LIST
*PASCAL
*EXECUTE
ОT 18.01.79 ===========================
ПОДПPОГPAMMЫ ИЗ БИБЛИОTEKИ 13 11.04.82 M3
P/CО P/IT P/SC P/1 P/EF P/W
P/WXD PASISОXT P/SP P/PF P/BEXF P/D
P/EDIH P/WI P/TF P/MD P/DI P/P
PASDIH PASNB8 PULT P/HT P/E P/R
P/WО P/WR P/TR P/A7 P/7AD P/T
P/EN P/ER
ОT 18.01.79 ===========================
TEST 01000 PASОUT 02447 P/PAGES 03664
PRОGRAM E 01000 P/PRINT E 02450 PASPAGN* C 03665
P/1D C 01104 PASTN E 02506 PASDRN* C 03666
*ОUTPUT* C 01162 PASWHT E 02522 PASDRUM* C 03667
P/SУS 01220 P/HT 02563 P/STACK C 03670
P/MОD E 01234 PASZERО* C 02575 P/HIDE 03671
P/DIV E 01240 P/WX 02576 P/EDIH E 03674
P/IT E 01252 P/WXD E 02605 PASPERID C 03677
P/CО E 01254 PASEОF 02623 PASPLUS* C 03700
P/RE1 E 01262 IОXXPKRT 02642 P/TR 03701
P/RE2 E 01424 READ* E 02644 P/A7 03704
PASCTRP E 01457 PASCELUP C 02676 PASHID 03712
P/GF E 01532 P/ER 02677 PASDIH E 03715
P/RACPAK E 01571 PASMINS* C 02706 MОN*ITОR 03721
PASINBUF E 01641 P/TRPAGE 02707 PLBEG E 03730
PASGIVEP E 01676 P/BX 02741 PLCLО E 03736
P/PF E 01757 P/EN E 02753 ASAVE* E 03744
P/WОLN E 02010 P/WО 02767 SAVE*HID E 03751
P/WL E 02011 P/WR 03020 FОR*ALL E 03766
P/RF E 02063 PASTENS E 03206 ОH* E 03770
P/TF E 02146 P/WI 03232 ОH*1 E 03775
P/SC 02201 P/7A 03313 ISО/GОST 04004
P/CW 02211 P/7AD E 03315 CLEARLEX 04053
P/EF 02213 PASEXFT* C 03330 DRUMTAP* 04065
P/E E 02216 *PASDDS* C 03347 CОSУTISО 04113
P/1 02221 RGEXPОRT C 03350 CОZУTISО E 04113
PASPMD 02225 *PASTEL* C 03351 IОXXTTWT 04167
P/PMDSET E 02260 PASEVN 03402 TTPRINTD E 04173
PASENDS* C 02366 PASNB8 03423 TTPRINT E 04173
PASEОLSУ C 02367 PRINT8 03433 TTPRIKS E 04205
PASEОFCD C 02370 PRINT80 E 03433 /IP* E 04253
P/BEXF 02371 PULT 03471 P/FIRP C 06000
P/DA 02376 P/RC 03477 CHKWОRD* C 10000
P/MD 02411 PASISОXT 03523 TSTATE* C 10001
P/DI 02420 P/SP 03555 CBОБОД 10002
PASPMDAD C 02424 MОNREAD* 03563
STОP* 02425 READ*ERR E 03640
SPACE* C 02446 LUN*MОN 03656
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
ЗTPAK =015 ИTPAK =046
00171 - KОHEЦ БУФEPA
================================================================================
Изменим некоторые параметры:
XLINES = 32; SCALE = 64; ZERОУ = 68; XLIMIT = 64;
===========
DELTA := 2 / XLINES;
TWОPI := 4 * ARCTAN(2.0);
================================================================================
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*