|
|
Другие темы раздела | |
Free Pascal Олимпиадная задача про вирусы. Привет всем)) :) ---------------------------------------------- Есть задача, которую не смог решить, представлена на зональной олимпиаде. Бррр.... про вирусы: --------------------- Итак, имеется матрица, типа клеток N А точнее N<500; А также есть вирусы, массив вирусов M; M<11. За 1 единицу времени заражаются соседние клетки с заражёнными, т.е. те, которые имеют общую сторону уже с... https://www.cyberforum.ru/ free-pascal/ thread48562.html |
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; |
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. Честно, искал, не нашел нормального описания на русском. С английским не очень силен. Да и другим будет полезно знать. https://www.cyberforum.ru/ free-pascal/ thread44906.html |
Как очистить User Screen Free Pascal Как очистить 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 Создать файл, содержащий сведения о телефонах абонентов Создать файл, содержащий сведения о телефонах абонентов. Каждая записаь имеет поля -- фамилия абонента, года установки телефона, номер телефона. По вводимой фамилии абонента выдать номер телефона. Определить количество установленных телефонов с хххх года. Номер года вводится с терминала. https://www.cyberforum.ru/ free-pascal/ thread44720.html |
Готовый модуль для конвертирования текстовых строк из DOS кодировки в Windows и обратно Free Pascal Часто возникает вопрос о конвертирование русских текстов в различных кодировках. Вот написал небольшой модуль для конвертирования текстовых строк из 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 секунды очень срочно надо, пожалуйста кто нибудь помогите https://www.cyberforum.ru/ free-pascal/ thread43294.html |
Ошибка при компиляции Free Pascal Помогите понят что нужно добавить в код, чтоб не было ошибки при компиляции. USES Graph; VAR Device,Mode:Integer; BEGIN WriteLn('text mod'); ReadLn; Device:=0; InitGraph(Device,Mode,''); |
Free Pascal Вычислить выражение по формуле записать последовательность операторов для решения указанной задачи. max^2*(x,y,z)-2^x*min(x,y,z) u=__________________________ sin2+max(x,y,z)/min(x,y,z) Что такое min и max сам толком не знаю, но препод сказал мне что это якобы наибольшее расстояние от точки до точки на координатной оси. Помогите плиз, надо срочно, так как решал сам, надеялся на себя и ничего не вышло( А отчёт... https://www.cyberforum.ru/ free-pascal/ thread42634.html |
3071 / 1409 / 425
Регистрация: 19.01.2009
Сообщений: 3,880
|
|
31.08.2009, 11:23 | 0 |
Рекурсия, определение правильности ввода числа. - Free Pascal - Ответ 25430731.08.2009, 11:23. Показов 3027. Ответов 22
Метки (Все метки)
Ответ
Полностью согласен. Копмиляторы паскаля, придерживающиеся стандарта, просто-напросто неоткомпилят данный код.
Вернуться к обсуждению: Рекурсия, определение правильности ввода числа. Free Pascal
0
|
31.08.2009, 11:23 | |
Готовые ответы и решения:
22
Определение правильности ввода даты Проверка правильности ввода числа Проверка правильности ввода числа Проверка правильности ввода числа |
31.08.2009, 11:23 | |
31.08.2009, 11:23 | |
Помогаю со студенческими работами здесь
0
Проверка правильности ввода числа Проверка правильности ввода числа Поток: проверка правильности ввода числа Как сделать проверку правильности ввода числа |