Функция вычисления арктангенса есть. Остальные можно выразить через арктангенс. Пусть х - число которое вводится в приемное поле калькулятора, у - это то, значение, которое мы выводим в поле ответа калькулятора. 1) arcsin if abs(x)<1 then y:=arctan(x/sqrt(1-x*x) else y:=Pi*x;
2) arccos y:=arctan(sqrt(1-x*x)/x); if x<0 then y:=Pi+y;
3) arctg y:=arctan(x);
4) arcctg if x=0 then y:=Pi else y:=arctan(1/x); if x<0 then y:=Pi+y;
5) n! y:=1; for i:=1 to x do y:=y*i;
6) % y:=x/100
Следует при проверке иметь ввиду, что арксинус и арккосинус могут быть только в пределах от -1 до 1. Другие значения вводить нельзя. Или надо добавить проверку на корректность входных данных.
На всякий случай, программа обрабатывающая типизированные файлы.
type RC=record Kol:integer; Dop:integer; Kol5:integer; Kol43:integer; Kol2:integer end; var n:integer; r:RC; f:file of RC; begin Assign(f,'result.dat'); Reset(f); // так делается проход по всему файлу while not Eof(f) do begin read(f,r); Writeln(r.Kol,',',r.Dop,',',R.Kol5,',',r.Kol43,',',r.Kol2); end; // а так впрямую выбирается запись с указанным номером n (нумерация от 0) n:=1; seek(f,n); read(f,r); Writeln(r.Kol,',',r.Dop,',',R.Kol5,',',r.Kol43,',',r.Kol2); n:=FileSize(f); Writeln('Число записей в файле- ',n); Close(f) end.
Объяснение:
форматы ячеек в Excel