RSS    

 :

Writeln(chr(187)); { }

For a:=1 to (y1-y-1) do Begin { }

Write(' ');

Write(chr(186));

For t:=1 to (x1-x-3) do Write(' ');

Writeln(chr(186));

End;

Write(' ');

Write(chr(200)); { }

For a:=1 to (x1-x-3) do Write(chr(205)); { }

Write(chr(188)); { }

Window(x+2,y+1,x1-2,y1-1); { }

TextColor(black);

End;

: Window . () . , , , , ?

:

Window(10,22,69,22); { }

TextBackGround(green); { }

clrscr; { }

. .

, case. . : , . , .

, . . , .

Procedure NewF;

Var h1:string; { }

Begin

Window(10,10,53,15);

TextBackGround(black);

clrscr;

Window(20,10,66,15); { }

TextBackGround(blue);

clrscr;

TextColor(black);

Write(' ');

Readln(a); { }

a:=a+'.ts'; { }

h1:=a;

Assign(c,a); { }

a:=a+'o'; { }

Assign(u,a); { }

Rewrite(c);

Rewrite(u);

Window(20,10,66,15); { }

TextBackGround(black);

clrscr;

Window(30,5,50,10); { }

TextBackGround(yellow);

clrscr;

GoToXY(30,6);

Write('- ');

Readln(d); { }

Writeln(c,' ',d);

GoToXY(30,8);

Writeln(' '); { }

Readln(f);

Writeln(c,f);

Writeln(' ');

Readln(f); { }

Writeln(u,f);

Window(30,5,50,10);

TextBackGround(black);

clrscr;

For i:=1 to d do Begin

Writeln(c);

Window(10,10,53,20); { }

TextBackGround(lightgray);

clrscr;

Writeln(i,'- : ');

Readln(a); { }

Str(i,f);

f:=f+')'; { }

Writeln(c,f);

Writeln(c,a);

Window(55,10,80,15); { }

TextBackGround(cyan);

clrscr;

Write(' ',i,'- ');

Readln(e); { }

Window(10,10,53,20); { }

TextBackGround(lightgray);

clrscr;

For j:=1 to e do Begin

Write(' ',j,')');

Readln(a); { }

Str(j,f);

a:=' '+f+')'+a;

Write(c,a);

End;

Write(c,'&'); { }

Window(55,10,80,15);

TextBackGround(cyan); { }

clrscr;

Write(' : ');

Readln(b); { }

Writeln(u,b);

End;

close(u); { }

Reset(u);

Readln(u);

close(c);

Window(55,10,80,15);

TextBackGround(black);

clrscr;

End;

, , , . -, . qs, - qso. , , . & , . , ( ), . , , . . . : , , . , . . .

, , . , . : $I-, IORESULT=0, $I+. , . .

. , , . . :

Procedure OpenF;

label l1;

Var f1:string; { }

Begin

p:=0;

Window(10,10,53,15);

TextBackGround(black);

TextColor(black);

clrscr;

Window(20,10,66,15); { }

TextBackGround(blue);

clrscr;

Writeln(' ');

Readln(a); { }

a:=a+'.ts'; { }

Assign(c,a); { }

f1:=a;

a:=a+'o'; { }

Assign(u,a); { }

delete(a,length(a),1);

Assign(b1,'c:\pascal\registr.dat'); { }

Append(b1); { }

Reset(c); { }

Window(20,10,66,15); { }

TextBackGround(black);

clrscr;

Reset(u);

Read(c,b); { }

Readln(c,b);

z:=ord(b)-ord('0'); { }

z1:=z;

Window(10,10,40,12); { }

TextBackGround(magenta);

clrscr;

Readln(u,a);

If length(a)>2 Then Begin{ }

Write(' ');

Readln(f); { }

If a<>f Then Begin

Write(' ');

GoTo l1; { }

End;

End

else Begin

close(u);

Reset(u);

End;

Readln(c,f);

Writeln(' "',f,'"'); { }

z2:=60;

repeat

Window(60,20,70,21); { }

TextBackGround(black);

clrscr;

TextColor(yellow);

z2:=z2-1; { }

If z2<0 Then Begin

z1:=z1-1;

z2:=60;

End;

If (z1=0)and(z2=0) Then GoTo l1;

Writeln(z1,':',z2);

GetTime(g1,g2,g3,g4); { }

Write(g1,':',g2,' ',g3);

Delay(1000);

TextColor(black);

Window(10,10,53,15); { , }

TextBackGround(cyan);

clrscr;

while not Eoln(c)or(b<>'&') do Begin

Read(c,b);

If b<>'&' Then Write(b);

End;

Writeln;

Window(55,10,80,15); { }

TextBackGround(blue);

clrscr;

Write(' ');

TextColor(yellow);

repeat{}

Window(60,20,70,21);

TextBackGround(black);

clrscr;

z2:=z2-1;

If z2<0 Then Begin

z1:=z1-1;

z2:=60;

End;

If (z1=0)and(z2=0) Then GoTo l1;

GetTime(g1,g2,g3,g4);

Writeln(z1,':',z2);

Write(g1,':',g2,' ',g3);

Delay(1000);

until keypressed;

Window(55,10,80,15);

TextBackGround(blue);

clrscr;

TextColor(yellow);

b:=readkey; { }

Write(b); { }

Readln(u,k);

Readln(c);

If k=b Then p:=p+1; { , }

Window(60,20,70,21);

TextBackGround(black); { }

clrscr;

TextColor(black);

z2:=z2-1; {}

If z2<0 Then Begin

z1:=z1-1;

z2:=60;

End;

If (z1=0)and(z2=0) Then GoTo l1;

GoToXY(70,15);

GetTime(g1,g2,g3,g4); { }

Writeln(z1,':',z2);

Write(g1,':',g2,' ',g3);

Delay(1000);

until Eof(c);

l1:f1:=f1+'o';

close(c); { }

close(u);

Window(55,10,80,15); { }

TextBackGround(black);

clrscr;

Window(10,10,53,15);

TextBackGround(black);

clrscr;

Window(15,10,50,19);

TextBackGround(blue);

clrscr;

< >

End;

. , , , .

!!! , Disk Read Error!!!

. .

. . . , , , . , . , , , , . , :

Procedure RedactF;

Begin

Window(10,10,53,15);

TextBackGround(black);

TextColor(black);

clrscr;

Window(20,10,66,15); { }

TextBackGround(blue);

clrscr;

Writeln(' ');

Readln(a); { }

a2:=a;

Window(20,10,66,15); { }

TextBackGround(black);

clrscr;

Assign(c,a); { }

a:=a+'o'; { }

Assign(u,a); { }

delete(a,length(a),1);

a:=a+'1'; { }

Assign(y,a); { }

delete(a,length(a),1);

a:=a+'2'; { }

Assign(a1,a); { }

Reset(c); { }

Reset(u);

Rewrite(y);

Rewrite(a1);

Window(5,5,50,20); { }

TextBackGround(lightgray);

clrscr;

Writeln(' Enter:');

repeat

while not Eoln(c)or(b<>'&') do Begin { Enter}

Read(c,b);

If b<>'&' Then Write(b);

End;

Readln(c);

Readln;

until EOF(c);

close(c); { }

Reset(c);

Window(5,5,50,20); { }

: 1, 2, 3


:

Twitter Facebook

                 

© 2010.