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

UptoLike

ВУЗ: 

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

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

Рубрика: 

64
Пример 9.2. Составить программу для определения усилия P
и
, изгибающе-
го оправку с торцовой фрезой под действием составляющих сил резания:
P
и
=
2
z
2
y
PP + , и сохранить результаты расчета на диске А в файле SILA.DAT.
PROGRAM IZGIB;
USES CRT;
VAR PY, PZ, PI: REAL;
F:TEXT;
BEGIN;
CLRSCR;
ASSIGN(F, ’A:\SILA.DAT’);
REWRITE(F);
WRITE(‘ВВЕДИТЕ PY:’);
READLN(PY);
WRITE(‘ВВЕДИТЕ PZ:’);
READLN(PZ);
PI:=SQRT(SQR(PY)+SQR(PZ));
WRITELN(‘РЕЗУЛЬТАТЫ РАСЧЕТА’);
WRITELN(F, ‘РЕЗУЛЬТАТЫ РАСЧЕТА’);
WRITELN;
WRITELN(F);
WRITELN(‘PY=’, PY:4:2, ‘PZ=’, PZ:4:2, ‘PИ=’, PI:4:2 );
WRITELN(F, ‘PY=’, PY:4:2, ‘PZ=’, PZ:4:2, ‘PИ=’, PI:4:2 );
CLOSE(F);
READKEY
END.
Типизированные файлы. При работе с ними наиболее часто применяют
следующие процедуры и функции:
– READ (<F>,<список ввода>) – процедура чтения информации из файла.
То же, что и процедура READ для текстовых файлов, но переменные, в которые
считывается информация, должны быть того же типа, что и компоненты файла.
– SEEK (<F>,<NOM>) – процедура настройки на требуемую компоненту
файла. Осуществляет настройку на
компоненту файла, с которым связана фай-
ловая переменная F. Компонента файла определяется номером NOM, причем
нумерация компонент начинается с нуля.
– TRUNCATE (<F>) – процедура удаления части файла, начиная с текущей
позиции. Удаляет часть файла, начиная с текущей позиции и до его конца.

Страницы