Begin

RdKey:Action := ReadKey;

if (Action<>#27)and(Action<>#32) then goto RdKey else

Begin

if Action = #27 then

Begin

ConfirmExit(Exit);

if Exit=Truethen Halt(1) else

Begin

NormViDeo;

ClrScr;

RichWindow(1,1,80,24, 2, 'Info about Prizma', 14, Green, True);

ProgressBar(Page);

if Action = #32 then Begin end;

end;

GotoXY(1,1);

end;

end;

RichWindow(1,1,80,24, 2, 'Info about Prizma', 14, Green, True);

Page:=Page+3;

ProgressBar(Page);

X:=3;Y:=2;

GotoXY(X,Y);

End;

NormVideo;

END;

if EOF(F)then

Begin

ReadKey;

TMus(Beep);

RichWindow(20,10,58,17, 2,'[Message]',14,blue,true);

TextBackGround(blue);

TextColor(14);

OutTxt('');

OutTxt('Thtat''s All!');

ReadKey;

end;

end;

Procedure WinHelp;

Var

F:Text;

St1:String;

X,Y:byte;

Begin

X:=20;

Y:=5;

{$I-} Assign(F,'data\text\help.txt');

Reset(F);

{$I+} if IOREsult <> 0 then ErrorFile('help.txt')

else

while not EOF(F) do

Begin

ReadLn(F,St1);

GotoXY(X,Y);

Writeln(St1);

Y:=WhereY;

end;

end;

Procedure KursInfo;

Var

F:Text;

St1:String;

X,Y:byte;

Begin

X:=17;

Y:=7;

{$I-} Assign(F,'Data\text\kurs_inf.txt');

Reset(F);

{$I+} if IOREsult <> 0 then ErrorFile('kurs_inf.txt') else

Begin

while not EOF(F) do

Begin

ReadLn(F,St1);

GotoXY(X,Y);

Writeln(St1);

Y:=WhereY;

end;

end;

end;

{-----------------------------------------------}

Procedure TestFiltr(Var Str:String);

Var i:1..3;

Ch:Char;

wX,wY:byte;

Begin

wX:=WhereX;

wY:=WhereY;

if Str[1]='+'then

Begin

TextColor(Green);

GotoXY(WhereX+15,WhereY);

end;

if Str[1]='-'then

Begin

RichWindow(68,3,78,7, 2,'', 14, Green, True);

TextBackGround(Green);

TextColor(14);

Write (Str[2],Str[3],' z 15');

GoToXY(wX,WY);

NormVideo;

TextColor(Red);

end;

if Str[1]='#'then

Begin

GotoXY(WhereX,WhereY+5);

end;

for i:=Low(i)to High(i)do Str[i]:=' '

end;

Procedure Test;

Var

x,y:byte;

F:Text;

Str:String;

Ch,Ansv:Char;

i:1..15;

Resultat:TResult;

Begin

With Resultat do

Begin

try:=0;

folse:=0;

Mark:=1.00;

end;

{$I+}Assign(F,'data\Text\test.txt');

{$I-} Reset(F);

if IORESULT <> 0 then ErrorFile('test.txt')

else

Begin

NormVideo;

RichWindow(4,4,76,22, 0 ,'Test', 14, Black, True);

i:=1;

while not EOF(F)do

Begin

GotoXY(WhereX+10,WhereY);

Readln(F,Str);

if Str[Length(Str)]='+' then

Begin

ch:=Str[4];

Str[Length(Str)]:=' '

end;

if Str[1]='&' then

Begin

TextColor(14);

TimeTo(65,22);

if ch = 'h' then

Begin

GotoXY(1,1);

write('!!!!!!!');

end;

Ansv:=ReadKey;

if Ansv=ch then

Begin

NormVideo;

Begin

TMus(Beep);

RichWindow(18,10,58,18, 2,'[OK!]',7,Green,true);

TextBackGround(Green);

TextColor(7);

OutTxt('');

OutTxt('"'+ch+'" it''s true ! ! ! ');

Resultat.try:=Resultat.try+1;

Write('you have ', Resultat.try, ' corect ansvers!');

GotoXY(1,1);

REadKey;

end;

end else

Begin

Begin

TMus(Error);

if Ansv = #27 then

Begin

with Resultat do

Begin

try:=0;

folse :=0;

Mark :=0;

end;

Exit;

Main(False,True,True);

end;

Характеристики работы

Реферат

Количество страниц: 53

Бесплатная работа

Закрыть

Учебно контролирующая программа Призма

Заказать данную работу можно двумя способами:

  • Позвонить: (097) 844–69–22
  • Заполнить форму заказа:
Не заполнены все поля!
Обязательные поля к заполнению «имя» и одно из полей «телефон» или «email»

Чтобы у вас была возможность удостовериться в наличии вибраной работы, и частично ознакомиться с ее содержанием,ми можем за желанием отправить часть работы бесплатно. Все работы выполнены в формате Word согласно всех всех требований относительно оформления работ.