Так ли необходимы артикли?

[andrewsiak]

Тот самый "h", который во французском называется h aspiré (в принципе он тоже не произносится, как и "h" немое (h muet).

О, вижу, тут знатоки собрались!
В таком случае, не могли бы помочь-подсказать? Что-то голову переклинило: никак не могу вспомнить, как будет по-французски именоваться "беглое е"?

Спасибо, если зашлете записочку на cloud23@yandex.ru

e caduc.

[Peamur]

imho
Проголосовал за "положительно". Но я за те артикли, которые закладываются в окончания слов, а не как отдельные слова в языке являются.

[Станислав Секирин]

Но я за те артикли, которые закладываются в окончания слов, а не как отдельные слова в языке являются.

Это как в румынском?

[andrewsiak]

Но я за те артикли, которые закладываются в окончания слов, а не как отдельные слова в языке являются.

Это как в румынском?

в румынском, молдавском, болгарском, македонском, шведском, норвежском, датском. Называется "суффигированный артикль".

[Peamur]

шведском, норвежском, датском

Я как раз эти имел в виду:)

А в русском, чисто условно, можно некоторые суффиксы за определенный артикль держать?
например, Господин - Господинище, Дом - Домище - Типа the most...
???
Это я так, условно спросил:)

[Akella]

шведском, норвежском, датском

Я как раз эти имел в виду:)

А в русском, чисто условно, можно некоторые суффиксы за определенный артикль держать?
например, Господин - Господинище, Дом - Домище - Типа the most...
???
Это я так, условно спросил:)

Тут можно вспомнить и разговорные "-то(а)", "-де": Дом-то(а), Дом-де... Но они скорее просто делают акцент.

[Станислав Секирин]

Кстати, вы обратили внимание, что "это" - самое употребляемое слово на этом форуме?

[Марина]

Акелла, что за вопрос-то? По-моему детерминацию имен еще никто не отменял. Это просто не возможно.

[Vertaler]

Кстати, вы обратили внимание, что "это" - самое употребляемое слово на этом форуме?

Наша статистика:

это 6551
как 5512
не 3916
так 3698
или 3276
есть 3148
что 3029
в 2939
если 2933
для 2815

Статистика по книге "Таня Гроттер и посох волхвов":

это — 350
как — 367
не — 1269
так — 185
или — 98
есть — 40
что — 817
в — 1248
если — 98
для — 111

Поиски проводились следующей программой:

var f1, f2: text;
i, eto, kak, ne, tak, ili, est, cxto, v, esli, dla: integer;
c: array[1..6] of char;
begin
assign(f1, 'oo.txt');
assign(f2, 'vyvod.txt');
reset(f1);
rewrite(f2);
while not (eof(f1)) do
 begin
 for i:=1 to 5 do c:=c[i+1];
 read(f1, c[6]);
 if ((c[3]='Э') or (c[3]='э')) and (c[4]='т') and (c[5]='о') and (ord(c[2])<192) and(ord(c[6])<192) then inc(eto);
 if ((c[3]='К') or (c[3]='к')) and (c[4]='а') and (c[5]='к') and (ord(c[2])<192) and(ord(c[6])<192) then inc(kak);
 if ((c[4]='Н') or (c[4]='н')) and (c[5]='е') and (ord(c[3])<192) and (ord(c[6])<192) then inc(ne);
 if ((c[3]='Т') or (c[3]='т')) and (c[4]='а') and (c[5]='к') and (ord(c[2])<192) and(ord(c[6])<192) then inc(tak);
 if ((c[3]='И') or (c[3]='и')) and (c[4]='л') and (c[5]='и') and (ord(c[2])<192) and(ord(c[6])<192) then inc(ili);
 if ((c[2]='Е') or (c[2]='е')) and (c[3]='с') and (c[4]='т') and (c[5]='ь') and (ord(c[1])<192) and(ord(c[6])<192) then inc(est);
 if ((c[3]='Ч') or (c[3]='ч')) and (c[4]='т') and (c[5]='о') and (ord(c[2])<192) and(ord(c[6])<192) then inc(cxto);
 if ((c[5]='В') or (c[5]='в')) and (ord(c[4])<192) and(ord(c[6])<192) then inc(v);
 if ((c[3]='Д') or (c[3]='д')) and (c[4]='л') and (c[5]='я') and (ord(c[2])<192) and(ord(c[6])<192) then inc(dla);
 if ((c[2]='Е') or (c[2]='е')) and (c[3]='с') and (c[4]='л') and (c[5]='и') and (ord(c[1])<192) and(ord(c[6])<192) then inc(esli);
 end;
