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

← Предыдущая правка Следующая правка →

@@ Строка 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)