Похожие работы на «Лабораторная работа № 16»

Лабораторная работа № 16
Программирование и комп-ры, Лабораторная работа № 16, Реферат ... а') or (sl[1]='е') or (sl[1]='ё') or (sl[1]='и') or (sl[1]='о') or (sl[1]='у') or (sl[1]='ы') or (sl[1]='э') or (sl[1]='ю') or (sl[1]='я') then k1:=k1 ...
... s); i:=i+1; sl[i]:=copy(s,1,k-1); delete(s,1,k); until s=''; for j:=1 to i do begin sravn(sl[j],k1); if ok then if k1>ko then ko:=k1; if not ok then


Касса аэропорта [нестрогое соответствие]
Программирование и комп-ры, Касса аэропорта , Работа Курсовая ... ff:file of airport; i,i1,f:integer; buf:airport; k:char; name:string[30]; begin clrscr; writeln(' Поиск информации о пассажире:'); writeln(' Введите Ф ...
... write('Рейс записан в базу данных!'); end else begin clrscr; gotoxy(30,12); write('Запись в базу отменена!'); end; delay(9999); delay(5000); until (ch ...


Автоматическое рабочее место для работника склада [нестрогое соответствие]
Программирование и комп-ры, Автоматическое рабочее место для работника склада, Курсовая ... Bas.kol>List[j].kol then begin Bas:=List[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 ...
... 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]; List[i ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... 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) ...
... mod 400)<>0 then DayInMonth:=28 else DayInMonth:=29 end; Function DayDiffer(A,B:dat):Integer; Var m1,m2,y1,y2:Integer; Begin DTErr:=false; y1:=A.year; ...


10 задач с решениями программированием на Паскале [нестрогое соответствие]
Программирование и комп-ры, 10 задач с решениями программированием на Паскале , Задачи ... type m=array[1..100] of integer; var A:m; procedure vvod(m:integer;var x:m); var i: integer; begin writeln('введите элементы массива'); for i:=1 to m ...
... 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 ...


Операции многократной точности (операции с длинными числами) [нестрогое соответствие]
Программирование и комп-ры, Операции многократной точности (операции с длинными числами) , Работа Курсовая ... b[i]); k:=k+ost; ost:=0; if k>9 then begin ost:=k div 10; k:=k mod 10; end; c[j]:=inttostr(k)[1]; j:=j-1; end; if ost>0 then begin tmp2:=inttostr(ost) ...
... potom *, potom /, potom +, potom -} k:=0; for i:=1 to mas[z].dl-1 do if mas[z].lin[i]='(' then k:=k+1; if k>0 then begin k2:=0; for i:=1 to mas[z].dl- ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... x>=242)and(x<=272) then col:='Сентябрь'; if (x>=273)and(x<=303) then col:='Октябрь'; if (x>=304)and(x<=335) then col:='Ноябрь'; if (x>=336)and(x<=365) ...
... IF COL=3 THEN COLO:='ГОЛУБОЙ'; IF COL=4 THEN COLO:='КРАСНЫЙ'; IF COL=5 THEN COLO:='ФИОЛЕТОВЫЙ'; IF COL=6 THEN COLO:='КОРИЧНЕВЫЙ'; IF COL=7 THEN COLO: ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... 0; y1:=y1-1; end; if m<=0 then break; until x1=m end; end; end; {*} procedure tmor;{мор травоядных} begin y:=g-x; if x>0 then begin repeat j:=random(g ...
... ЧЕРНЫЙ'; IF COL=1 THEN COLO:='СИНИЙ'; IF COL=2 THEN COLO:='ЗЕЛЕНЫЙ'; IF COL=3 THEN COLO:='ГОЛУБОЙ'; IF COL=4 THEN COLO:='КРАСНЫЙ'; IF COL=5 THEN COLO: ...


Программная система обработки и анализа изображений [нестрогое соответствие]
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая ... Rand - Kx*(Rand div Kx)) *dx; x := K + xStart + 1 + (x-xStart+1) / Kx; K := (Rand div Kx)*dy; y := K + yStart + 1 + (y-yStart+1) / Ky; Image.Canvas. ...
... 0; y := 0; z := 0; Randomize; for k := 1 to 15000 do begin b[k] := Random(10); if b[k] > 3 then b[k] := 1; end; { for k } i := 1; { b[i] := 1;} for i ...


Расчет сетевой модели методом Форда (с программой) [нестрогое соответствие]
Программирование и комп-ры, Расчет сетевой модели методом Форда (с программой), Курсовая ... cursor-1)*25,menu[menulevel,cursor]); pressed:=readkey; if pressed=#0 then begin pressed:=readkey; move:=false; if (pressed=#80) and (cursor=nline) ...
... cursor=1) and (menulevel=3) then keyboard_input; if (cursor=1) and (menulevel=4) then begin closegraph; halt; end; if (cursor=2) and (menulevel=1) and ...