С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Mur@
0 / 0 / 0
Регистрация: 18.05.2011
Сообщений: 49
1

Модуль Crt....

21.06.2011, 19:14. Просмотров 428. Ответов 1
Метки нет (Все метки)

немогу никак доделать задачку ...


". Создать программу «Электронно - музыкальный инструмент» со световыми эффектами.
Требования к заданию:.
- Отдельным клавишам клавиатуры (например, цифровым) ставится в соответствие определенная частота звука и определенный цвет фона экрана (окна);
- Воспользоваться подпрограммами управления консолью и звуком "



Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Uses Crt;
 
var i:byte;
    ch:char;
    Error:integer;
Begin
     clrscr;
     Repeat
           ch:=readkey;
           If ch in ['0'..'9'] then
           Begin
             val(ch,i,Error);
             sound(500+i*90);
             delay(30000);
             textbackground(i);
             clrscr;
             NoSound;
           End;
     Until ch=#27;
End.
Добавлено через 3 часа 37 минут
Помогите ктонибуть!!Пожалуйста или обьясните как ато никак не пойму!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.06.2011, 19:14
Ответы с готовыми решениями:

Модуль CRT
Ребята, помогите Please:help:: Надо зарисовать фон не используя графический модуль:wall: Я слышал...

Модуль CRT
У меня есть такого вида меню: uses crt; var s,s1,s2,s3,s4:string; x,y:integer; kod:char; begin...

Модуль CRT
Написать программу, которая выводит на экран "пульсирующее" цветное окно, ограниченное рамкой. При...

модуль crt
Написать программу воспроизводящую произвольные 2 мелодии (по 10-20 нот каждая).

Модуль CRT
Здравствуйте! Помогите, пожалуйста. Как написать такую программу на Pascal?

1
Kizer
79 / 79 / 36
Регистрация: 20.11.2009
Сообщений: 326
21.06.2011, 22:26 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt,graphabc;
 
var i:integer;
    ch:string;
    Error:integer;
Begin
     clrscr;
     
     Repeat
     readln(ch);
           If(ch[1] in ['0'..'9']) then
           Begin
             val(ch,i,Error);
             sound(500+i*90);
             delay(300);
             textbackground(i);
             clrscr;
             NoSound;
           End;
     Until ch=#27;
End.
Только в абц паскале процедура sound оставлена исключительно для совместимости, там звуки подругому играются
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.06.2011, 22:26

модуль CRT
не удивляйтесь вопросу, но мне очень нужно узнать ,что-то дополнительно (интересное) о модуле CRT....

Модуль CRT
Задание: 1. Напишите 3 подпрограммы, каждая из которых будет выдавать заданную ей строку в...

Модуль CRT
Здравствуйте! Помогите, пожалуйста, с этой программой! Вот задание: Создать окно и ввести в него...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru