|
|
Другие темы раздела | |
Free Pascal Рекурсия, определение правильности ввода числа.
https://www.cyberforum.ru/ free-pascal/ thread48885.html помогите составить программу пожалуйсто....надо определить является ли заданая строка правильной записью числа (возможно со знаком)...число надо вводить посимвольно ...надо чтобы была рекурсивная функция вот мои наброски... uses crt; var s:string; code:integer; w:real; begin writeln('Vvedite 4islo'); |
Free Pascal Олимпиадная задача про вирусы. Привет всем)) :) ---------------------------------------------- Есть задача, которую не смог решить, представлена на зональной олимпиаде. Бррр.... про вирусы: --------------------- Итак, имеется матрица, типа клеток N А точнее N<500; А также есть вирусы, массив вирусов M; M<11. За 1 единицу времени заражаются соседние клетки с заражёнными, т.е. те, которые имеют общую сторону уже с... |
Free Pascal Не выполняется функция Program Password_man; uses crt; type mas=array of integer; var i,nfact:integer ; Mas4islFact:mas; MasBukvFact:mas; MasPassFact:mas; RandMasFact:mas; cx:mas; https://www.cyberforum.ru/ free-pascal/ thread45864.html | Free Pascal Вызов процедуры строкой Корявое название,блин. В чем проблема-помню во время учебы препод показал как например строку "Procedure1" преобразовать и вызвать ее(если она описана и существует). т.е. код был примерно такой ... procedure Proc1; begin ... end. var str1:string; begin str1:='Proc1'; https://www.cyberforum.ru/ free-pascal/ thread44932.html |
Free Pascal Оптимизировать конечный файл (exe) Народ, расскажите пожалуйста про параметры компиляции fp. Интересует как можно оптимизировать конечный файл (exe). Вот пример ну очень ерундовой программки: uses sysutils; begin writeLn(GetUserDir); end. И весит это чудо 100Кб... Понятно что все из-за модуля sysutils. Честно, искал, не нашел нормального описания на русском. С английским не очень силен. Да и другим будет полезно знать. |
Free Pascal Как очистить User Screen
https://www.cyberforum.ru/ free-pascal/ thread44895.html Как очистить User Screen(отображение результатов программы) на Free Pascal? |
Free Pascal Не запускается EXEшник
https://www.cyberforum.ru/ free-pascal/ thread44863.html Написал программу, запустил её в компиляторе, проверил, сохранил с расширением .exe. Сохранённый файл запускаю, на доли секунд вылетает окно и пропадает. Да, и еще, если в заголовка программы написано: program name;, то при запуске программы (.exe) вылетает сообщение: C:\1.EXE Процессор NTVDM обнаружил недопустимую инструкцию. CS:0f57 IP:e7e7 OP:63 b7 14 00 00... |
Free Pascal Создать файл, содержащий сведения о телефонах абонентов Создать файл, содержащий сведения о телефонах абонентов. Каждая записаь имеет поля -- фамилия абонента, года установки телефона, номер телефона. По вводимой фамилии абонента выдать номер телефона. Определить количество установленных телефонов с хххх года. Номер года вводится с терминала. |
Free Pascal Готовый модуль для конвертирования текстовых строк из DOS кодировки в Windows и обратно
https://www.cyberforum.ru/ free-pascal/ thread44241.html Часто возникает вопрос о конвертирование русских текстов в различных кодировках. Вот написал небольшой модуль для конвертирования текстовых строк из DOS кодировки в Windows и обратно. unit RUSCP; INTERFACE function WIN1251toOEM866(s : string) : string; function OEM866toWIN1251(s : string) : string; IMPLEMENTATION |
Free Pascal Runtime error 105 at 0001:0032 Начал изучять Турбо Паскаль,столкнулся с такой проблемой:написал прогу,откомпилировал,хочю прогнать ее и видает ошибку 'Runtime error 105 at 0001:0032'.Работаю на Turbo Pascal for windows 7.1,ОС WINXP SP/3.Спасиба за ответи! https://www.cyberforum.ru/ free-pascal/ thread43434.html |
Free Pascal Изобразить траекторию движения В случайных точках местности расположены несколько столбов, некоторые из них соединены заборами. Пьяница с равной вероятностью делает шаг вперёд, назад, вперёд-влево и вперёд-вправо (под 45 градусов), натолкнувшись на столб или забор, он падает (на время). Изобразить траекторию движения. Добавлено через 7 минут 32 секунды очень срочно надо, пожалуйста кто нибудь помогите |
Free Pascal Ошибка при компиляции
https://www.cyberforum.ru/ free-pascal/ thread42873.html Помогите понят что нужно добавить в код, чтоб не было ошибки при компиляции. USES Graph; VAR Device,Mode:Integer; BEGIN WriteLn('text mod'); ReadLn; Device:=0; InitGraph(Device,Mode,''); |
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
|
|
22.09.2009, 21:20 | 0 |
Вычесление тангенса - Free Pascal - Ответ 27660722.09.2009, 21:20. Показов 7511. Ответов 6
Метки (Все метки)
Ответ
Нет не проще. Нужно предусмотреть случай когда cosx=0 и вывести об этом сообщение, что в функции не очень удобно.
Вернуться к обсуждению: Вычесление тангенса Free Pascal
0
|
22.09.2009, 21:20 | |
Готовые ответы и решения:
6
Задано значение тангенса угла бета (B) tgB Матрица,файл с её элементами,Вычесление чётных чисел. Вывод матрицы и результата. Вычесление чисел вычесление суммы |
22.09.2009, 21:20 | |
22.09.2009, 21:20 | |
Помогаю со студенческими работами здесь
0
Вычесление матриц Вычесление вырожения. Вычесление функции Вычесление велечены S по формуле Вычесление значений с шагом Вычесление сумм и произведений |