Похожие работы на «Программирование с использованием генератора случайных чисел»

Программирование с использованием генератора случайных чисел
Программирование и комп-ры, Программирование с использованием генератора случайных чисел, Курсовая ... 72: if j>1 then j:=j-1; #80: if j<32 then j:=j+1; #27: exitpar:=true; end; for i:=1 to 19 do begin gotoxy(2,i+4); if i+j-1<10 then write(' ',i+j-1, ...
... 1]:=light; button:=1; end; end; #75: begin if button>1 then begin col[button]:=dark; button:=button-1; col[button]:=light end else begin col[1]:=dark; ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... Way[K].cost[I]) else Q^.Way[K].cost[I]:=0; If (J mod 4)=0 then begin If (J<>P^.TotalStation) then begin New(Q^.Next); Q:=Q^.next end else Q^.next:=nil ...
... c>=0) and (c<=9) then begin S:=c; inc(mode) end else if (c<=9) and (c>=0) then S:=S*10+c else if (mode mod 2)=1 then begin Add(mode,S,a); Inc(mode) ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... Writeln('5') Writeln(b1,"5"); End; else If z>=70 Then Begin Writeln('4') Writeln(b1,"4"); End; else If z>=40 Then Begin Writeln('3') Writeln(b1,"3" ...
... TextColor(green); Write('Печать'); End; 60:Begin TextColor(green); Write('Выход'); End; End; End; Procedure panel.right; {процедура сдвига окна выбора ...


Касса аэропорта [нестрогое соответствие]
Программирование и комп-ры, Касса аэропорта , Работа Курсовая ... номер рейса-'); writeln(' Подтверждение д/н-'); with buf do begin gotoxy(29,2);readln(fio); gotoxy(29,3);readln(pasp); gotoxy(29,4);readln(city) ...
... Пассажир-"',name,'"-был удалён! '); f:=1; end else begin i:=j; f:=2; end; end; i:=i+1; until (i=j+1) or (f=1); if f=1 then begin assign(ff,'airport. ...


Циклические коды [нестрогое соответствие]
Программирование и комп-ры, Циклические коды, Курсовая ... i1; while((Kol>0)and(j>=0))do begin r2[Kol-1]:=m2[j]; dec(Kol); dec(j); end; if((j=-1)and(Kol=0)) then begin for i:=n1 downto 0 do r2[i]:=r2[i] xor p2 ...
... x2-x1-1 do begin GotoXY(x1+i,y1); Write(BorderChar[Bord,2]); end; GotoXY(x2,y1); Write(BorderChar[Bord,3]); for i:=1 to y2-y1-1 do begin GotoXY(x1,y1+ ...


Расчет сетевой модели методом Форда (с программой) [нестрогое соответствие]
Программирование и комп-ры, Расчет сетевой модели методом Форда (с программой), Курсовая ... i:=1 to yyy-1 do for j:=1 to xxx do begin pixel(j*2+xx1,i*3+yy1,col[fire1[i,j]]); pixel(j*2+xx1,i*3+yy1-1,col[fire1[i,j]]); pixel(j*2+xx1,i*3+yy1-2, ...
... begin for j:=nline*30+10 downto 1 do begin setcolor(0); line(210,110+j,470,110+j); line(200,100+j,210,100+j); setcolor(8); if j<10 then begin setcolor ...


Автоматическое рабочее место для работника склада [нестрогое соответствие]
Программирование и комп-ры, Автоматическое рабочее место для работника склада, Курсовая ... j]; k:=j end; 3: if Bas.price>List[j].price then begin Bas:=List[j]; k:=j end; 5: if Bas.kol_p>List[j].kol_p then begin Bas:=List[j]; k:=j end; 6: if ...
... Bas.kol_r>List[j].kol_r then begin Bas:=List[j]; k:=j end; 8: if Bas.date_r>List[j].date_r then begin Bas:=List[j]; k:=j end; end; end; List[k]:=List[ ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... i:=1 to m do begin hr[i].init(0,0,0,0); hr[i].done; end; end; if (x10) then begin repeat j:=j+1; if hr[j].daiage=y1 then begin hr[j].done; hr[j].init
... until x1=m end; end; end; {*} procedure tmor;{мор травоядных} begin y:=g-x; if x>0 then begin repeat j:=random(g)+1; tg[j].done; tg[j].init(0,0,0,0) ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... if x1=0 then begin for i:=1 to m do begin hr[i].init(0,0,0,0); hr[i].done; end; end; if (x10) then begin repeat j:=j+1; if hr[j].daiage=y1 then begin ...
... until x1=m end; end; end; {*} procedure tmor;{мор травоядных} begin y:=g-x; if x>0 then begin repeat j:=random(g)+1; tg[j].done; tg[j].init(0,0,0,0) ...


Разработка базы данных, отражающей учет успеваемости студентов [нестрогое соответствие]
Программирование и комп-ры, Разработка базы данных, отражающей учет успеваемости студентов , Работа Курсовая ... m.st[i]); end else begin if i=2 then textcolor(9) else textcolor(3); gotoxy(8,i+3);write(m.st[i]); end; end; end; procedure krutis; {Звездочка рядом с ...
... menu4; menus(nast,nast.m); tek:=2; end; 9: begin exist:=true; end; end; end else if nast.st[1]=menu3.st[1] then begin {Если текущее меню-menu3} case