Обсуждение:Аграмматизм: различия между версиями

← Предыдущая правка

@@ Строка 5: / Строка 5: @@
 Да, похоже будет так. А что вы вообще хотели?
 : Так, с этой статьей нужно что-то сделать! 15:06, 9 февраля 2007 (UTC)
+Кто написал про нанороботов? На самом деле ету бедную статью написала программа. Для тех, кто сомневается, привожу код:
+ uses Crt;
+ type TData=record
+      Data:array[1..200]of string;
+      Size:Integer;
+     end;
+ function LCase(Str:string):string;
+ var S:string; i:Integer;
+ begin
+  S:='';
+  for i:=1 to Length(Str) do
+   if(Str[i] in ['A'..'Z'])or
+     (Str[i] in ['А'..'Я'])then S:=S+Chr(Ord(str[i])+32) else S:=S+Str[i];
+  LCase:=S;
+ end;
+ procedure BuildData(var D:TData; S:string);
+ var F:text; k:Integer; Buff:String;
+ begin
+  Assign(F,S);
+  Reset(F);
+  k:=0;
+  repeat
+   inc(k);
+   Readln(F,Buff);
+   D.Data[k]:=Buff;
+  until EOF(F);
+  D.size:=k;
+  Close(F);
+ end;
+ function NewPhrase(D1,D2:TData; k1,k2:Integer):string;
+ var Str,S1,S2:string;
+ begin
+  S1:=D1.Data[k1];
+  S2:=D2.data[k2];
+  Str:=S1+ ' ' +S2+ '.';
+  NewPhrase:=Str;
+ end;
+ var Data1,Data2:TData;
+     Fil:text;
+     i: integer;
+ begin
+  ClrScr;
+  Randomize;
+  BuildData(Data1,'C:\BP\PRJ\Polyglot\data1.txt');
+  BuildData(Data2,'C:\BP\PRJ\Polyglot\data2.txt');
+  Assign(Fil,'C:\Bred.txt');
+  ReWrite(Fil);
+   for i:=1 to 500 do
+   Writeln(Fil,NewPhrase(Data1,Data2,Random(Data1.Size)+1,Random(Data2.Size)+1));
+  Close(Fil);
+  Readln;
+ end.
+[[Участник:Ameba|Ameba]] 10:21, 20 мая 2007 (UTC)
+Товарищи, бред свойственен только человеку, здесь же наблюдается определённая логическая цепочка. Очевидно, что статья разработанна искусственным разумом (программным обеспечением) по принуждению оператора (пользователя). Это плагиат!
+Почитайте статью "[[Хаос]]". Если бы "Бред" был написан хотя бы подобным образом, и если бы его можно было осилить, было бы лучше. Тк скзть, разгрузочная статья, избавляющая от пороков Реальности.--[[Участник:ANdROnIQ|Автор. Пишется через «В»]] 09:29, 14 сентября 2008 (UTC)
+Просто жуть. Несмотря на то, что это бред, он действительно сделан с помощью программы, использовавшей комбинаторику. Статья должна быть смешной, а эта - херня.
+Абс. читают какбе люди, а не программы. [[АП:ПУС]] #1.3
+[[Участник:Человек|Человек]] 15:26, декабря 12, 2009 (UTC)
+: Это не 1.3, а [[:Категория:Ёпрст|вот что]]. {{Участник:Edward Chernenko/Подпись}} 16:24, декабря 12, 2009 (UTC)
+:: Похоже , что Морли Дотс в этом вопросе не согласен с Эдувардом Черненко , зато асболютно солидарен в том , что надо удалять всё , что <s>нажито непосильным трудом</s> создано мной. <s>Да что ж за ... </s> --[[Участник:Тостер|Тостер]] 21:42, февраля 19, 2010 (UTC)
+::: Да, к сожалению, наши мнения не всегда совпадают. Не вижу я там ЁПРСТ-а :-( P.S. Если Вы считаете непосильным трудом проставление категорий, что ж… возможно, мы не так уж неправы :-) [[Участник:Morley Dotes|Morley Dotes]] 07:23, февраля 20, 2010 (UTC)
+:::: Категория "Ёпрст" была сделана по аналогии с английской категорией "[[:en:Category:Pages that look like the things they're about|Статьи, которые выглядят похожим на то, о чём они]]" (туда и интервики). Это не обязательно статья без видимого текста. {{Участник:Edward Chernenko/Подпись}} 08:49, февраля 20, 2010 (UTC)
+::::: ОК. [[Участник:Morley Dotes|Morley Dotes]] 10:32, февраля 20, 2010 (UTC)
+== Исправление ==
+В этой белиберде есть много недопереведённых слов. А также такие цепочки: Доллар воняет, тётя вонять; Муха блокирует парламент, мошка блокирует парламент, мир блокирует парламент. [[Участник:Dirruw'o|Dirruw']] [[Обсуждение участника:Dirruw'o|o]] ([https://absurdopedia.wiki/%D0%A1%D0%BB%D1%83%D0%B6%D0%B5%D0%B1%D0%BD%D0%B0%D1%8F:%D0%92%D0%BA%D0%BB%D0%B0%D0%B4/Dirruw%27o ВКЛ.]) 18:49, 1 марта 2024 (UTC)
+: Статья полностью соответствует заголовку. {{nobr|[[Файл:ProInd.png|18px]] [[Участник:Тэйтанка-птекила|Тэйтанка-пте]][[Обсуждение участника:Тэйтанка-птекила|кила]]}} 21:40, 19 марта 2024 (UTC)
+:: Хотя беру свои слова назад, строго научно, конечно, не соответствует, просто комбинация пар слов. Надо подумать что с ней делать. {{nobr|[[Файл:ProInd.png|18px]] [[Участник:Тэйтанка-птекила|Тэйтанка-пте]][[Обсуждение участника:Тэйтанка-птекила|кила]]}} 11:35, 11 мая 2025 (UTC)