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

UptoLike

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, обязательно предусмотрев в ней табличный ввод исходных
данных и вывод результата в отдельных окнах с различным цветом фона,
расположенных одно под другим. Реализовать различный цвет вводимых
и выводимых данных, звуковой сигнал с изменяющимся тоном по оконча-
нии вводимых данных и завершении работы программы.