writeln(f2, 'это — ', eto);
writeln(f2, 'как — ',kak);
writeln(f2, 'не — ',ne);
writeln(f2, 'так — ',tak);
writeln(f2, 'или — ',ili);
writeln(f2, 'есть — ',est);
writeln(f2, 'что — ',cxto);
writeln(f2, 'в — ',v);
writeln(f2, 'если — ',esli);
writeln(f2, 'для — ',dla);
close(f1);
close(f2);
end.

:roll:

[Peamur]

Паскальчиком

А чего программу саму не выложили? Я свой паскаль в пучине потерял.

[Vertaler]

Паскальчиком

Ну да... только не смейтесь.

А чего программу саму не выложили? Я свой паскаль в пучине потерял

В смысле ТурбоПас выложить?

[Peamur]

В смысле ТурбоПас выложить

Если не жалко

А в Борланде Дельфи не сможешь заделать? Да чтобы ещё и свои параметры (слова) указывать можно было бы.

[Digamma]

Поиски проводились следующей программой:

Верталер, два вопроса, если можно:
1) программа ваша?
2) какой версией Паскаля компилировалась? (Турбо Х.Х, Делфи?)

И если на (1) ответ "да", а на (2) - "нет", то есть ли у вас Делфи?

[Vertaler]

на (1) ответ "да", а на (2) - "нет",

Точно так. Делфи... поищу на дисках. Может и есть, но не установлен. Борланд тоже есть, но досовый.

Да чтобы ещё и свои параметры (слова) указывать можно было бы.

Подумаю...

[Digamma]

Верталер, я это вот к чему: немного сложновато.

const
 PatternsCount = 10;
 Patterns: array[1..PatternsCount] of string =
   ('это', 'как', 'не', 'так', 'или', 'есть', 'что', 'в', 'если', 'для');
 Alphas = ['a'..'z', 'A'..'Z', '0'..'9', 'а'..'я', 'А'..'Я'];
var
 f1, f2: Text;
 i, p, N: integer;
 Counts: array[1..PatternsCount] of integer;
 S: string;
begin
 for i 1 to PatternsCount do Counts 0;

 AssignFile(f1, 'oo.txt');
 Reset(f1);
 while not EOF(f1) do
 begin
   ReadLn(f1, S);
   for i 1 to PatternsCount do
   begin
     N Length(Patterns);
     p 0;
     while p <= Length(S) - N do
     begin
       Inc(p);
       if not (S[p + N] in Alphas) and (AnsiCompareText(Copy(S, p, N), Patterns) = 0) then
       begin
         Inc(Counts);
         Inc(p, N);
       end
       else
         Inc(p);
     end;
   end;
 end;
 CloseFile(f1);

 AssignFile(f2, 'vyvod.txt');
 Rewrite(f2);
 for i 1 to PatternsCount do WriteLn(f2, Patterns, ' — ', Counts);
 CloseFile(f2);
end;

И для указания собственных слов просто добавить слова в Patterns и соответственно увеличить PatternsCount. Впрочем, в этом варианте и динамическим массивом реализовать можно - тогда можно просто с ходу пользователя запрашивать:

const
 InitsCount = 10;
 Inits: array[1..InitsCount] of string =
   ('это', 'как', 'не', 'так', 'или', 'есть', 'что', 'в', 'если', 'для');
 Alphas = ['a'..'z', 'A'..'Z', '0'..'9', 'а'..'я', 'А'..'Я'];
var
 f1, f2: Text;
 i, p, N: integer;
 Counts: array of integer;
 Patterns: array of string;
 S: string;
