Введение В

Введение В. язык Паскаль М. Наука, 1988 320 с. 2. Абрамов С.А Зима Е.В. Начала программирования на языке Паскаль М. Наука, 1987 112 с. 3. Вирт Н. Алгоритмы и структуры данных. Пер. с англ. М. Мир, 1989 360 с. 4. Грогоно П. Программирование на языке Паскаль М. Мир, 1982 382 с. 5. Дантеманн Дж Мишел Дж Тейлор Д. Программирование в среде Delphi Пер. с англ Киев НИПФ ДиаСофтЛтд 1995 608 с. 6. Епанешников А Епанешников В. Программирование в среде Турбо Паскаль 7.0 М. ДИАЛОГ-МИФИ, 1993 288 с. 7. Йенсен К Вирт Н. Паскаль.

Руководство для пользователя и описание языка Пер. с англ М. Финансы и статистика, 1982 151 с. 8. Матчо Дж Фолкнер Д.Р. Delphi Пер.с англ М. БИНОМ, 1995 464 с. 9. Орлик С.В. Секреты Delphi на примерах - М. БИНОМ 316 с. 10. Перминов О.Н. Программирование на языке Паскаль М. Радио и связь, 1988 224 с. 11. Пильшиков В.Н. Сборник упражнений по языку Паскаль Учеб. пособие для вузов М. Наука, 1989 160 с. 12. Прайс Д. Программирование на языке Паскаль Практ. руководство М. Мир, 1987 232 с. 13. Рубенкинг Н. Турбо Паскаль для Windows В 2 т. Пер. с англ М. Мир, 1993 536 с. 14. Фаронов В.В. Турбо Паскаль.

В 3-х книгах. Книга 1. Основы Турбо Паскаля М. Учеб инж.центр МВТУ-ФЕСТО ДИДАКТИК, 1992 304 с. 15. Фаронов В.В. Паскаль и Windows М. Учеб инж.центр МВТУ-ФЕСТО ДИДАКТИК, 1994 539 с. 16. Фаронов В.В. Практика Windows-программирования.

М. Информпечать, 1996 247 с. 17. Федоров А Рогаткин Д. Borland Pascal в среде Windows Киев Диалектика, 1993 656 с. 18. Форсайт Р. Паскаль для всех Пер. с англ М. Машиностроение, 1986 288 с. Приложение А обязательное N unit func1 interface type float Extended const Infinity 1.0E4932 function Tanx float float function ArcSinx float float function ArcCosx float float function DegreestoRadiansDegrees float float function RadianstoDegreesRadians float float function Sinhx float float function Coshx float float function Tanhx float float function Log10x float float function Powerx, Exponent float float implementation const RadiansPerDegree Pi 180 DegreesPerRadian 180 Pi Ln10 2.3025850930 MaxValue 88.029619 function Tanx float Float var Consine, Tangent float begin Consine Cosx if Cosine 0.0 then if Sinx 0 then Tan Infinity else Tan -Infinity else begin Tangent Sinx Cosine if Tangent Infinity then Tan Infinity else if Tangent -Infinity then Tan -Infinity else Tan Tangent end end function ArcSinx float float begin if Absx 1.0 then ArcSin Pi 2.0 else ArcSin ArcTanx Sqrt1 x x end function ArcCosx float float var Result float begin if x 0.0 then ArcCos Pi 2.0 else begin Result ArcTansqrt1 x x x if x 0.0 then ArcCos Result Pi else ArcCos Result end end function DegreestoRadiansDegrees float float begin DegreestoRadians Degrees RadiansPerDegree end function RadianstoDegreesRadians float float begin RadianstoDegrees Radians DegreesPerRadian end function Sinhx float float var t float begin if x MaxValue then Sinh Ifinity else if x -MaxValue then Sinh -Infinity else begin t Expx Sinh 0.5 t 1 t end end function Coshx float float var t float begin if Absx MaxValue then Cosh Infinity else begin t Expx Cosh 0.5 t 1 t end end function Tanhx float float begin Tanh Sinhx Coshx end function Log10x float float begin Log10 Lnx Ln10 end function Powerx, Exponent float float begin if x 0.0 then Power ExpExponent Lnx else if x 0.0 then Power 0.0 else WriteLn Основание степени отрицательно end begin end.