Понедельник, 24.06.2019, 12:14
Приветствую Вас Гость | RSS

Анти лотерейный математичесий сайт и всё БЕСПЛАТНО

Anti Lottery math site all FREE anti casino против казино

Карта мира Конкурс ставок IntelBet мой ВКонтакте КеноКено КЕНО ЮТЮБ KENO mini YOUTUBE Яндекс.Метрика Гость,

карта статистики посетителей & конкурсы бесплатных прогнозов конкурсы бесплатные & ВКонтакте & Математический Блог & КеноКено & КЕНО ЮТЮБ KENO mini YOUTUBE

НЕТ рекламы НЕТ партнёрских НЕТ рефералов NO advertising NO partners NO referrals pas de publicite pas de partenaires pas de references ешқандай жарнама ешқандай серіктестер жоқ реферал

IQ бесплатно КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE

CITIZENS of USA and EU to me DONATE please: almost $ 0.8 WMZ = € 0.7 WME =
= pressed picture DONATE above or WMZ Z636495154357 WME E123268917690

BÜRGERS der USA und der EU zu mir SCHENKEN bitte: Der WMZ von fast 0.8 $ = der WME von 0.7 € =
= hat den picture SCHENKEN oben gedrückt oder WMZ Z636495154357 WME E123268917690

les CITOYENS des Etats-Unis et d'UE à moi DONNENT s'il vous plaît : WMZ de presque 0.8$ = WME de 0.7€ =
= a appuyé sur picture DONNENT au-dessus ou WME E123268917690 WMZ Z636495154357

время застолбить за собой новое слово интиграаль
интИГРАаль = интеграл + игра + грааль = ИНТиграАЛЬ

time to stake a new word
temps de jeu un nouveau mot
Zeit um dem Spiel ein neues Wort

intigraal
intIGRAal = integral + igra + graal = INTigraAL

никогда никому ничего не рекомендую и всегда пишу только про себя

i never recommend anything to anyone and always write only about myself

je ne recommande jamais rien à personne et n'écris toujours que sur moi-même

ich empfehle niemandem etwas und schreibe immer nur über mich

мен ешқашан ешкімге ештеңе ұсынбаймын және үнемі өзім туралы жазамын

ніколі нікому нічога не рэкамендую і заўсёды пішу толькі пра сябе

ніколи нікому нічого не рекомендую і завжди пишу тільки про себе

mi neniam rekomendas ion al iu ajn kaj ĉiam skribas nur pri mi

Главная | Регистрация | Вход

Главная » 2014 » Май » 8 » Интеграция ArchiCAD перевод в AutoCAD индексация DWG
08:58
Интеграция ArchiCAD перевод в AutoCAD индексация DWG

Интеграция ArchiCAD перевод в AutoCAD 

Создание виртуальных презентаций ArchiCAD 3d

KnigaCAD обучение AutoCAD 2D на 55 страницах 2005год

индексация dwg и поиск за секунды и МЫ

цель статьи: показать возможность индексации dwg

свыше 10 лет пользуюсь индексацией dwg и других файлов
для поиска в компьютере по тысячам файлов за секунду
причём индексированы и эл.книги и всевозможные документы

и ... чертежи dwg где считается невозможна индексация

для индексации необходимо сделать копию требующихся dwg
и других файлов в отдельный компьютер сохранив пути
и перевести dwg в версию dwg 2000 года

применив Архивариус 3000 с доступной стоимостью
индексировать скопированный массив

полученные индексы возможно использовать в любом компьютере
и при доступности исходных файлов открываются сами dwg

достигается поиск внутри тысяч dwg любой версии за секунды
по словосочетаниям во всех формах запрашиваемых слов

? используется ли вами индексация dwg ?

стартап поиск в чертежах AutoCAD dwg совместимых
любой версии используя около 5 программ
а также поиск Word Excel txt html
слов и словосочетаний в любых форматах

индексация dwg автокад чертежи autocad

1. копия в другой компьютер dwg
в каталогах с другими файлами

2. снять признак только для чтения
и контролировать табличный вид каталога
включив столбец атрибуты без признака R

3. dwg конвертер настроить на dwg 2000
и запись dwg в исходные каталоги

4. в dwg конвертер добавить каталоги
и контролировать список файлов

