Исходники и листинги ::: Pascal ::: Бумер
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
  program bumer;
  uses crt;
  begin
   repeat
     sound(400);
      delay(64000);
      nosound;
     sound(600);
      delay(64000);
      nosound;
      delay(64000);
     sound(600);
      delay(64000);
      nosound;
     sound(400);
      delay(64000);
      nosound;
      delay(64000);
     sound(700);
      delay(34000);
      nosound;
     sound(600);
      delay(34000);
      nosound;
     sound(700);
      delay(34000);
      nosound;
     sound(600);
      delay(34000);
      nosound;
     sound(700);
      delay(34000);
      nosound;
     sound(600);
      delay(34000);
      nosound;
     sound(700);
      delay(34000);
      nosound;
     sound(600);
      delay(34000);
      nosound;
     sound(700);
      delay(34000);
      nosound;
     sound(800);
      delay(64000);
      nosound;
      delay(2000);
     sound(800);
      delay(64000);
      nosound;
     delay(64000);
     delay(64000);
   until keypressed;
  end.
<<< Предыдущая работа

Вернуться в галерею исходников 		Бумер
Автор: Sanek_xXx
Город: Казань
 Дата: 30.01.2007  10:29
Комментариев: 6
Просмотров: 286
Оценка: 2 (0|0|1|1|0) [1]
Вернуться на главную
Авторский комментарий к работе: Листинг программы, которая пищит бумер.
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
Администратор 1-го ранга (Координатор) Sauron ::: комментарий от 02.04.2007 | 22:36
Sauron Мастер (ур.17)
Очки: 33489
Город: Томск
Тв. работ: 151
Рег: 27.04.2006 (15)
делали такое в школе за 10 минут


--------------------
- Он, видимо, бессмертный... Играл со ртутью... смешно.
delphIN* ::: комментарий от 05.03.2007 | 19:24
delphIN Перспективный (ур.8)
Очки: 1552
Город: Братск
Тв. работ: 10
Рег: 17.01.2007 (2628)
Прикольно!!!
CUPakaBRIK* ::: комментарий от 18.02.2007 | 19:00
CUPakaBRIK Посвященный (ур.10)
Очки: 3683
Город: Белово
Тв. работ: 20
Рег: 20.01.2007 (2865)
Прикольно.


--------------------
Важно быть в строю не последним и не первым...
Аэтерос* ::: комментарий от 01.02.2007 | 12:34
Аэтерос Неофит (ур.7)
Очки: 817
Город: Чита
Тв. работ: 4
Рег: 24.01.2007 (3057)
Ответ для Sanek_xXx 31.01.2007 | 19:43:

Помнится, в учебнике по физике за 9 класс, в главе "звук" есть частоты нот До, Ре, Ми и пр(для Pascal они подходят). Вот только нот бумера я нигде не нашёл.
Sanek_xXx ::: комментарий от 31.01.2007 | 19:43
Sanek_xXx Подмастерье (ур.12)
Очки: 6473
Город: Казань
Тв. работ: 42
Рег: 23.11.2006 (1569)
Ответ для Аэтерос 31.01.2007 | 15:06:

Если честно, то как попалось, хотя пробовал на слух.

Если понимаешь в PASCALе, то подскажи че исправить


--------------------
Никогда не спорьте с дураками, иначе опуститесь до их уровня, где они задавят вас своим опытом...
Аэтерос* ::: комментарий от 31.01.2007 | 15:06
Аэтерос Неофит (ур.7)
Очки: 817
Город: Чита
Тв. работ: 4
Рег: 24.01.2007 (3057)
Sanek_xXx, на слух подобрал или по нотам?