Похожие работы на «Касса аэропорта »

Касса аэропорта
Программирование и комп-ры, Касса аэропорта , Работа Курсовая ... readln(k); if (k='д') or (k='Д') then begin clrscr; assign(ff,'airport.dat'); rewrite(ff); gotoxy(30,12); writeln('База АЭРОПОРТА очищена!'); close(ff ...
... price); gotoxy(29,5);writeln(buf.model); gotoxy(29,6);writeln(buf.klass); f:=1; readln; end; until eof(ff); close(ff); if f=0 then begin writeln('Рейс ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... часть маршрута - пустая}; {Вывод полученного множества маршрутов} End {Процедура поиска маршрута с данным шаблоном и уже построенной частью маршрута} ...
... 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) ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... 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: ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... ЧЕРНЫЙ'; 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: ...
... COLO:='СВЕТЛО-ГОЛУБОЙ'; IF COL=12 THEN COLO:='СВЕТЛО-КРАСНЫЙ'; IF COL=13 THEN COLO:='СВЕТЛО-ФИОЛЕТОВЫЙ'; IF COL=14 THEN COLO:='ЖЕЛТЫЙ'; -27- IF COL=15 ...


Создание текстового редактора в Turbo Pascal [нестрогое соответствие]
Программирование и комп-ры, Создание текстового редактора в Turbo Pascal , Работа Курсовая ... w,h); write(c2); end; gotoxy(w,h); write(c6); for h:=24 downto 1 do begin gotoxy(w,h); write(c4); end; gotoxy(w,h); write(c3); for w:=78 downto 1 do ...
... 1,20); write(c7); for w:=2 to 59 do begin gotoxy(w,20); write(c2); end; gotoxy(w,1); write(c10); for h:=2 to 24 do begin gotoxy(w,h); write(chr(179) ...


Численное решение модельного уравнения диссипации, конвекции и кинетики [нестрогое соответствие]
Математика, Численное решение модельного уравнения диссипации, конвекции и кинетики, Контрольная ... 8); Write('Введите номер выбранной функции (1-5):'); Metka1: ch:=ReadKey; If ch='1' then SelectFunction:=1 else If ch='2' then SelectFunction:=2 else ...
... Kol_voT:2); WriteLn; end else ReadLn(Kol_voT); WriteLn;WriteLn; WriteLn(' Введите коэффициенты'); Write(' a='); If Data=1 then begin a:=1; Write(a:1:0 ...


Семантический анализ структуры 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
... 0] := Chr(CharPos-k); Move(Line[k], Operand1[1], CharPos-k); end; 'W': if Operand1 = 'WORD' then begin TypeOverride := W; SkipBT; if Stop then goto ...


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


Разработка базы данных, отражающей учет успеваемости студентов [нестрогое соответствие]
Программирование и комп-ры, Разработка базы данных, отражающей учет успеваемости студентов , Работа Курсовая ... 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


Автоматическое рабочее место для работника склада [нестрогое соответствие]
Программирование и комп-ры, Автоматическое рабочее место для работника склада, Курсовая ... 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 ...
... date_r>List[j].date_r then begin Bas:=List[j]; k:=j end; end; end; List[k]:=List[i]; List[i]:=Bas; end; end; procedure Vivlist(var seek,curs:integer) ...