5. стартовать конвертер dwg и контроль
чтобы была успешная конвертация до 100%

6. far поиск dwg по каталогам индексации

7. файловый far и быстрый просмотр ctrl+q
покажет начало файлов autocad 2000 AC1015

8. архивариус 3000 и начать новый индекс

9. индексы чертежей и документов раздельно 

10. настроить включая autocad и файлы dwg
и нормальный вариант соблюдая наличие слов

11. индексация копии dwg соблюдая каталоги

12. свойства индекса и найти путь индекса

13. скопировать 13 файлов индекса и
вставить в любое место на любом компьютере

14. настроить путь индекса и индекс появится
в списке индексов и готов поиск внутри dwg
в исходных dwg любой версии autocad

15. создан поиск по всем формам словосочетаний


ENTLEN = длины


СЛОИ вставляет другой чертёж


МИНИ БЛОКИ и говорящие имена

 
GAKSON аксонометрия

BCOUNT считает блоки

 

startup search in AutoCAD dwg compliant drawings
any version using about 5 programs
and also search Word Excel txt html
words and phrases in any formats

indexing dwg autocad drawings autocad

1. copy to another computer dwg
in directories with other files

2. remove read-only attribute and control
directory look of directory by including
column attributes without R character

3. dwg converter set up on dwg 2000
and writing dwg to source directories

4. in dwg converter add directories
and control list of files

5. start dwg converter and control
that was a successful conversion to 100%

6. far search dwg for index directories

7. file far and quick scan ctrl + q will
show beginning of autocad 2000 files AC1015

8. Archivist 3000 and start a new index

9. indexes of drawings and documents separately

10. configure including autocad and dwg files
and normal option of observing presence of words

11. indexing a copy of dwg following catalogs

12. Index properties and find index path

13. Copy 13 index files and
paste anywhere on any computer

14. configure index path and index will appear.
in index list and ready to search inside dwg
in source dwg of any version of autocad

15. created a search for all forms of word combinations

 

 

многие программы данного сайта

http://rosettacode.org/wiki/Category:C_sharp
http://rosettacode.org/wiki/Category:QB64

// RUSSIAN SORTING HALVES DANILIN
// C# Csharp
// CS.BAT
// C:\Windows\Microsoft.NET\Framework64\v4.0.30319\csc.exe /nologo RSH.cs

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO;
namespace davApp
{
    class Program
    {
        private long age;
        static long[] a;
        static long[] d;

        static void Main(string[] args)
        {
            int n = 0;
            // READ NUMBERS
            var inpFile = new StreamReader("N.txt");
            n = Convert.ToInt32(inpFile.ReadLine());
            inpFile.Close();

            var age = 1+Math.Log(n) / Math.Log(2);

            Console.WriteLine(n);

            a = new long[n+1];
            d = new long[n+1];

            for (int i = 1; i <= n; i++)
                d[i] = n-i+1;

            //var rand = new Random();
            //// RANDOM [1;n]
            //for (int i = 1; i <= n; i++)
            //    d[i] = rand.Next(1, n);

            // REAN N LINE FROM FILE
            //inpFile = new StreamReader("ISX.txt");
            //for (int i = 1; i <= n; i++)
            //    d[i] = Convert.ToInt64(inpFile.ReadLine());
            //inpFile.Close();

            // WRITE ON SCREEN
            int m = Math.Min(n, 20);
            for (int i = 1; i <= m; i++)
                Console.Write("{0} ", d[i]);
            Console.WriteLine();

            // RUSSIAN SORTING HALVES DANILIN
            var start = DateTime.Now;
            if (age > 0)
                dav(1, n, 1, age);
            var finish = DateTime.Now;

            Console.WriteLine("{0} second", (finish-start).TotalSeconds);

            // WRITE ON SCREEN
            Console.WriteLine("[1..{0}]", m);
            for (int i = 1; i <= m; i++)
                Console.Write("{0} ", d[i]);
            Console.WriteLine();

            // WRITE ON SCREEN
            Console.WriteLine("[{0}..{1}]", n-m+1, n);
            for (int i = n-m+1; i <= n; i++)
                Console.Write("{0} ", d[i]);
            Console.WriteLine();

            // WRITE IN FILE
            var outFile = new StreamWriter("dav.txt");
            for (int i = 1; i <= m; i++)
                outFile.WriteLine(d[i]);
            outFile.WriteLine();

            for (int i = n-m+1; i <= n; i++)
                outFile.WriteLine(d[i]);
            outFile.WriteLine();
            outFile.Close();

            Console.WriteLine("Press any key");
            Console.ReadKey();
        }

