Похожие работы на «Основы алгоритмизации и программирования (кр№1, вар1)»

Основы алгоритмизации и программирования (кр№1, вар1)
Программирование и комп-ры, Основы алгоритмизации и программирования (кр№1, вар1), Контрольная ... 000135(А4, если А1(0. Где А1 - сумма элементов массива Х; А4 - сумма косинусов положительных элементов массива Х; М1 - количество элементов массива Х, ...
... всех элементов массива Х и занесения этой суммы в переменную А1 используем цикл i:=1; while i<=n do begin A1:=A1+X[i]; i:=i+1; end; Определение на ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... цикл с параметром от 0 до 2} Read(c,b); Write(b); End; Readln(c); Writeln; while not EOLN(c) do Begin {вывод редактируемого вопроса на экран} Read(c,b ...
... TextColor(green); Write('Печать'); End; 60:Begin TextColor(green); Write('Выход'); End; End; End; Procedure panel.right; {процедура сдвига окна выбора ...


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... свой радиус. for i:=399 downto 0 do begin setcolor(i); сircle(322,250,i); delay(10); end; {-end_krugi-} Закрытие граф. режима closegraph; Завершение ...
... delay(1000); writeln('Reload-'); write('Exit-'); c:=readkey; if c=#27 then begin menu; goto menu2; end else begin textmode(Co80); l:=4; goto menu2; ...


Основные понятия алгоритмического языка [нестрогое соответствие]
Программирование и комп-ры, Основные понятия алгоритмического языка, Курсовая ... kol'); ReadLn(kol); nb:=[1..36]; for i:=1 to kol do begin k:=[]; for l:=1 to 5 do begin repeat n:=Random(36) until (n in nb) and not (n in k); k:=k+[n ...
... inf); Rewrite(outf); n:=0; while not EOF(inf) do begin n:=n+1; ReadLn(inf,rArg[n],rF[n]) end; for l:=1 to n do begin WriteLn(l:2,rArg[l]:8:2,rF[l]:8:2 ...


Использование табличного симплекс-метода для решения задач линейного программирования для оптимизации экономических задач [нестрогое соответствие]
... и комп-ры, Использование табличного симплекс-метода для решения задач линейного программирования для оптимизации экономических задач, Курсовая ... DateFile, VectorA[i, j]); i:=1; for j:=n+1 to n+m do - 31 - begin VectorA[i, j]:=1; inc(i) end; end; procedure ReadDatesBasisVector; var i : integer; ...
... 0] / VectorA[1, IndexOfEnterVector]; for i:=2 to m do begin Temp:=VectorA[i, 0] / VectorA[i, IndexOfEnterVector]; if Temp > 0 then if MinimumBuffer ...


Использование табличного симплекс-метода для решения задач линейного программирования для оптимизации экономических задач [нестрогое соответствие]
... и комп-ры, Использование табличного симплекс-метода для решения задач линейного программирования для оптимизации экономических задач, Курсовая ... DateFile, VectorA[i, j]); i:=1; for j:=n+1 to n+m do - 31 - begin VectorA[i, j]:=1; inc(i) end; end; procedure ReadDatesBasisVector; var i : integer; ...
... 0] / VectorA[1, IndexOfEnterVector]; for i:=2 to m do begin Temp:=VectorA[i, 0] / VectorA[i, IndexOfEnterVector]; if Temp > 0 then if MinimumBuffer ...


Программирование на языке Турбо Паскаль [нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие ... ShowFile; var f: text; c: char; begin assign(f,'showfile.pas'); reset(f); while not eof(f) do begin while not eoln(f) do begin read(f,c); write(c) ...
... p^.data; GetItem:=true; end else GetItem:=false; end; procedure ClearList(var l: tItemPtr); var p: tItemPtr; begin while (l<>nil) do begin p:=l^.next; ...


Массивы в языках Pascal и Basic [нестрогое соответствие]
Программирование и комп-ры, Массивы в языках Pascal и Basic , Рефераты ... любой тип данных, поэтому вполне правомерно существование массивов записей, массивов указателей, массивов строк, массивов массивов и т.д. Элементами ...
... в общем виде описывается как А[I], где А - имя массива, I - номер или индекс массива (0<=I<=N, но практически употребляется 1<=I<=N) A[I] - значение ...


Массивы в Pascal и Turbo Basic [нестрогое соответствие]
Программирование и комп-ры, Массивы в Pascal и Turbo Basic, Реферат ... любой тип данных, поэтому вполне правомерно существование массивов записей, массивов указателей, массивов строк, массивов массивов и т.д. Элементами ...
... в общем виде описывается как А[I], где А - имя массива, I - номер или индекс массива (0<=I<=N, но практически употребляется 1<=I<=N) A[I] - значение ...


Разработка системы задач (алгоритмы-программы) по дискретной математике [нестрогое соответствие]
Программирование и комп-ры, Разработка системы задач (алгоритмы-программы) по дискретной математике , Работа Курсовая ... j<=N)and Not((j in A[i])and(B[i]+B[j]=[1..M]))do Inc(j); Inc(i); End; InTwoNear:=j<=N; End; Function AddIfCan(mode:integer; S:Sset):Boolean; Var i,j: ...
... Inc(time); incS:=AddIfCan(1,[1..m]); FindS:=ProvCanMet; End; If FindS Then begin WriteLn("Пункт А:",time,"момент(а,ов) времени"); WriteLn("Пункт Б: ...