Похожие работы на «Массивы в языках Pascal и Basic »

Массивы в Pascal и Turbo Basic
Программирование и комп-ры, Массивы в Pascal и Turbo Basic, Реферат В общем виде элемент матрицы обозначается как A(I,J), где А - имя массива, I - индекс (номер) строки, J - индекс (номер) столбца.
... диагональю I+J=N+I элементы матрицы расположены на побочной диагонали (N - количество строк или столбцов в квадратной матрице) I+JN+I элементы матрицы ...


Массивы в языках Pascal и Basic
Программирование и комп-ры, Массивы в языках Pascal и Basic , Рефераты В общем виде элемент матрицы обозначается как A(I,J), где А - имя массива, I - индекс (номер) строки, J - индекс (номер) столбца.
... диагональю I+J=N+I элементы матрицы расположены на побочной диагонали (N - количество строк или столбцов в квадратной матрице) I+JN+I элементы матрицы ...


Разработка системы задач (алгоритмы-программы) по дискретной математике
Программирование и комп-ры, Разработка системы задач (алгоритмы-программы) по дискретной математике , Работа Курсовая ... двумерный массив размерности N*N. 1, вершина с номером i смежна с вершиной с номером j, 0, вершина с номером i не смежна с вершиной с номером j Для ...
... j:integer; Begin i:=1; j:=N+1; while (iN)do begin j:=i+1; while(j<=N)and Not((j in A[i])and(B[i]+B[j]=[1..M]))do Inc(j); Inc(i); End; InTwoNear:=j<=N; ...


Поиск в ширину на графах
Программирование и комп-ры, Поиск в ширину на графах, Курсовая ... 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]; if lst[j]<>nil then ...
... j]>ver[j+1] then begin exch:=ver[j]; el:=lst[j]; em:=m[j]; ver[j]:=ver[j+1]; lst[j]:=lst[j+1]; m[j]:=m[j+1]; ver[j+1]:=exch; lst[j+1]:=el; m[j+1]:=em; ...


Програмирование на Visual Basic
Кибернетика, Програмирование на Visual Basic, Реферат ... из строки заголовков столбцов и нуля или более строк значений данных; . строка заголовков столбцов специфицирует один или более столбцов, определяя ...
... индексы по столбцу "Номер поставщика" таблицы поставщиков, по столбцу "Номер детали" таблицы деталей, по двум столбцам "Номер поставщика" и "Номер ...


Технический словарь
Иностранные языки, Технический словарь, Шпора ... прерывание array cell, array component элемент массива array descriptor дескриптор [паспорт] массива array element see array cell array identifier ...
... редактор строк, строковый редактор line feed перевод строки line folding перенос строк line number номер строки line of code строка (текста) программы ...


Программирование на Object Pascal в среде Delphi [нестрогое соответствие]
Программирование и комп-ры, Программирование на Object Pascal в среде Delphi , Работа Лабораторная ... значение p SpinEdit4.Text:='3'; // начальное значение q StringGrid1.RowCount:=4; // количество строк массива A StringGrid1.ColCount:=6; // количество ...
... ffFixed,3,1); end; for i:=1 to n do // формирование массива Y и вывод его значений в таблицу begin Y[i]:=A[i,q]; StringGrid3.Cells[0,i-1]:=FloatToStrF


Aлгоритмы на графах [нестрогое соответствие]
Программирование и комп-ры, Aлгоритмы на графах, Реферат ... End; For i:=1 to n do color[i]:=i; len:=0 End; Procedure Findmin(var a, b: integer); Var min, i, j: integer; Begin min:=infinity; For i:=1 to n-1 do ...
... n, Start, Finish, k, i: integer; Procedure Init; Var f: text; i, j: integer; Begin Assign(f, INPUT.MTR'); Reset(f); Readln(f, n); For i:=1 to n do ...


Программирование на языке Турбо Паскаль [нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие ... shortint] of boolean; CountAll: array[char] of integer; Count: array['a'..'z'] of integer; В следующем примере показано для чего может понадобиться ...
... readln(a[i]); end; for i:=1 to n-1 do begin jmin:=i; for j:=i+1 to n do if a[j]0. | |Ellipse(x,y: integer; |Рисует дугу эллипса с полуосями xr


Программа на Delphi [нестрогое соответствие]
Программирование и комп-ры, Программа на Delphi, Доклад ... End; {конец описания процедуры MatrMult} Procedure Prim; {заголовок процедуры Prim} Var i, j: Integer; Begin For i:= 1 to n do {блок задания элементов ...
... что Warn1, но в 4 строки} var i,j: byte; begin i:=Length(s1); j:=i; i:=Length(s2); if (i>j) then j:=i; i:=Length(s3); if (i>j) then j:=i; i:=Length(s4 ...