Программа, которая упорядочивает элементы чётных строк матрицы по возрастанию, а нечётных - по убыванию
Программирование и комп-ры, Программа, которая упорядочивает элементы чётных строк матрицы по возрастанию, а нечётных - по убыванию , Программа ... x=1 to 4 for y=1 to 3 print "A(";x;",";y;") = "; input a(x,y) next y next x dim b(4,3) if a(1,1)>a(1,2) and a(1,1)>a(1,3) then b(1,1)=a(1,1) else if
... then b(4,3)=a(4,1) else if a(4,1)a(4,1) and a(4,2)>a(4,3) then b(4,3)=a(4,2) else if a(4,2)a(4,2) and a(4,3)>a(4,1) then b(4,3)=a(4,3) else if a(4,3) ...



Програмирование на Visual Basic
Кибернетика, Програмирование на Visual Basic, Реферат ... Cli.ck() If Check3.Value = 0 Then Listi.Columns = 1 Else Listi.Columns = 2 End If End Sub Private Sub Check4_Click () If Check4.Value = 1 Then Check4. ...
... Fields(I).Value End If CellWidth = TextWidth(Gridi.Text) + 100 If CellWidth > Gridi.ColWidth(I) Then Gridi.ColWidth(I) = CellWidth End If Next I Datal ...



Поиск в ширину на графах
Программирование и комп-ры, Поиск в ширину на графах, Курсовая ... end; kolvo:=0; for i:=1 to raz do begin lst[i]:=nil; for j:=1 to raz do begin spro:=true; if j=raz then goto Er; if j=i then inc(j); n:=nil; n:=lst[j] ...
... lst[i]; lst[i]:=m[i]; end; Er: end; end; writeln; if mgsi then {ВЫВОД СВЯЗЕЙ ВЕРШИН} for i:=1 to raz do {} begin {} write(ver[i],'-'); {} m[i]:=lst[i] ...



VB, MS Access, VC++, Delphi, Builder C++ принципы(технология), алгоритмы программирования
Программирование и комп-ры, VB, MS Access, VC++, Delphi, Builder C++ принципы(технология), алгоритмы программирования , Рефераты ... элементы массива B. Если вы нажмете на кнопку B to A (Из B в A), программа пометит элементы в массиве B, и затем скопирует метки в массив A. Программа ...
... LocateLeaf( _ X, Y, xmin, xmid, ymin, ymid) Else Set LocateLeaf = SWchild.LocateLeaf _ X, Y, xmin, xmid, ymid, ymax) End If Else If Y <= ymid Then Set ...



Общие сведения о языке программирования Qbasic [нестрогое соответствие]
Программирование и комп-ры, Общие сведения о языке программирования Qbasic, Лекция ... TO 9 S=S+A(N) NEXT N PRINT (сумма=(;S Пример 2. Найти минимальный элемент массива и индекс этого минимального элемента DIM L (9) MIN=L(0): K=0 FOR I=1 ...
... GOTO 50 20 NEXT y P=A(y):K=y NEXT i 50 NEXT y FOR i=0 TO 9 A(K)=A(i):A(i)=P PRINT А(i) NEXT i NEXT i PRINT "Отсортированные элементы" FOR i=0 TO 9 ...



Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... Name) and Not Ex Do Begin inc(j); If l^.Name=#0 Then Ex:=True; l:=l^.next; End; End; If (l=Nil) or Ex Then SearchInBlock:=0 Else SearchInBlock:=j; End ...
... n<>j) Do Begin If l^.Name=#0 Then inc(j); l:=l^.Next; End; While (l<>Nil) and (l^.Name<>x.Name) Do l:=l^.Next; If l<>Nil Then Begin new(q); q^.Name:=d ...



Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... mod 400)<>0 then DayInMonth:=28 else DayInMonth:=29 end; Function DayDiffer(A,B:dat):Integer; Var m1,m2,y1,y2:Integer; Begin DTErr:=false; y1:=A.year; ...
... 1440)) mod 1440; delay:=(delay div 1440)+((a.time+(delay mod 1440)) div 1440); while delay+b.day>DayInMonth(b.month,b.year) do begin delay:=delay-1- ...



Программирование на языке Турбо Паскаль [нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие ... tVec3D; var c: tVec3D); begin c.x:=a.x-b.x; c.y:=a.y-b.y; c.z:=a.z-b.z; end; procedure VecMultNum(k: real; a: tVec3D; var b: tVec3D); begin b.x:=k*a.x ...
... i:=i+1; p:=p^.next; end; if p<>nil then begin if p^.next<>nil then begin q:=p^.next^.next; dispose(p^.next); p^.next:=q; DeleteItemAfter:=true; end ...



Линейные списки. Стек. Дек. Очередь [нестрогое соответствие]
Программирование и комп-ры, Линейные списки. Стек. Дек. Очередь, Диплом ... Dispose(h); RoundList := q^.Next; end; end; if RoundList <> nil then begin q := RoundList^.Next; i := 1; while q <> RoundList do begin Inc(i); q := q^ ...
... то удаляем его begin if r^.Next <> nil then r^.Next^.Prev := q; q^.Next := r^.Next; if r <> nil then Dispose(r); end else ShowMessage('Элемент уже не ...



Трехмерная компьютерная графика [нестрогое соответствие]
Программирование и комп-ры, Трехмерная компьютерная графика, Курсовая ... x основной цикл for i = 1 to (x Plot ( x ,y ) While ( [pic] ( 0 ) If Обмен = 1 then x = x + s1 else y = y + s2 end if [pic] = [pic] ( 2 * (x end while ...
... если видимость изменилась, то вычисляется пересечение и заполняется массив горизонта else if Тфлаг = 0 then if Пфлаг = 1 then call Пересечение (Xпред, ...