Сборник заданий для практических занятий по информатике. Крупенников О.Г - 97 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

96
10. Процедура NOSOUND – выключает динамик после активизации
процедуры SOUND.
Пример 11.1. Усовершенствовать программу из примера 4.2, реали-
зовав ввод исходных данных и вывод результата в отдельных окнах с
различным цветом фона, расположенных одно за другим. Предусмотреть
различный цвет вводимых и выводимых данных, звуковой сигнал по за-
вершению работы программы.
PROGRAM SRED_RAZM_M;
USES CRT;
VAR I, N: INTEGER;
Y: BYTE;
SUM,SR,R: REAL;
BEGIN
CLRSCR;{очистка экрана}
TEXTBACKGROUND (0);{установка цвета фона полно-
го экрана}
WINDOW (2,2,40,14);{создание окна}
TEXTBACKGROUND (1);{создание цвета фона окна}
TEXTCOLOR (4);{задание цвета текста}
GOTOXY (7,2);{задание положения курсора}
WRITE (‘ИСХОДНЫЕ ДАННЫЕ’);
TEXTCOLOR (15);
GOTOXY (2,4);
WRITE (‘Введите количество деталей’);
GOTOXY (2,5);
WRITE (‘в партии:’);
READ (N);
SUM:= 0;Y:= 7;
FOR I:=1 TO N DO
BEGIN

Страницы