Обсуждение:Бред

Материал из Абсурдопедии

В статье именно бред и есть, это факт.

Подтверждено.) QrazyDraqon 18:05, 30 декабря 2006 (UTC)

Исправлено.

Будет как со статьёй про ПМ? QrazyDraqon 09:25, 31 декабря 2006 (UTC)

Да, похоже будет так. А что вы вообще хотели?

Так, с этой статьей нужно что-то сделать! 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)

Товарищи, бред свойственен только человеку, здесь же наблюдается определённая логическая цепочка. Очевидно, что статья разработанна искусственным разумом (программным обеспечением) по принуждению оператора (пользователя). Это плагиат!