Подать звуковой сигнал, если введенное число превышает 100

@kira17 · Регистрация: 10.02.2013

Author24 — интернет-сервис помощи студентам

Напишите программу, которая вводит в цикле целые числа и если число превышает 100, подает звуковой сигнал с помощью пользовательской процедуры Веер. Выход из цикла — 99. Пожалуйста

@Grek! · 14.02.2013, 18:13

Сообщение от kira17

Напишите программу, которая вводит в цикле целые числа и если число превышает 100, подает звуковой сигнал с помощью пользовательской процедуры Веер. Выход из цикла — 99. Пожалуйста

Pascal

USES CRT;
var
I, C:INTEGER;
PROCEDURE BEEP (NOTA, TIME : integer);
BEGIN
SOUND(NOTA);
DELAY(TIME);
NOSOUND;
END;
BEGIN
WRITELN('VVODITE CHISLA (VIHOD 99)');
WHILE C<>99 DO
BEGIN
READLN(C);
IF C>100 THEN BEEP(500,2000);
END;
END.

@Puporev · 14.02.2013, 18:26

Сообщение от kira17

с помощью пользовательской процедуры Веер

А в Турбо Паскале нет такой процедуры...

@kira17 · 14.02.2013, 18:40 **[ТС]**

Спасибо огромное!Все работает)

@Puporev · 14.02.2013, 18:56

kira17, Значит у вас не Турбо Паскаль и нечего лезть в этот раздел.

@Grek! · 14.02.2013, 19:02

Сообщение от Puporev

kira17, Значит у вас не Турбо Паскаль и нечего лезть в этот раздел.

Там же указана что процедура "Beep" пользовательская а не стандартная. То есть создается программистом. А работа со звуком в Турбо Паскале организована через модуль CRT.

@kira17 0 / 0 / 0 Регистрация: 10.02.2013 Сообщений: 9
		1
	Подать звуковой сигнал, если введенное число превышает 100 14.02.2013, 17:48. Показов 2185. Ответов 5 Метки нет (Все метки) Напишите программу, которая вводит в цикле целые числа и если число превышает 100, подает звуковой сигнал с помощью пользовательской процедуры Веер. Выход из цикла — 99. Пожалуйста 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.02.2013, 18:26	3
	Сообщение от kira17 с помощью пользовательской процедуры Веер А в Турбо Паскале нет такой процедуры... 0

@kira17 0 / 0 / 0 Регистрация: 10.02.2013 Сообщений: 9
	14.02.2013, 18:40 [ТС]	4
	Спасибо огромное!Все работает) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.02.2013, 18:56	5
	kira17, Значит у вас не Турбо Паскаль и нечего лезть в этот раздел. 0

@Grek! 64 / 64 / 57 Регистрация: 13.04.2010 Сообщений: 150
	14.02.2013, 19:02	6
	Сообщение от Puporev kira17, Значит у вас не Турбо Паскаль и нечего лезть в этот раздел. Там же указана что процедура "Beep" пользовательская а не стандартная. То есть создается программистом. А работа со звуком в Турбо Паскале организована через модуль CRT. 1

Подать звуковой сигнал, если введенное число превышает 100

Решение