Решение задач машиностроения средствами Turbo Pascal. Крупенников О.Г - 75 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

74
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
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.

Страницы