        static void dav(int ab, int yz, int part, double age)
        {
            if (yz-ab < 1)
                return;

            long summa = 0;
            for (int i = ab; i <= yz; i++)
                summa = summa+d[i];

            double middle = summa / (yz-ab+1.0);

            var abc = ab-1;
            var xyz = yz+1;

            for (int i = ab; i <= yz; i++)
                if (d[i] < middle)
                {
                    abc = abc+1;
                    a[abc] = d[i];
                }
                else
                {
                    xyz = xyz-1;
                    a[xyz] = d[i];
                }

            for (int i = ab; i <= yz; i++)
                d[i] = a[i];

            if (part < age)
            {
                if (abc >= ab) dav(ab, abc, part+1, age);
                if (xyz <= yz) dav(xyz, yz, part+1, age);
            }
            return;
        }
    }
}
 










http://rosettacode.org/wiki/Category:C_sharp 
http://rosettacode.org/wiki/Category:QB64

// Russian Sorting Halves 4 part accelerate bubble sorting
// C# Csharp
// CS.BAT
// C:\Windows\Microsoft.NET\Framework64\v4.0.30319\csc.exe /nologo RSH.cs

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace octoberApp
{
    class Program
    {
        static int n;
        static double[] d;
        static double[] a;
        static double[] v;
        static int[] q;

        static void Main(string[] args)
        {
            n = 57539;

            d = new double[n+1];
            a = new double[n+1];
            v = new double[n+1];
            q = new int[5+1];
            var rand = new Random();
            for (int i = 1; i <= n; i++)
                d[i] = Math.Truncate(rand.NextDouble() * n);

            for (int i = 1; i <= 10; i++)
                Console.Write("{0} ", d[i]);
            Console.WriteLine();

            for (int i = n-9; i <= n; i++)
                Console.Write("{0} ", d[i]);
            Console.WriteLine();
            Console.WriteLine();

            var start = DateTime.Now;
            var s = 0;
            //ALL
            double summa = 0;
            for (int i = 1; i <= n; i++)
                summa += d[i];
            double middle = summa / n;
            var y = 1;
            var z = 0;

            for (int i = 1; i <= n; i++)
                if (d[i] < middle)
                {
                    a[y] = d[i]; y++;
                }
                else
                {
                    a[n-z] = d[i];
                    z++;
                }

 
            q[3] = y-1;
            Console.WriteLine("ALL middle = {0}", middle);

            for (int i = 1; i <= 10; i++)
                Console.Write("{0} ", a[i]);
            Console.WriteLine();
            Console.WriteLine();
            for (int i = n-9; i <= n; i++)
                Console.Write("{0} ", a[i]);
            Console.WriteLine();
            Console.WriteLine();

            // 1 FROM 2
            summa = 0;
            for (int i = 1; i <= q[3]; i++)
                summa += a[i];

            middle = summa / q[3];
            y = 1;
            z = 0;
            Console.WriteLine("1 FROM 2 = {0} 1 ...{1}", middle, q[3]);

            for (int i = 1; i <= q[3]; i++)
                if (a[i] < middle)
                {
                    v[y] = a[i]; y++;
                }
                else
                {
                    v[q[3]-z] = a[i];
                    z++;
                }

            for (int i = 1; i <= 10; i++)
                Console.Write("{0} ", v[i]);
            Console.WriteLine();
            for (int i = q[3]-9; i <= q[3]; i++)
                Console.Write("{0} ", v[i]);
            Console.WriteLine();
            Console.WriteLine();

            q[2] = y-1;

            // 2 FROM 2
            summa = 0;
            for (int i = q[3]+1; i <= n; i++)
                summa += a[i];
            middle = summa / (1+n-q[3]);
            y = q[3];
            z = 0;
            Console.WriteLine("2 FROM 2 = {0} {1}...{2}", middle, q[3]+1, n);
            for (int i = q[3]; i <= n; i++)
                if (a[i] < middle)
                {
                    v[y] = a[i]; y++;
                }
                else
                {
                    v[n-z] = a[i];
                    z++;
                }
 
            for (int i = q[3]; i <= q[3]+10; i++)
                Console.Write("{0} ", v[i]);
            Console.WriteLine();
            for (int i = n-9; i <= n; i++)
                Console.Write("{0} ", v[i]);
            Console.WriteLine();
            Console.WriteLine();

            q[4] = y-1;
            q[1] = 2;
            q[5] = n;

            //BUBBLE
            Console.WriteLine("1= {0} 2= {1} 3= {2} 4= {3} 5= {4}", 1, q[2], q[3], q[4], n);
            Console.WriteLine();

            for (int t = 1; t <= 4; t++)
                for (int i = q[t]-1; i <= q[t+1]; i++)
                    for (int j = i+1; j <= q[t+1]; j++)
                        if (v[i] > v[j])
                        {
                            var x = v[i];
                            v[i] = v[j];
                            v[j] = x;
                            s++;
                        }
            var finish = DateTime.Now;

            for (int i = 1; i <= 10; i++)
                Console.Write("{0} ", v[i]);
            Console.WriteLine();

            for (int i = n-9; i <= n; i++)
                Console.Write("{0} ", v[i]);
            Console.WriteLine();
            Console.WriteLine();
            Console.WriteLine("DArus4 {0} second swap {1}", (finish-start).TotalSeconds, s);

            var outFile = new System.IO.StreamWriter("RUoct.txt");
            outFile.WriteLine("DArus4 {0} second swap {1}", (finish-start).TotalSeconds, s);
            outFile.WriteLine("{0} 4 parts bubble ", n);

            for (int i = 1; i <= n / 2; i++)
                outFile.WriteLine(v[i]);
            for (int i = n / 2; i <= n; i++)
                outFile.WriteLine(v[i]);

            outFile.Close();

            start = DateTime.Now;
            s = 0;

            for (int i = 1; i <= n; i++)
                for (int j = i+1; j <= n; j++)
                    if (d[i] > d[j])
                    {
                        var x = d[i];
                        d[i] = d[j];
                        d[j] = x;
                        s++;
                    }
            finish = DateTime.Now;

            Console.WriteLine("BUBBLE {0} second swap {1}", (finish-start).TotalSeconds, s);
            Console.WriteLine("Press any key");
            Console.ReadKey();
        }
    }
}