begin
 SetLength(Counts, InitsCount);
 SetLength(Patterns, InitsCount);
 for i 1 to InitsCount do
 begin
   Patterns Inits;
   Counts 0;
 end;

 while true do
 begin
   WriteLn('Добавить слово для подсчета? (закончить - пустая строка)');
   ReadLn(S);
   if S = '' then break;
   SetLength(Patterns, Length(Patterns) + 1);
   SetLength(Counts, Length(Counts) + 1);
   Patterns[High(Patterns)] S;
   Counts[High(Counts)] 0;
 end;

 ... // далее - как в предыдущем варианте

Примеры не тестировал, но должны работать.

[Vertaler]

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

[Digamma]

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

Прошу прощения! Вот псевдоописание:

const
 PatternsCount = 10;
 Patterns: <массив слов>; // их и будем считать
 Alphas = <числа или буквы>;
var
 f1, f2: Text;
 i, p, N: integer;
 Counts: <массив чисел>; // счетчики кол-ва вхождений
 S: string;
begin
 <инициализируем Counts нулями>;

 <открываем f1>;
 while not EOF(f1) do
 begin
   <читаем S>;
   <для каждого слова из массива Patterns> do
   // будем считать кол-во вхождений этого слова в строку
   begin
     N <длина слова>;
     p 0; // текущая позиция в строке
     <пока мы не вылезли за конец строки> do
     begin
       Inc(p);
       if (начиная с текущего символа входит искомое слово) and (за ним идет разделитель) then
       begin
         Inc(Counts); // нашли еще одно
         Inc(p, N); // "прыгаем" за конец нашего слова в строке
       end
       else
         Inc(p); // иначе смещаемся на 1 символ
     end;
   end;
 end;
 CloseFile(f1);

 AssignFile(f2, 'vyvod.txt');
 Rewrite(f2);
 <для каждого слова из массива Patterns> do WriteLn(f2, <это слово>, ' — ', <число вхождений>);
 CloseFile(f2);
end;

Я надеюсь, это поясняет код. Готов предоставить любые комментарии как публично, так и приватно.

[Vertaler]

А ничего, что бывают абзацы больше 255 символов?

[Digamma]

А ничего, что бывают абзацы больше 255 символов?

Ничего. Максимальная длина строки в Object Pascal - 2G, а те строки на которые вы намекаете - это string[255].

[Sladkorček]

Так как собратья по форуму упоминали различные языки, упомяну и я: в словенском тоже сначала идут единицы, а потом десятки. Например: 21 - enaindvajset, дословно "один и двадцать"

[Akella]

Так как собратья по форуму упоминали различные языки, упомяну и я: в словенском тоже сначала идут единицы, а потом десятки. Например: 21 - enaindvajset, дословно "один и двадцать"

Вот не пойму... Зачем  надо было из немецкого такую сложность и неудобность перенимать? У чехов и словаков хоть оба варианта возможны...

[Vertaler]

У норвежцев (букмол) официально с 195? года действует «новый счёт» (десятки перед единицами), но до сих пор около половины использует «старый»...

[Евгений]

У норвежцев (букмол) официально с 195? года действует «новый счёт» (единицы перед десятками), но до сих пор около половины использует «старый»...

Что-то вы путаете. "Новый счёт" - это как раз "единицы после десятков" (двадцать один - tjueen), тогда как раньше была принята датская система "единицы перед десятками" (enogtyve). Сейчас большинство использует новую, на датский манер мало кто говорит.

[Vertaler]

"Новый счёт" - это как раз "единицы поле десятков"

Исправлено.

Сейчас большинство использует новую, на датский манер мало кто говорит.

По 2001 году — не так. Автор, у которого я это вычитал, более 40 лет переводит худл с ношка и долгое время был членом норвежской АН.

[Евгений]

По 2001 году — не так. Автор, у которого я это вычитал, более 40 лет переводит худл с ношка и долгое время был членом норвежской АН.

Беркова начитались... Ну тут он явно загнул. Может, сорок лет назад и была половина, а сейчас большинство считают нормально.