Рекурсия
Кибернетика, Рекурсия, Реферат ... i-1); writeln(i:3); end; (* Рекурсия *) procedure schleife(i:integer); var k:integer; bagin k :=1; while k <= i do begin write(k:3); k :=k+1; end; end ...
... b; a := b; b :=c; end; fibit :=c; end; end; begin clrscr; write("n = "); readln(n); writeln("Итеративно:",fibit(n):5); writeln("рекурсивно:"); write( ...



Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... For I:=1 to MClass do If P^.class[I] then Read(Source,Q^.Way[K].cost[I]) else Q^.Way[K].cost[I]:=0; If (J mod 4)=0 then begin If (J<>P^.TotalStation) ...
... При данных условиях добраться нельзя') else writeln('Всего ',k,' маршшрутов'); end; Begin List:=Load(nil,'trafic',city); graphout(city); repeat until ...



Программирование на языке Турбо Паскаль [нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие ... i:=1; p:=l; while (i<>num)and(p<>nil) do begin i:=i+1; p:=p^.next; end; if p<>nil then begin if p^.next<>nil then begin q:=p^.next^.next; dispose(p^ ...
... if (p<>nil)and(p^.next<>p) then begin q:=p^.next^.next; dispose(p^.next); p^.next:=q; q^.prev:=p; end; end; {Вставить перед указанным:} procedure ...



Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... z:=p*100 div z; {расчет количества правильных ответов} Writeln('количество правильных ответов: ',p); Write('оценка '); {выставление оценки} If z>=90 ...
... TextColor(green); Write('Печать'); End; 60:Begin TextColor(green); Write('Выход'); End; End; End; Procedure panel.right; {процедура сдвига окна выбора ...



Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология [нестрогое соответствие]
Программирование и комп-ры, Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология , Работа Курсовая ... semicolon]) AND (k<6) do k:= succ(k); if Line[k] <> semicolon then begin Appropriate := true; if Line[k] = colon then begin CharPos := k + 1; end end
... f_out, 'SS:'); Prefix := NoPrefix end; DS: begin write(f_out, 'DS:'); Prefix := NoPrefix end; end; end; write(f_out, Operand2); end else write(f_out, ...



Защита данных от несанкционированного доступа [нестрогое соответствие]
Программирование и комп-ры, Защита данных от несанкционированного доступа, Курсовая ... из исходного файла блок размером 64*word} for i:=1 to 64 do If EOF(InpF) then MasByte[i] := 0 else Read(InpF, MasByte[i]); Mas := MasByte; T[0] := ord ...
... 2], 1); for i := 1 to 3 do begin BlockRead(F[k, 1], tmp, 1, NumRead); BlockWrite(F[k, 2], Inden[k, i], 1, NumWritten); end; BlockRead(F[k, 1], M, Size ...



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



Поиск в ширину на графах [нестрогое соответствие]
Программирование и комп-ры, Поиск в ширину на графах, Курсовая ... m[i]); inc(kolvo); m[i]^.inf:=ver[j]; m[i]^.next:=lst[i]; lst[i]:=m[i]; end; Er: end; end; writeln; if mgsi then {ВЫВОД СВЯЗЕЙ ВЕРШИН} for i:=1 to raz ...
... на печать измеренного интервала в секундах и сообщения через переменную Msg} begin write('Момент запуска: '); format(hour_start, min_start, sec_start, ...



Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... Blank; If not (s[i]='>') Then Begin Error(2); Goto New; End Else{записываем нетерминал} Begin NotT.Name:='<'+term+'>'; If Search(NotTerminalL,NotT)>0 ...
... and (l^.Name<>x.Name) Do l:=l^.Next; If l<>Nil Then Begin new(q); q^.Name:=d.Name; q^.Next:=l^.Next; l^.Next:=q; End; End; End; Procedure Add_(ListLR: ...



10 задач с решениями программированием на Паскале [нестрогое соответствие]
Программирование и комп-ры, 10 задач с решениями программированием на Паскале , Задачи ... 0 then k:=k+1 else begin if x[i-1]=0 then if k>n then n:=k; k:=0;end; if k>n then writeln('самая большая последовательность нулей состовляет ',k) else ...
... будет выглядеть так:'); reset(f); while not eof(f) do begin readln(f,s); writeln(s) end; close(f); end; begin writeln('введите кол-во строк в файле' ...