Похожие работы на «Турбо Паскаль 7.0»

Турбо Паскаль 7.0
Программирование и комп-ры, Турбо Паскаль 7.0, Реферат ... 20) then begin WriteLn (Reply21); WriteLn (Reply22) end; if (20 <= Age) and (Age < 40) then WriteLn(Reply3); if Age >= 40 then WriteLn(Reply4) end.
... суммы очков игрока} Writeln('y Вас всего ', SumYour,' очков.'); {вывод суммы очков} if SumYour >= MaxSum then Вгеаk{прекращение игры при переборе} end ...


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


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... цену за 1 шт? (y/n)');c:=readkey; if c=#121 then begin write('Вводим новое:'); read(o);a.e4:=o; end; write(f,a); Вывод сообщение и задержка программы ...
... Co80); l:=4; goto menu2; end; end; end else {-редактирование- -} if l=5 then begin view(27); textcolor(15); writeln('Продолжить? (y/n)'); c:=readkey; ...


Касса аэропорта [нестрогое соответствие]
Программирование и комп-ры, Касса аэропорта , Работа Курсовая ... Удаление отменено! '); delay(9999); delay(5000); end; procedure search_pass; var ff:file of airport; i,i1,f:integer; buf:airport; k:char; name:string[ ...
... eof(ff); close(ff); if f=0 then begin writeln('Рейс не найден!'); delay(9999); delay(5000); end; end; procedure new_base; var ff:file of airbase; k


Программатор ПЗУ (программный интерфейс) [нестрогое соответствие]
Программирование и комп-ры, Программатор ПЗУ (программный интерфейс), ... inc(l1,16); p:=320+(p and 15); goto RePaINt; end; end; $48: begin if (p>15)or(l1<>0)then dec(p,16); if p<0 then begin dec(l1,16); p:=p and 15; goto ...
... p>0)or(l1<>0)then dec(p); if p<0 then begin dec(l1,16); p:=15; goto RePaINt; end; end; $49: begin if (l1>319) then begin dec(l1,320) end else l1:=0; ...


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


Программ-игра "Морской бой", с использованием анимированных графических объектов и возможностью управлять их движением с помощью клавиатуры [нестрогое соответствие]
Программирование и комп-ры, Программ-игра "Морской бой", с использованием анимированных графических объектов и возможностью управлять их движением с ... ... crx,cr_type,false); | |if promah then promah:=false; | |end else begin | |if cr_ind mod cr_type*5=0 then begin | |if promah then begin | |if flang=0 ...
... tarx:=tarx+5; | |b:=true; | |end; | |end; | |#32: begin {пробел "Выстрел"} | |if not fire then begin | |x:=800; | |fire:=true; | |fx:=tarx; | |fy:=380 ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... 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); tt:=tt ...
... ЧЕРНЫЙ'; 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: ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... 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); tt:=tt+1; for i:=j+1 to g do ...
... 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: ...


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... 1); Goto New; End Else Begin inc(i); Blank; If not notTerminal(term) Then Begin Error(4); Goto New; End Else Begin{есть нетерминал} Blank; If not (s[i ...
... i); Goto More; End; Blank; If s[i]='|' Then Begin inc(i); Goto More; End; If i<=Len Then{не дошли до конца правила} Begin i:=i-Length(term); While s[i ...