Похожие работы на «Из опыта создания универсальных тестовых редакторов »

Из опыта создания универсальных тестовых редакторов
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... на экран} Read(c,b); Write(b); End; Readln(c); Writeln; while not EOLN(c) do Begin Read(c,b); Write(b); End; Readln(c); Writeln; Writeln('Заменить
... окна ответов} TextBackGround(black); clrscr; Writeln(a1,b); repeat while not EOLN(c) do Begin {дозапись значений} Read(c,b); Write(y,b); End; Readln(c ...


Программа эмуляции развития популяций животных
Зоология, Программа эмуляции развития популяций животных, ... 2,3); write('B'); txt(white); -20- writeln('east of prey'); txt(yellow); gotoxy(2,4); write('E'); txt(white); write('nvironment'); end; {*} procedure ...
... or (key='H') then begin herb; window(40,10,80,25); fon(black); clrscr; info; omenu; end; if (key='B') or (key='b') then begin beast; window(40,10,80, ...


Программа эмуляции развития популяций животных
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... or (key='H') then begin herb; window(40,10,80,25); fon(black); clrscr; info; omenu; end; if (key='B') or (key='b') then begin beast; window(40,10,80, ...
... begin gotoxy(x1,i); write(a); gotoxy(x2,i); write(a); end; gotoxy(x1,y2); write(d); for i:=(x1+1) to (x2-1) do write(f); write(c); hiddencursor; end; ...


Обработка экономической информации средствами языка Pascal
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... nn; end; writeln; writeln('Изменить расход? (y/n)');c:=readkey; if c=#121 then begin write('Вводим новое:'); read(nn);a.e3:=nn; end; writeln; writeln( ...
... nn; end; writeln; writeln('Изменить расход? (y/n)');c:=readkey; if c=#121 then begin write('Вводим новое:'); read(nn);a.e3:=nn; end; writeln; writeln( ...


Паскаль (практическое использование)
Программирование и комп-ры, Паскаль (практическое использование), Реферат ... 80 do write('#'); writeln; end; { Процедура вывода ошибки } Procedure Error; begin TextBackground(0); TextColor(4); CLRSCR; Gotoxy(10,13); Writeln('ВЫ ...
... Описания раздела переменных} D:record end; f:text; { файл итогов опроса} a,b:integer; {переменные a,b - целого типа} m,n,o,i:string; {переменные m,n,o ...


Автоматическое рабочее место для работника склада [нестрогое соответствие]
Программирование и комп-ры, Автоматическое рабочее место для работника склада, Курсовая ... Запуск новой записи} Prishlo(Curs+stran-1); Window(1,1,80,25); end; 3:begin Window(16,12,66,15); Textbackground(0); clrscr; Window(14,11,64,14) ...
... 1; curs:=1; end; Vivlist(stran,curs); Window(1,1,80,25); end; 5:begin {Сортировка} Window(16,12,66,14); Textbackground(0); clrscr; Window(14,11,64,13) ...


Модули, записи и файлы [нестрогое соответствие]
Программирование и комп-ры, Модули, записи и файлы, Курсовая ... полные сведения о предприятиях, которые не ") ; writeln ("начисляли налоги в отчетный период.") ; window(1, 1, 80, 25); gotoxy(10, 24); textcolor (4 ...
... 2 - Начислено налогов в отчетный период ") ; writeln ("3 - Уплачено налогов в отчетный прериод ") ; writeln ("4 - Сведения на конец отчетного преиода ...


Создание текстового редактора в Turbo Pascal [нестрогое соответствие]
Программирование и комп-ры, Создание текстового редактора в Turbo Pascal , Работа Курсовая ... F4} gotoxy(2,21); write(' '); gotoxy(2,21); write('Введите новое имя файла:'); readln(new_name); assign(f1,name); rename(f1,new_name); gotoxy(2,21) ...
... c5); for w:=2 to 79 do begin gotoxy(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(' a='); If Data=1 then begin a:=1; Write(a:1:0); WriteLn; end else ReadLn(a); Write(' b='); If Data=1 then begin b:=1; Write(b:1:0); WriteLn; ...
... v='); If Data=1 then begin v:=0.001; Write(v:1:3); WriteLn; end else ReadLn(v); Write(' Alfa-1='); If Data=1 then begin Alfa_1:=1; Write(Alfa_1:1:0) ...


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... Blank; If not (s[i]='>') Then Begin Error(2); Goto New; End Else{записываем нетерминал} Begin NotT.Name:='<'+term+'>'; If Search(NotTerminalL,NotT)>0 ...
... NotT);{в общий список теминалов&нетерминалов} inc(CTrmNotTrm); End; Blank; Goto OrS; End Else Begin Error(8);{нет нетерминала или терминала} Goto New; ...