Обсуждение:Бред
Материал из Абсурдопедии
В статье именно бред и есть, это факт.
Исправлено.
Да, похоже будет так. А что вы вообще хотели?
- Так, с этой статьей нужно что-то сделать! 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)
Просто жуть. Несмотря на то, что это бред, он действительно сделан с помощью программы, использовавшей комбинаторику. Статья должна быть смешной, а эта - херня.


