Лабы+Курсовик / Посохов / Lab001

{ Ќ ЇЁб вм Їа®Ја ¬¬г, ®ЇаҐ¤Ґ«пойго бЄ®«мЄ® а § ¬Ґ­пҐвбп §­ Є ў
Ї®б«Ґ¤®ў вҐ«м­®бвЁ зЁбҐ«, ўўҐ¤Ґ­­ле б Є« ўЁ вгал (­ ЇаЁ¬Ґа,
3, -5, 8, 6, -4, -2, 9 §­ Є ¬Ґ­пҐвбп 4 а § ). }
Program Znak;
Uses Crt; {Ї®¤Є«о祭ЁҐ ¬®¤г«Ґ©}
Const D=21; {¬ ЄбЁ¬ «м­л© а §¬Ґа ¬ ваЁжл}
Var FileName: file of LongInt;
{****************************************************************************}
Procedure NewFile;
Var X:LongInt;
BEGIN
WriteLn('‡ Ї®«­ЁвҐ д ©« 楫묨 зЁб« ¬Ё. „«п ®Є®­з ­Ёп § Ї®«­Ґ­Ёп ­ ¦¬ЁвҐ [Ctrl+Z]');
CheckEOF:=True;{‘®зҐв ­ЁҐ Є« ўЁи [Ctrl+Z] § ўҐаи Ґв ўў®¤ бва®ЄЁ Ё
ўла Ў влў Ґв ЇаЁ§­ Є Є®­ж  д ©« , Ґб«Ё §­ зҐ­ЁҐ ЇҐаҐ¬Ґ­­®© CheckEOF
¬®¤г«п Crt а ў­® TRUE. Џ® 㬮«з ­Ёо ®­® а ў­® FALSE.}
Repeat
ReadLn(X);
Write(FileName,X);
Until EOF;
END;
{****************************************************************************}
Function Counter:Integer;
Var K:Integer;
C:LongInt;
Flag:Boolean;
BEGIN
Counter:=0;K:=0;
Flag:=False;
Seek(FileName,0);{ЇҐаҐў®¤ гЄ § вҐ«п д ©«  Є ЇҐаў®© Є®¬Ї®­Ґ­вҐ}
Read(FileName,C);
If C>=0 Then Flag:=True;
While not EOF(FileName) do Begin
Read(FileName,C);
If Flag And (C<0) Then K:=K+1;
If Not Flag And (C>=0) Then K:=K+1;
If C>=0 Then Flag:=True Else Flag:=False;
End;
Counter:=K;
END;
{****************************************************************************}
BEGIN
ClrScr;
Assign(FileName,'Znak.lgi');
ReWrite(FileName);
NewFile;
WriteLN('‚ Ї®б«Ґ¤®ў вҐ«м­®бвЁ зЁбҐ« §­ Є ¬Ґ­пҐвбп ',Counter,' а §!');
ReadKey;
Close(FileName);
Erase(FileName);
END.