- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
unit uncrt;
interface
procedure ClrScr;
procedure Sound(Hz: Word);
procedure NoSound;
procedure TextColor(Color: Byte);
procedure TextBackground(Color: Byte);
var
TextAttr: Byte; { Для особо продвинутых случаев }
implementation
procedure ClrScr;
begin end;
procedure Sound(Hz: Word);
begin end;
procedure NoSound;
begin end;
procedure TextColor(Color: Byte);
begin end;
procedure TextBackground(Color: Byte);
begin end;
end.
Убого и уныло
Диагноз: Школьник обыкновенный.
можно было написать implementation: integer;
не считала синтаксической ошибкой. и такая тема была :)
предложенная обманка это для продвинутых, но она не сработает, потому что они как минимум про bel знают (а worst-case -- умеют дудеть через порты)
А через порты... Надоел мне как-то стандартный keyb.com, и я HEX-редактором выгрыз из него обращения к заветным портам.
Два варианта:
1. Наговнокодить постпроцессор для exe, заменяющий обращения к портам дуделки NOPами.
2. Вырвать дуделку (жестокий препод может вырвать дуделку студенту).
P.S. Была ещё резидентная программа, затыкающая динамик через определённые промежутки. Прощай, многозадачность!
Хотя можно халтурку взять... А чё, чем я хуже.
я проработал только полгода преподом в универе. Вел паскаль - основы, как общеобразовательный курс. Смысла в нем не вижу никакого, т.к. студенты были экономической специальности. 50% не понимала программирование в принципе - оно им не надо было.
не совсем гумманитарная,
во многом - все логично (после того, как обяснят).
но я ее сам не понимаю:(
Пожелаю, чтоб повезело - попалось парочка заинтересованных учеников:)
1 это нормальная закономерная часть развития экономики. как-то можно предскавить чем-то вроде y = -|tgx|, ну там доработать напильником
2 это заговор!!!!!111одинодин
3 кто-то на бирже хорошо сыграл. но долго вычисляли, так что врядли
4 ну и вами предложенная