Похожие работы на «Обработка экономической информации средствами языка Pascal»

Касса аэропорта
Программирование и комп-ры, Касса аэропорта , Работа Курсовая ... end; gotoxy(29,6);readln(k); if (k='д') or (k='Д') then begin clrscr; write(ff,buf); gotoxy(30,12); write('Пассажир записан в базу данных!'); end else ...
... gotoxy(29,2);writeln(buf.kuda); gotoxy(29,3);writeln(buf.time); gotoxy(29,4);writeln(buf.price); gotoxy(29,5);writeln(buf.model); gotoxy(29,6);writeln ...


Обработка экономической информации средствами языка Pascal
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... gotoxy(w-10,5);write('начало года'); gotoxy(w+9,3);write('Приход'); gotoxy(w+8,4);write('продукции'); gotoxy(w+11,5);write('шт'); gotoxy(w+18,4);write ...
... gotoxy(w-10,5);write('начало года'); gotoxy(w+9,3);write('Приход'); gotoxy(w+8,4);write('продукции'); gotoxy(w+11,5);write('шт'); gotoxy(w+18,4);write ...


Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология
Программирование и комп-ры, Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология , Работа Курсовая ... NoPrefix end; REPNZ:begin write(f_out, 'REPNZ '); Prefix := NoPrefix end; LOCK: begin write(f_out, 'LOCK '); Prefix := NoPrefix end; end; write(f_out, ...
... NoPrefix end; DS: begin write(f_out, 'DS:'); Prefix := NoPrefix end; end; end; write(f_out, Operand2); end else write(f_out, tab); end; if Comment ...


Защита данных от несанкционированного доступа
Программирование и комп-ры, Защита данных от несанкционированного доступа, Курсовая ... Password1) and (length(Password)<>0) then begin {Преобразовать файл} FindFirst(InputFileName, AnyFile, DirInfo); if DOSError = 0 then begin if DirInfo
... end; BlockWrite(Target,Buf,NumRead,NumWrite); If NumRead<>NumWrite then begin WriteLn; WriteLn('На диске не хватает места для записи'); SetIntVec($23, ...


Создание текстового редактора в Turbo Pascal [нестрогое соответствие]
Программирование и комп-ры, Создание текстового редактора в Turbo Pascal , Работа Курсовая ... for h:=24 downto 1 do begin gotoxy(w,h); write(c4); end; gotoxy(w,h); write(c3); for w:=78 downto 1 do begin gotoxy(w,h); write(c2); end; gotoxy(w,h
... 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)); end; gotoxy(w,20); write(c8) ...


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


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... S:=S*10+c else if (mode mod 2)=1 then begin Add(mode,S,a); Inc(mode) end; if (mode=2) then for j:=1 to 12 do if (mthe[j,1]=upcase(st[i])) and (mthe[j, ...
... add(mode,S,a); if mode<1 then add(1,D,a); if mode<3 then add(3,M,a); if mode<5 then add(5,Y,a); if not DTErr then DTErr:=a.day>DayInMonth(a.month,a. ...


Модули, записи и файлы [нестрогое соответствие]
Программирование и комп-ры, Модули, записи и файлы, Курсовая ... о предприятиях-задолжниках по уплате налогов ") ; writeln ; writeln ("Задание") ; writeln ("Выдавать полные сведения о предприятиях, которые не ...
... нажмите Enter ") ; readln ; textcolor (10) ; clrscr ; assign (f, table.txt) ; reset (f) ; writeln ("Cведения о предприятиях, которые не начисляли ...


Автоматическое рабочее место для работника склада [нестрогое соответствие]
Программирование и комп-ры, Автоматическое рабочее место для работника склада, Курсовая ... 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) ...


Поиск в ширину на графах [нестрогое соответствие]
Программирование и комп-ры, Поиск в ширину на графах, Курсовая ... поиска в ширину *'); textcolor(black); gotoxy(7,22); writeln('Created by Andrew Spikhailo'); gotoxy(15,24); write('ARMAVIR 2001'); textcolor(white) ...
... на печать измеренного интервала в секундах и сообщения через переменную Msg} begin write('Момент запуска: '); format(hour_start, min_start, sec_start, ...