Найдено 13 результатов

СерП
20.05.2011 18:25:51
Форум: Обучение Free Pascal
Тема: Спасите кто-нибудь от циклов и массивов
Ответы: 46
Просмотры: 48674

Re: Спасите кто-нибудь от циклов и массивов

Может быть, я очень строго подхожу к этому вопросу, но не вижу для себя возможности определённо судить о человеке по косвенным данным. А не только несказанное "спасибо", но и невыложенный код считаю косвенными.
И потом, ещё раз предлагаю взглянуть на ситуацию с другой стороны. Я как правило в таких ...
СерП
20.05.2011 00:13:09
Форум: Обучение Free Pascal
Тема: Спасите кто-нибудь от циклов и массивов
Ответы: 46
Просмотры: 48674

Re: Спасите кто-нибудь от циклов и массивов

Vadim ,
Вопрос не в том, впервые или не впервые, а в том, почему так произошло. Вы полагаете, что знаете истину, и уверенно говорите, что человек весь семестр пил пиво и скакал по найтклабам. Для меня это только одна из гипотез. Я могу попытаться оценить её вероятность, но оценка вероятности это не ...
СерП
18.05.2011 21:36:26
Форум: Обучение Free Pascal
Тема: Спасите кто-нибудь от циклов и массивов
Ответы: 46
Просмотры: 48674

Re: Спасите кто-нибудь от циклов и массивов

Критику понимаю, но принимаю только частично.

Есть люди, нуждающиеся настолько, что просят милостыню. Кто-то из не нуждающихся смекает, что это лёгкий заработок, и прикидывается нищим. В отношении "подавать - не подавать" есть две чистые стратегии: подавать всегда, исходя из того, что лучше ...
СерП
18.05.2011 03:55:06
Форум: Обучение Free Pascal
Тема: Спасите кто-нибудь от циклов и массивов
Ответы: 46
Просмотры: 48674

Re: Спасите кто-нибудь от циклов и массивов

А в первую что-нибудь решить удалось? Если да, то какой же простоты были задачки?

1. Если "по-детски", то примерно так:
program power1;

var
A, Res: Double;
N: Word;
i: Integer;

begin
writeln ('Программа возведения вещественного числа в степень с натуральным показателем');
write ...
СерП
01.03.2011 03:18:51
Форум: Потрепаться
Тема: реализовать вычисление бесконечности
Ответы: 6
Просмотры: 7922

Re: реализовать вычисление бесконечности

Занятное сообщение. Начало мощное: предлагается реализовать вычисление бесконечности. Потом оказывается, что речь идёт о вычислении синуса через сумму степенного ряда. Далее даётся программа (вводимая не совсем понятной фразой), но вычисляющая не синус, а только факториал. Факториал она, видимо ...
СерП
27.02.2011 19:16:04
Форум: Lazarus
Тема: оставление первого слова
Ответы: 13
Просмотры: 7797

Re: оставление первого слова

Немного попридираюсь к последнему предложенному коду. Видимо, имелось в виду что-то вроде:

Код: Выделить всё

s_in:='HG_ALERT1 hgrunt/alert1.wav';
s_out:=s_in;
Delete (s_out,10,Length(s_out));

Это если пробел не нужен.
Или:

Код: Выделить всё

s_in:='HG_ALERT1 hgrunt/alert1.wav';
s_out:=Copy(s_in,1,9);
СерП
21.12.2010 03:58:35
Форум: Разработки на нашем сайте
Тема: Прикручивание русского языка к FP в линуксе
Ответы: 234
Просмотры: 426788

Re: Прикручивание русского языка к FP в линуксе

Если у вас в системе кодировка UTF-8, то русские буквы в переменную типа char не поместятся: она занимает один байт, а русские буквы в UTF-8 два. Это уже не char, это уже string. Если исходный код также в кодировке UTF-8, то компилятор должен ругаться на конструкцию case: русские буквы фактически ...
СерП
16.12.2010 18:36:47
Форум: Потрепаться
Тема: В русском языке нет слова «пробЫвать»!!!
Ответы: 105
Просмотры: 97847

Re: В русском языке нет слова «пробЫвать»!!!

В русском языке нет слова «пробЫвать»!!!

Да, действительно. Лично я обязуюсь следить впредь за правильным употреблением.

Увы, но пока у нас есть министр Фурсенка, уверенным в сабже быть нельзя. Кофе тоже был он, ан на тебе.
У меня на последнем месте работы была традиция совместного чае- и ...
СерП
05.12.2010 11:35:47
Форум: Free Pascal Compiler
Тема: Казалось бы, близнецы...
Ответы: 13
Просмотры: 8257

Re: Казалось бы, близнецы...

Можно еще предположить, что где-то на машине есть еще один модуль u8base, который находится раньше, чем тот, который нужно. Это можно проверить путем компиляции с ключом -va и поиска упоминаний проблемного модуля в полученной простыне.

Старая версия u8base, без U8Symb, лежала в домашней папке. Я ...
СерП
04.12.2010 19:35:56
Форум: Free Pascal Compiler
Тема: Казалось бы, близнецы...
Ответы: 13
Просмотры: 8257

Re: Казалось бы, близнецы...

Показать начало своей программы можете? Где подключаете модули.
program picalc;

{$MODE objfpc}
{$H+}

uses u8base, u8subs, u8subsen, u8subsi, sysutils;
В программе {$H+} добавил, как советуют, но не помогло.
СерП
У меня функция нормально видится компилятором. Однако функции будут работать ...
СерП
04.12.2010 18:39:52
Форум: Free Pascal Compiler
Тема: Казалось бы, близнецы...
Ответы: 13
Просмотры: 8257

Re: Казалось бы, близнецы...

Тогда можно попробовать:
* компилировать с опцией "-B";
* удалить из папки проекта все файлы ppu/o/a и попробовать ещё раз.

Существенная разница в модулях, по сути, только в расположении секции uses: в u8base она только в implementation. Если ничего из вышеперечисленного не поможет, можно от ...
СерП
04.12.2010 14:49:28
Форум: Free Pascal Compiler
Тема: Казалось бы, близнецы...
Ответы: 13
Просмотры: 8257

Re: Казалось бы, близнецы...

СерП
Без кода вряд ли что-то можно толковое сказать. Выложите здесь эти два модуля - который с функцией и в котором этот модуль в Uses прописан и функция не находится.
Вот u8base (в нём компилятор не находит функцию U8Symb):
unit u8base;

{$MODE objfpc}

interface

function U8SymByte (const ...
СерП
04.12.2010 01:46:18
Форум: Free Pascal Compiler
Тема: Казалось бы, близнецы...
Ответы: 13
Просмотры: 8257

Казалось бы, близнецы...

Писал программу, подключил свой модуль. Компилирую - компилятор все нужные функции из модуля находит, кроме одной:
Error: Identifier not found "U8Symb"
Думаю, может в модуле чего не так (функцию добавил недавно)? Открываю, вроде всё нормально, в интерфейсной части прописана, реализация есть ...