'RUSSIAN sorting halves 4 part bubble
N=17539
DIM d(N), a(N), v(N), q(5)
RANDOMIZE TIMER: FOR i=1 TO N: d(i)=INT(RND * N): NEXT
FOR k=1 TO 10: PRINT d(k);: NEXT: PRINT: FOR k=N-9 TO N: PRINT d(k);: NEXT: PRINT: PRINT

start=TIMER: s=0

' ALL
summa=0: FOR i=1 TO N: summa=summa+d(i): NEXT: middle=summa/N: y=1: z=0
FOR i=1 TO N
IF d(i) < middle THEN a(y)=d(i): y=y+1: ELSE a(N-z)=d(i): z=z+1
NEXT
q(3)=y-1
PRINT "ALL middle="; middle
FOR k=1 TO 10: PRINT a(k);: NEXT: PRINT: FOR k=N-9 TO N: PRINT a(k);: NEXT: PRINT: PRINT

'1 FROM 2
summa=0: FOR i=1 TO q(3): summa=summa+a(i): NEXT: middle=summa/q(3): y=1: z=0
PRINT "1 FROM 2="; middle, "1 ..."; q(3)
FOR i=1 TO q(3)
IF a(i) < middle THEN v(y)=a(i): y=y+1: ELSE v(q(3)-z)=a(i): z=z+1
NEXT
FOR k=1 TO 10: PRINT v(k);: NEXT: PRINT: FOR k=q(3)-9 TO q(3): PRINT v(k);: NEXT: PRINT: PRINT
q(2)=y-1

'2 FROM 2
summa=0: FOR i=q(3)+1 TO N: summa=summa+a(i): NEXT: middle=summa/(1+N-q(3)): y=q(3): z=0
PRINT "2 FROM 2="; middle, q(3)+1; "..."; N
FOR i=q(3) TO N
IF a(i) < middle THEN v(y)=a(i): y=y+1: ELSE v(N-z)=a(i): z=z+1
NEXT
FOR k=q(3) TO q(3)+10: PRINT v(k);: NEXT: PRINT: FOR k=N-9 TO N: PRINT v(k);: NEXT: PRINT: PRINT
q(4)=y-1: q(1)=2: q(5)=N

