РАДИОСВЯЗЬ
[}
{0001}
{0002}
{0003}
{0004}
{0005}
{0006}
{0007}
{0008}
{0009}
{0010}
{0011}
{0012}
{0013}
{0014}
{0015}
{0016}
{0017}
{0018}
{0019}
{0020}
{0021}
{0022}
{0023}
{0024}
{0025}
{0026}
{0027}
{0028}
{0029}
{0030}
{0031}
{0032}
{0033}
{0034}
{0035}
{0036}
{0037}
{0038}
{0039}
{0040}
{0041}
{0042}
{0043}
{0044}
{0045}
{0046}
{0047}
{0048}
{0049}
{0050}
{0051}
{0052}
{0053}
{0054}
{0055}
{0056}
{0057}
{0058}
{0059}
{0060}
{0061}
{0062}
П р о гр а м м а
PROGRAM P I;
USES CRT;
VAR
TEMPSOUND:INTEGER;
X : ARRAY[1 .
.2 ]
OF EXTENDED;
XX:EXTENDED;
XXX:INTEGER;
CHI:CHAR;
PROCEDURE INTREAD (PROMPT:STRING;VAR RESULT:INTEGER);
VAR
ERRORCODE: INTEGER;
INPUTSTRING: STRING;
BEGIN
REPEAT
WRITE(PROMPT);
READLN(INPUTSTRING);
VAL( INPUTSTRING, RESULT, ERRORCODE) ;
IF ERRORCODE=0 THEN BEGIN
EXIT;
END;
TEXTCOLOR(1 3 );
WRITELN( 'ERROR ! ! !
:
INPUT DATA MUST BE INTEGER NUMBER
UNTIL FALSE;
END;
BEGIN
CLRSCR;
TEXTCOLOR(1 0 );
WRITELN ( '------------------------------------
-------------------------------------------------
WRITELN('UT5UDiT*PROGRAMM :
P I. EXE');
WRITELN ('THIS PROGRAMM REALIZE IN PASCAL 7.0');
WRITELN('AND PROVIDE SOUND*REALIZATION') ;
WRITELN('OF FOLLOWING CHAOTICAL EQUATION : ') ;
TEXTCOLOR(1 1 );
W R I T E L N ( ' X ( N + l ) =
3
.
58
* X ( N ) * [ l - X ( N ) ] ' ) ;
TEXTCOLOR(1 0 );
WRITELN ('THIS PROGRAMM WAS WRITTEN');
WRITELN ('7 DECEMBER 2005');
TEXTCOLOR(1 1 );
* *
’ V
г
1; <*
,5
1
' V
« s i
*
• •; i c-
• f ' n
i
v M
-
: i
‘ - 4 -
■A*
.
‘i b '
~
, •!;
i f-rgi -1
-
i p f i * ' * : m b s * -
V:
щ
ш
.
I ■
п*, 4 ' i
r
. ft.
1
<.
*
1 •*»<*. Ci ,
Г ; : .
V -
L -
y - ‘4 -
i
. ■■
Л- v ?
Г ^ '5 £72*5
o r
* -r wr. Я.
*
»
**
i* x 1
*• S
'
* *
**
* -г *»
V * Г
' j b
’ f
e
4. - •> ^ ^
J
• •
/ )
i
л к
v.
“ .
1 }} I t *
-'ll
'
P llp :
.
••
>
и
WRITELN ('TO EXIT PRESS ANY LITERAL KEY');
TEXTCOLOR(10)
;
Л .
TEXTCOLOR(1 1 );
; i s
»
, У
WRITELN ('INPUT DELAY OF SOUND / 1000
__
10000 /') ;
. r? i : •
j
В
INTREAD ('>>>',
TEMPSOUND);
П / ,
TEXTCOLOR (10),;
/ >
*;•
и; St'
WRITELN ( '-------------------- -------------------------------------------------------------------
* ч
T E X T C O L O R (
12
) ;
W R I T E L N ( 'T O R U N PRO GR AM M P R E S S A N Y L I T E R A L K E Y " ) ;
C H I : = R E A D K E Y ;
T E X T C O L O R (
10
) ;
W R I T E L N ( ' ------------------------------------------------------------------------------------------------------ ---------------------------
X [ l ] :=
0
.
77
;
R E P E A T
X [
2
] : =
3
.
58
* X [
1
] * (
1
- X [
1
] ) ;
X X :=
1000
* X [
2
] ;
X X X : = R O U N D ( X X ) ;
SO U N D
( X X X ;
D E L A Y ( T E M P S O U N D ) ;
N O S O U N D ;
X [ 1] : =X[2 ] ;
U N T I L K E Y P R E S S E D ;
E N D .
Jx-
**
.
r'.
^
•_:»
Jr* $
* v 3
; >■
^ 5 fV$
'
4
,
*4
, V
: <; • 5f
'4
1 f J
| Радиолюбитель - 01 /2 0 0 8
предыдущая страница 48 Радиолюбитель 2008-01 читать онлайн следующая страница 50 Радиолюбитель 2008-01 читать онлайн Домой Выключить/включить текст