ВУЗ:
Составители:
Рубрика:
97
GOTOXY (2,Y);
WRITE (‘Введите размер ’,I,’–й детали в мм:’);
READ (R);
SUM:= SUM+R;
Y:= Y+1;
END;
SR:= SUM/N;
WINDOW (42,2,80,14);
TEXTBACKGROUND (15);
TEXTCOLOR (4);
WRITELN (‘РЕЗУЛЬТАТ РАСЧЕТА’);
WRITELN;
TEXTCOLOR (1);
WRITELN (‘Средний арифметический размер’);
WRITE (‘ деталей в партии равен ’,SR:4:3,’ мм.’);
SOUND (600);{задание частоты звукового сигнала}
DELAY (1000);{задержка исполнения процедуры NOSOUND}
NOSOUND; {отмена звука}
READKEY {приостановка исполнения программы}
END.
11.2. Задания к практическому занятию
Составить программу в соответствии с заданием к практическому за-
нятию №7, обязательно предусмотрев в ней табличный ввод исходных
данных и вывод результата в отдельных окнах с различным цветом фона,
расположенных одно под другим. Реализовать различный цвет вводимых
и выводимых данных, звуковой сигнал с изменяющимся тоном по оконча-
нии вводимых данных и завершении работы программы.
Страницы
- « первая
- ‹ предыдущая
- …
- 96
- 97
- 98
- 99
- 100
- …
- следующая ›
- последняя »