' SORTING
PRINT "1="; 1, "2="; q(2), "3="; q(3), "4="; q(4), "5="; N: PRINT
FOR t=1 TO 4
FOR i=q(t)-1 TO q(t+1): FOR j=i+1 TO q(t+1)
IF v(i) > v(j) THEN SWAP v(i), v(j): s=s+1
NEXT: NEXT: NEXT

finish=TIMER

FOR k=1 TO 10: PRINT v(k);: NEXT: PRINT: FOR k=N-9 TO N: PRINT v(k);: NEXT: PRINT: PRINT
PRINT "DA RUS 4 ", finish-start; "second ", "swap "; s

OPEN "c:/RUsortdav4.txt" FOR OUTPUT AS #2
PRINT #2, finish-start; "second ", "swap "; s
PRINT #2, N; "Russian sorting halves 4 parts bubble "
FOR i=1 TO 20: PRINT #2, v(i): NEXT
FOR i=N-19 TO N: PRINT #2, v(i): NEXT

start=TIMER: s=0
FOR i=1 TO N: FOR j=i+1 TO N
IF d(i) > d(j) THEN SWAP d(i), d(j): s=s+1
NEXT: NEXT
finish=TIMER

PRINT "BUBBLE ", finish-start; "second ", "swap "; s
END



 
 
' Russian Sorting Halves Danilin

DECLARE SUB RussianSortingHalvesDAV (ab!, yz!, part!, age!)
CLOSE
OPEN "c:/N.txt" FOR INPUT AS #5
INPUT #5, n: PRINT n

'n=123456

age=1+LOG(n)/LOG(2): PRINT n, age

DIM SHARED d(n) 'AS LONG
DIM SHARED a(n) 'AS LONG

'OPEN "c:/ISX.txt" FOR INPUT AS #1: 'FOR i=1 TO n: INPUT #1, d(i): NEXT

FOR i=1 TO n: d(i)=n-i+1: NEXT ' INT(RND*n)
'FOR i=1 TO n STEP 2: d(i)=n-i+1: d(i+1)=d(i): NEXT
'FOR i=1 TO n: d(i)=INT(RND*n): NEXT '

IF n < 17 THEN FOR k=1 TO n: PRINT d(k);: NEXT: PRINT
IF n > 16 THEN FOR k=n-8 TO n: PRINT d(k);: NEXT: PRINT

start=TIMER

IF age > 0 THEN
CALL RussianSortingHalvesDAV(1, n, 1, age)
END IF

finish=TIMER

IF n < 17 THEN FOR k=1 TO n: PRINT d(k);: NEXT: PRINT
IF n > 16 THEN FOR k=n-8 TO n: PRINT d(k);: NEXT: PRINT

PRINT finish-start

OPEN "c:/=RuSortHalves_dav.txt" FOR OUTPUT AS #2
PRINT #2, finish-start; "sekund "
PRINT #2, n; "elements", "RECURSION"
FOR i=1 TO 22: PRINT #2, d(i): NEXT
FOR i=n-22 TO n: PRINT #2, d(i): NEXT

FOR k=1 TO 20: PRINT d(k);: NEXT: PRINT: PRINT
FOR k=n-9 TO n: PRINT d(k);: NEXT: PRINT: PRINT

END

SUB RussianSortingHalvesDAV (ab, yz, part, age)

IF yz-ab < 1 THEN EXIT SUB

FOR i=ab TO yz: summa=summa+d(i): NEXT
middle=summa/(yz-ab+1)

abc=ab-1
xyz=yz+1

FOR i=ab TO yz
IF d(i) < middle THEN abc=abc+1: a(abc)=d(i): ELSE xyz=xyz-1: a(xyz)=d(i)
NEXT

FOR i=ab TO yz: d(i)=a(i): NEXT

IF part < age THEN
IF abc >= ab THEN CALL RussianSortingHalvesDAV(ab, abc, part+1, age)
IF xyz <= yz THEN CALL RussianSortingHalvesDAV(xyz, yz, part+1, age)
END IF

END SUB
 




