Thread View: cn.bbs.comp.program
1 messages
1 total messages
Started by ���ܵ�Сʨ
Sat, 18 Apr 1998 00:00
�����ǵĵ��Է���
Author: ���ܵ�Сʨ
Date: Sat, 18 Apr 1998 00:00
Date: Sat, 18 Apr 1998 00:00
179 lines
11091 bytes
11091 bytes
���һ������ѧ�ⶨ���ƵĽ��,����������Ե���Ϣ���
�����۾�,��������Զ��,��ֻ�к���һ���������˵�����й١���
�˿ɼ�,����������ķ�չ���źε���Ҫ�����á��ر��ǽ���,��ý
�弼����չѸ��,�ܹ�����������ͼ��Ķ�ý�����Ҳ��ʼ�����˼�
ͥ���ܹ�ӵ��һ̨��ý�������ÿ���������ߵ���Ը,����,Ŀǰ,
һ��ĵ�λ�������������õ��Զ�û�����ý�ѹ������ȴ���ͼ
��������Ӳ���豸�������еĵ��Զ���һ��С����,������������
�������������������ѧϰ�����,ͨ��һ���ļ���������ʹ������
������������,��ô,�϶���ȡ�����벻��������Ч��
������Ƶ�ʵĶ�Ӧ��ϵ
����֪��:���ֻ���������12���������,��������֮�������
��,������C��#C��D��#D��E��F��#F��G��#G��A��#A��B����12������
���һ������,�˶����������Ƶ�ʿ���7 �������������ɡ���n
��ʾ�����,��һ����,n=1,2,...12;ֱ����������,n=78,79...84��
������Ƶ��f(��λΪ����)�������n֮�������¹�ϵ:
f=61.73541��1.0594631n
����,n��[1,84],f��[65,7902]��
��n=25��27��29��30��32��34��36��37ʱ����������ʽ�������
����������Ƶ��,���1��ʾ�����õĸ����Զ���ʹ�������������
����,��������: ��1 ������Ƶ��
TURBO PROLOG����
TURBO PROLOG�����ṩ��������ν��:beep��sound������,beep
ֻ�ܲ���ĸ���,s oundν�ʵĹ��ܱ�beepν�ʹ��ܸ�ǿ����
�ø�ν�ʿ��Բ������������Χ�ڵ����������soundν�ʵ��Ϊ:
sound(Duration,Frequency)��
����,����Duration���ٷ�֮һ���ʾ��ʱ������,������ʱ��
,����Frequency�Ƿ��������Ƶ��,��λΪ����,����������ȡֵ��Ϊ
�����ڳ�����,������ɸ���ͬ�������ں�Ƶ�ʵ�soundν��,���
���õ��Ե�����������������ɡ�
����,����beep��soundν�ʿ��Ա�д����һ����ʾ����
/* ����:sound.pro */
/* ��;:������������ */
predicates
two_beep
make_sound
goal
two_beep,
make_sound.
clauses
two_beep:-
beep,
beep.
make_sound:-
/* ��������Ϊ1���B�� */
sound(100,494),
/* �������Ϊ1���G�� */
sound(100,392)��
QUICK BASIC����
QUICK BASIC�����ṩ����������䡣beep���ֻ��ʹ��������
��������,��sou nd����ܷ���ָ��Ƶ�ʺ�ʱ�䳤�ȵ�������s
ound�����Ϊ:SOUND frequency,duratio n������,����frequen
cy�ĵ�λΪ����,��仯��ΧΪ37-32767;����duration��ʾ������Χ
Ϊ0-65535��ʱ�ӵ�λ(1/18.2��)��
����,�����Dz���ʱ�䳤��ԼΪ1��,Ƶ��Ϊ262���ȵ�����,����
�������������������BASIC���Գ���:
sound 262,18
beep
TURBO PASCAL����
TURBO PASCAL�����ṩ�����̡����sound���Ϊ:sound(fr
equency),����freque ncy��ʾ���ֵ�Ƶ��,��λ�Ǻ��ȡ����delay
���Ϊ:delay(duration),����duration���Ժ���Ϊ��λ��ʾ����
ʱʱ�䡣���nosound�����ر���������һ��������������:
program music;
uses Crt;
begin
Sound(200);
Delay(200);
NoSound;
end.
�����Ǹ����ҵ��й��ġ��е�һ�θ���,��������: ���� ����
���й��ġ�
�����Ƕ�Ӧ��TURBO PASCAL���Գ�������,������Ƶ�ʿ��Բ�
��ǰ���1,����Ϊ����������Ƶ��,����δ�г�����Ƶ�ʿ���������
��ʽ������������6��Ƶ�ʾ��ǽ�n=22���빫ʽ����õ�fֵΪ22
0��
{�ҵ��й���}
{˵��:��������һ�����Ϊ������}
program example;
uses crt;
procedure make-sound(frequency:integer;duration:real);
degin
sound(frequency);
delay(trunc(1000*duration))
end;
{ִ�в���}
begin
{��һ������ΪƵ��,��λ:����;�ڶ�������Ϊ���ij���,��λ:��
}
make_sound(220,6);make_sound(330,2);make_sound(294,2)
;
make_sound(330,2);make_sound(262,2);make_sound(246,2)
;
make_sound(220,12);
make_sound(330,2);make_sound(440,4);make_sound(392,2)
; make_sound(330,2)
make_sound(294,2);make_sound(262,2);make_sound(294,2)
;
make_sound(330,12);make_sound(330,2);make_sound(392,2
);
make_sound(440,6);make_sound(494,2);make_sound(440,2)
;
make_sound(392,2);make_sound(330,2);make_sound(294,2)
;
make_sound(262,2);make_sound(262,4);make_sound(294,2)
;make_sound(330,8)
make_sound(294,6);make_sound(330,2);make_sound(246,2)
;
make_sound(220,2);make_sound(195,4);
make_sound(440,12);
nosound
end.
{�������}
TURBO C����
TURBO C�����ṩ�����������sound(frequency),����freque
ncy��λΪ���ȡ�dela y(duration),����duration��λΪ���롣���
��ر�������,��������nosound����,���Ϊ:nosound(),�ú���û
�в���������һ������Ƶ��Ϊ512����,����ʱ��Ϊ1���ӵ�������
���ӡ�
main()
{
sound(512);
delay(1000);
nosound();
}
FoxPro��ݿ�����
FoxPro�����ṩ�����������SET BELL ON|OFF��SET BELL TO
������,SET BELL ON| OFF���������������ֶ�ĩβ��������
�˲��Ϸ������ʱ,��������������Ƿ��졣ȱʡ״̬ΪON��SET BEL
L TO [<frequency>,<duration>]�IJ���ֱ�ΪƵ�ʺͳ���ʱ�䡣Ƶ
�ʵĵ�λΪ����,��ÿһ����λ����ʱ���൱��0.549�롣Ƶ�ʵķ�Χ
��1-10000,����ʱ��ķ�Χ��1-19,ȱʡΪ512�����ҳ���ʱ��Ϊ2��
��λ,��0.549��2=1.098�롣
ֵ��ע�����ֻ�е�SET BELL����ΪONʱ,SET BELL TO����ָ��
��Ƶ�ʺͳ���ʱ��ֵ�������á�
�ڳ������ʱ,�����������������,����,���ÿ���ʱ,��������
�����,������ʾ,��Ȼ�ܹ����ӳ����Ȥζ��,���û�����,�������
��Ҳ�����Ƶġ�
�������
������Լ��л������Ժ����Ե�һЩ��Ҫ�ŵ�,��������
������ʮ�����á����ڴ��¼�������������������˵,���ջ����
�Գ���������ɽ�ʹ������߲�ij�����ƾ��硣
ʹ��DOS��BIOS�ṩ�Ĺ��ܷḻ�ĵ�����ں��ӳ���,�����ó���
��ɸ��ӵIJ�����
�����������DEBUG��д����Ϊsound.com���ļ��IJ������衣��
������ʹ��������������sound.com�ļ��ǿ�ִ���ļ�,�ڳ�����
��ʱ,���Խ���Ƕ���Լ��ij�����,�������Ѳ�����ע��ȡ�
c:\>debug
-n beep.com
-a
195F:0100 mov d1,07
195F:0102 mov ah,02
195F:0104 int 21
195F:0106 int 20
195F:0108
-r cx
CX 0000
:8
-w
Writing 00008 bytes
-q
������
��֮,�����������ij��Ϻܶ�,����:����Ҫ�������Ѳ�����ע��,
���Է���������ʾ������Ϸ�����г�������һЩ����Ч��,�������
Ϸ��Ȥζ�ԡ������װ���ͨ����Ҫ�ϳ���һ��ʱ��,�û�����ò�
�ͷ��ͷ���,�������������ܹ��������װ����в岥һ��������
��������,�����ɻ������û������������֮��ľ��롣��ʹ��һ��
�ij���,Ҳ���Բ���һ������,�Խ��ȴ��еķ��ա�ϣ����ĵ���
�������ܹ��ڴ����������ݵĻ��Ͽ������Լ������ֳ���
--
[m[1;37m�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn][m
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads