Обсуждение:Аграмматизм: различия между версиями
>Тостер Нет описания правки |
>Morley Dotes Нет описания правки |
||
| Строка 73: | Строка 73: | ||
: Это не 1.3, а [[:Категория:Ёпрст|вот что]]. {{Участник:Edward Chernenko/Подпись}} 16:24, декабря 12, 2009 (UTC) | : Это не 1.3, а [[:Категория:Ёпрст|вот что]]. {{Участник:Edward Chernenko/Подпись}} 16:24, декабря 12, 2009 (UTC) | ||
:: Похоже , что Морли Дотс в этом вопросе не согласен с Эдувардом Черненко , зато асболютно солидарен в том , что надо удалять всё , что <s>нажито непосильным трудом</s> создано мной. <s>Да что ж за ... </s> --[[Участник:Тостер|Тостер]] 21:42, февраля 19, 2010 (UTC) | :: Похоже , что Морли Дотс в этом вопросе не согласен с Эдувардом Черненко , зато асболютно солидарен в том , что надо удалять всё , что <s>нажито непосильным трудом</s> создано мной. <s>Да что ж за ... </s> --[[Участник:Тостер|Тостер]] 21:42, февраля 19, 2010 (UTC) | ||
::: Да, к сожалению, наши мнения не всегда совпадают. Не вижу я там ЁПРСТ-а :-( P.S. Если Вы считаете непосильным трудом проставление категорий, что ж… возможно, мы не так уж неправы :-) [[Участник:Morley Dotes|Morley Dotes]] 07:23, февраля 20, 2010 (UTC) | |||
Версия от 07:23, 20 февраля 2010
В статье именно бред и есть, это факт.
Исправлено.
Да, похоже будет так. А что вы вообще хотели?
- Так, с этой статьей нужно что-то сделать! 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 10:21, 20 мая 2007 (UTC)
Товарищи, бред свойственен только человеку, здесь же наблюдается определённая логическая цепочка. Очевидно, что статья разработанна искусственным разумом (программным обеспечением) по принуждению оператора (пользователя). Это плагиат!
Почитайте статью "Хаос". Если бы "Бред" был написан хотя бы подобным образом, и если бы его можно было осилить, было бы лучше. Тк скзть, разгрузочная статья, избавляющая от пороков Реальности.--Автор. Пишется через «В» 09:29, 14 сентября 2008 (UTC)
Просто жуть. Несмотря на то, что это бред, он действительно сделан с помощью программы, использовавшей комбинаторику. Статья должна быть смешной, а эта - херня.
Абс. читают какбе люди, а не программы. http://absurdopedia.wikia.com/wiki/%D0%90%D0%9F:%D0%9F%D0%A3%D0%A1#1.3 Человек 15:26, декабря 12, 2009 (UTC)
- Это не 1.3, а вот что.
Edward Chernenkoo a 16:24, декабря 12, 2009 (UTC)
- Похоже , что Морли Дотс в этом вопросе не согласен с Эдувардом Черненко , зато асболютно солидарен в том , что надо удалять всё , что
нажито непосильным трудомсоздано мной.Да что ж за ...--Тостер 21:42, февраля 19, 2010 (UTC)- Да, к сожалению, наши мнения не всегда совпадают. Не вижу я там ЁПРСТ-а :-( P.S. Если Вы считаете непосильным трудом проставление категорий, что ж… возможно, мы не так уж неправы :-) Morley Dotes 07:23, февраля 20, 2010 (UTC)
- Похоже , что Морли Дотс в этом вопросе не согласен с Эдувардом Черненко , зато асболютно солидарен в том , что надо удалять всё , что