program manum ; uses crt,mikhal; type Tfile=file of char; TInt=integer; TSymbol=char; Tstr=string; var filename:tstr; {} fm2:tstr; f:tfile; {fail} clik,ok:boolean; otvet:Tsymbol; ret:longint;{modul} n,a,i:tint;{kol-vo elementov v vodimiy fail} m:TSymbol; k:TSymbol; vib:TSymbol; s:TSymbol; {} r:longint; {} err:integer; {kod oshibkii} sf:text;{fail dlya sozdaniya rezultata} {**********************************} begin clik:=true; ok:=true; while clik do begin clrscr; writeln('1. generator faila'); writeln('2. vipolnenie zadaniya'); writeln('3. pokazat rezultat'); writeln('4. Vihod'); otvet:=readkey; case otvet of '1': begin clrscr; {$I-} repeat writeln('Vvedite pogalusta gelaemoe kol-vo simvolov'); readln(a); until (ioresult=0) and (a>0); {$I+} writeln('Vvedite imya faila: '); readln(filename); repeat writeln('Pogaluysta viberete iz 2 vozmognih varianta zapolneniya faila: '); writeln('1. sluchaynim proizvolnim obrazom'); writeln('2. S klaviaturi'); readln(vib); until(vib='1') or (vib='2'); assign(f,filename); rewrite(f); if vib='1' then begin randomize; for i:=1 to a do begin n:=random(200); k:=chr(n); write(f,k); end; end; {--} if vib='2' then begin for i:=1 to a do begin write('Vvedite znachenie',i,'togo simvola'); readln(m); write(f,m); end; end; close(f); assign(f,filename); reset(f); writeln; while not eof(f) do begin read(f,k); write(k); end; readln; close(f); END; '2': begin repeat clrscr; writeln('vvedite pogaluysta imya faila: '); repeat readln(filename); until not (filename=''); if not (filename='exit') then begin err:=0; {$I-} err:=main(filename,ret); {$I+} clrscr; if paramcount=0 then begin Writeln('Vvedite imya faila dlya sohraneniya: '); readln(fm2); end else filename:=Paramstr(1); assign (sf,fm2); {$I-} append(sf); {$I+} if IoResult<>0 then begin rewrite(sf); close(sf); end; append(sf); writeln(sf,'Fail',fileName); writeln(sf); case err of 0: Begin WriteLn ('Наибольшее число раз встречается символ '); WriteLn ('и количество его включений равно ',ret); WriteLn (sf,'Наибольшее число раз встречается символ '); WriteLn (sf,'и количество его включений равно ',ret); End; -1: Begin WriteLn ('Искомый файл отсутствует'); WriteLn (sf,'Искомый файл осутствует'); End; -2: Begin WriteLn ('Искомый файл не содержит символов'); WriteLn (sf,'Искомый файл не содержит символов'); End; -3: Begin WriteLn ('Искомый файл пуст'); WriteLn (sf,'Искомый файл пуст'); End; -4:begin writeln('Цифры короче нет'); end; End; ReadKey; End Until filename='exit'; End; '3': {rezultat}begin end; '4': clik:=false; end; end; end. {**********************************} }