|
|
Другие темы раздела | |
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'; |
Free Pascal Оптимизировать конечный файл (exe) Народ, расскажите пожалуйста про параметры компиляции fp. Интересует как можно оптимизировать конечный файл (exe). Вот пример ну очень ерундовой программки: uses sysutils; begin writeLn(GetUserDir); end. И весит это чудо 100Кб... Понятно что все из-за модуля sysutils. Честно, искал, не нашел нормального описания на русском. С английским не очень силен. Да и другим будет полезно знать. https://www.cyberforum.ru/ free-pascal/ thread44906.html |
Free Pascal Как очистить User Screen
https://www.cyberforum.ru/ free-pascal/ thread44895.html Как очистить User Screen(отображение результатов программы) на Free Pascal? |
Не запускается EXEшник Free Pascal Написал программу, запустил её в компиляторе, проверил, сохранил с расширением .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 |
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.Спасиба за ответи! |
Free Pascal Изобразить траекторию движения В случайных точках местности расположены несколько столбов, некоторые из них соединены заборами. Пьяница с равной вероятностью делает шаг вперёд, назад, вперёд-влево и вперёд-вправо (под 45 градусов), натолкнувшись на столб или забор, он падает (на время). Изобразить траекторию движения. Добавлено через 7 минут 32 секунды очень срочно надо, пожалуйста кто нибудь помогите https://www.cyberforum.ru/ free-pascal/ thread43294.html |
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,''); |
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 сам толком не знаю, но препод сказал мне что это якобы наибольшее расстояние от точки до точки на координатной оси. Помогите плиз, надо срочно, так как решал сам, надеялся на себя и ничего не вышло( А отчёт... |
Free Pascal Функции
https://www.cyberforum.ru/ free-pascal/ thread42493.html program uzd; uses crt; var d:string; s:string; begin write('Ievadiet datumu: '); read(d); s:=copy(d,4,2); case s of 1:='janvaris'; 2:='februaris'; |
27.08.2009, 19:34 | 0 |
Олимпиадная задача про вирусы. - Free Pascal - Ответ 25144727.08.2009, 19:34. Показов 11815. Ответов 47
Метки (Все метки)
Ответ
И в чём конкретно возникла сложность?
Кстати, что такое "зональная олимпиада"? Потому как задача выглядит чуть ли не школьной Вернуться к обсуждению: Олимпиадная задача про вирусы. Free Pascal
0
|
27.08.2009, 19:34 | |
Готовые ответы и решения:
47
Олимпиадная задача про орехи Олимпиадная задача про конфеты Олимпиадная задача Олимпиадная задача |
27.08.2009, 19:34 | |
27.08.2009, 19:34 | |
Помогаю со студенческими работами здесь
0
Олимпиадная задача Часы (олимпиадная задача) Олимпиадная задача Приключение Олимпиадная задача Pascal |