Похожие работы на «Курсовая по информатике»

Курсовая по информатике
Программирование и комп-ры, Курсовая по информатике, Курсовая num:=readkey; if not((num='1')or(num='2')or(num='3')) then writeln(' Вы в чем-то ошиблись'); until (num='1')or(num='2')or(num='3'); filen:='input'+num ...
... f1); writeln(f1,' Число стран = ',max); writeln(f1,''); writeln(f1,'N cтран = ',n); for j:=1 to max do writeln(f1,'cтрана - ',j,', цвет - ',g[j] ...


Программа на Delphi [нестрогое соответствие]
Программирование и комп-ры, Программа на Delphi, Доклад ... Rewrite(F2); {F2 снова создан для вывода } while not Eof(F1) do {пока не достигнут конец файла - выполнять} begin Readln(F1, St); {читает строку из ...
... что 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 ...


Разработка автоматизированной системы учета выбывших из стационара [нестрогое соответствие]
Программирование и комп-ры, Разработка автоматизированной системы учета выбывших из стационара , Рефераты ... length) _0S[k]=LEFT(ALLTRIM(_0B[k]),5) k=k+1 ELSE _0B[k-1]=_0B[k-1]+SUBSTR(str,length*(j-1)+1,length) ENDIF NEXT NDEL=ACHOICE(13,35,15,45,_0S) SELECT ...
... ENDIF NEXT NDEL=ACHOICE(13,35,15,45,_0S) IF LASTKEY()=27 RETURN ENDIF SELECT BUFF2 GO NDEL DELETE PACK stro="" FOR j=1 TO MALL IF j#NDEL stro=stro+_0B ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... char; c,u,y,a1,b1:text; d,e,i,j,p,z:integer; c1:boolean; Procedure oform; {процедура оформления начала программы} Begin <набор операторов> End; Begin ...
... правильных ответов: ',p); Write('оценка '); {выставление оценки} If z>=90 Then Begin Writeln('5') Writeln(b1,"5"); End; else If z>=70 Then Begin ...


Программирование на языке Турбо Паскаль [нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие ... Четверг'); Fri: writeln('Пятница'); Sat: writeln('Суббота'); Sun: writeln('Воскресенье'); NoDay: writeln('Такого дня нет в календаре'); end; until ...
... string; begin assign(f1,'writelen.pas'); reset(f1); assign(f2,'result.txt'); rewrite(f2); while not eof(f1) do begin readln(f1,s); writeln(f2,length(s ...


Передача информации из ультразвуковой медицинской диагностической установки ALOCA SSD650 [нестрогое соответствие]
Программирование и комп-ры, Передача информации из ультразвуковой медицинской диагностической установки ALOCA SSD650 , Рефераты ... k = 0; k < iw; k++) p1[k] = p2[k]; for(k = 0; k < iw; k++) p2[k] = p3[k]; for(k = 0; k < iw; k++) p3[k] = p4[k]; for(k = 0; k < iw; k++) p4[k] = p5[k] ...
... pn,p3,iw); for(k = 0; k < iw; k++) p1[k] = p2[k]; for(k = 0; k < iw; k++) pn[k] = p3[k]; for(k = 0; k < iw; k++) po[k] = po[k]+2048; PutGWL(chl,(short ...


Администрирование локальных сетей [нестрогое соответствие]
Программирование и комп-ры, Администрирование локальных сетей, Лекция ... ненулевой размер. -h file возвращает успех если это симлинк. -z s1 возвращает успех если длинна строки s1 нулевая. -n s1 возвращает успех если длинна ...
... может быть исследован отладчиком adb; F - реакция на сигнал сбрасывается; S - посылается обычно системой, а не явно. сигнал G D C F S смысл SIGTERM ...


Нейтрофилы [нестрогое соответствие]
Медицина, Нейтрофилы , Рефераты ... 0 then begin a:=readkey; wri_val(manual[j],j,true); case a of rightarrow, downarrow : j:=j+1; leftarrow, uparrow : j:=j-1; end; if j>10 then j:=10; if ...
... to 30 do begin loc_calc[j]:=0; shift[j]:=0; end; j:=1; repeat j:=j+1; write(f,ln(j):10:2); for i:=1 to 30 do with cell[i] do begin loc_calc[i]:=0; for ...


Основные понятия алгоритмического языка [нестрогое соответствие]
Программирование и комп-ры, Основные понятия алгоритмического языка, Курсовая ... Set of 1..36; kol, l, i, n: Integer; begin Randomize; WriteLn('ВВЕДИ kol'); ReadLn(kol); nb:=[1..36]; for i:=1 to kol do begin k:=[]; for l:=1 to 5 do ...
... от 1 через 1 до n. Кроме того, вводится понятие условной границы между блоками, при этом условная граница с номером 0 расположена перед блоком с ...


Классификация сейсмических сигналов на основе нейросетевых технологий [нестрогое соответствие]
Кибернетика, Классификация сейсмических сигналов на основе нейросетевых технологий, Диплом ... признаков, стохастического расстояния Кульбака-Махаланобиса D(k) между распределениями вероятностей векторов xsj(k): D(k)= (m(k,1) - m(k,2))T S-1n1+n2 ...
... n1 и x2j(k) j(1,n2 1го и 2-го классов, S-1n1+n2 (k) - (k(k)- мерная обратная выборочная матрица ковариаций, вычисленная с использованием всего набора ...