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

2007-11-17T08:50:02Z

81.211.92.113:

В статье именно бред и есть, это факт.
: Подтверждено.) {{Участник: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|Ameba]] 10:21, 20 мая 2007 (UTC)

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

Абсурдопедия - Вклад [ru]

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