; Russian Sorting Halves Danilin
OpenConsole()
Declare RussianSortingHalvesDAV (ab, yz, part, age)

;n=12345678

If ReadFile(0, "c:/N.txt")
 n = Val(ReadString(0))
 CloseFile(0)
EndIf

age=Int(1+(Log(n)/Log(2)))
Global Dim d(n)
Global Dim a(n)

For i=1 To n
  ;d(i)=Random(n,1) ; случайные значения от 1 до n
  d(i)=n-i+1;
Next

   ;  вывод исходных значений до сортировки
PrintN(" Исходный без сортировки Первые 20")
For k=1 To 20: Print(" "+ d(k)): Next: PrintN("")
PrintN(" Последние 10")
For k=n-9 To n : Print(" "+ d(k)): Next: PrintN("")

start=ElapsedMilliseconds() ;  таймер

If age > 0 :
 RussianSortingHalvesDAV(1, n, 1, age)
EndIf

finish=ElapsedMilliseconds() ;  таймер

PrintN("RussianSorting Первые 50")
For k=1 To 50: Print(" "+ d(k)): Next: PrintN("")
PrintN(" Последние 20")
For k=n-19 To n : Print(" "+ d(k)): Next: PrintN("")

PrintN( "Время сортровки RussianSorting = " + Str(finish-start))

If OpenFile(0, "c:/RSH_DAV.txt")
  For k=1 To 1000 :WriteString (0, " " +d(k)): Next
  For k=n-1001 To n :WriteString (0, " " +d(k)): Next
 CloseFile(0)
EndIf

Input()
End

; Процедура сортировки
Procedure RussianSortingHalvesDAV (ab, yz, part, age)

If yz-ab < 1 :ProcedureReturn 0
EndIf

For i=ab To yz
summa=summa+d(i)
Next
middle=summa/(yz-ab+1)

abc=ab-1
xyz=yz+1

For j=ab To yz
If d(j) <= middle:
abc=abc+1: a(abc)=d(j)
Else
xyz=xyz-1: a(xyz)=d(j)
EndIf

Next

For w=ab To yz: d(w)=a(w): Next

If part < age :
If abc >= ab :RussianSortingHalvesDAV(ab, abc, part+1, age)
EndIf
If xyz < yz :RussianSortingHalvesDAV(xyz, yz, part+1, age)
EndIf
EndIf

EndProcedure


; IDE Options = PureBasic 5.62 (Windows - x64)
; CursorPosition = 65
; FirstLine = 45
; Folding = -
; EnableXP
; Executable = PureBasic_RSH_DAV_abyz.exe





'qb64 KENOKENOucozRU.bas
 
DIM a(78, 22): CLS
RANDOMIZE TIMER
OPEN "KENO_dav.txt" FOR OUTPUT AS #1
OPEN "KENO_excel.txt" FOR OUTPUT AS #2

FOR s=1 TO 78: REM tiragey
    a(s, 1)=INT(RND * 80)+1: REM 1-y sluch

    22 FOR j=2 TO 21: REM dlya 20 nomerov
        shag=INT(RND * 80)+1: REM plus shag
        a(s, j)=a(s, j-1)+shag: REM zavisit
        IF a(s, j) > 80 THEN a(s, j)=a(s, j)-80: REM uchet 80
    NEXT

    FOR m=1 TO 19
        FOR n=m+1 TO 20
            IF a(s, m)=a(s, n) THEN GOTO 22
            IF INKEY$=" " THEN STOP
    NEXT: NEXT

NEXT

FOR v=1 TO 78
    FOR w=1 TO 20
        FOR m=w+1 TO 20
            IF a(v, w) > a(v, m) THEN t=a(v, w): a(v, w)=a(v, m): a(v, m)=t
NEXT: NEXT: NEXT


FOR v=1 TO 78
    FOR w=1 TO 20
        PRINT #1, a(v, w); CHR$(9);
NEXT: PRINT #1,: NEXT

FOR v=1 TO 20
    FOR w=1 TO 78
        PRINT #2, a(w, v); CHR$(9);
NEXT: PRINT #2,: NEXT
 

 
 

 

Просмотров: 143 | Добавил: DANILIN | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:

Форма входа

Поиск

Календарь

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Бесплатный конструктор сайтов - uCozЯндекс.Метрика