Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Informatika (2 семестр) / 2 аттестация / 5-я задача алфавит

.pas
Скачиваний:
6
Добавлен:
27.05.2015
Размер:
15.02 Кб
Скачать
program file4;

var f1:file of char;{дан файл символьного типа }
symbol, symbol1,symbol2,symbol3,symbol4,symbol5,symbol6,symbol7,symbol8,symbol9,symbol10,symbol11,symbol12,symbol13,symbol14,symbol15,symbol16,symbol17,
symbol18,symbol19,symbol20,symbol21,symbol22,symbol23,symbol24,symbol25,symbol26,symbol27,symbol28,symbol29,symbol30
,symbol31,symbol32,symbol33,symbol34,symbol35,symbol36,symbol37,symbol38,symbol39,symbol40,symbol41,symbol42,symbol43,
symbol44,symbol45,symbol46,symbol47,symbol48,symbol49,symbol50,symbol51,symbol52,symbol53,symbol54,symbol55,symbol56,symbol57,symbol58,symbol59,symbol60,symbol61,symbol62,symbol63:char; {символьная переменная для цикла}

s0,s,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14,s15,
s16,s17,s18,s19,s20,s21,s22,s23,s24,s25,s26,s27,s28,s29,s30,s31,s32,s33:integer; {целочисленные переменные,для цикла (счетчик)}
t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,
t18,t19,t20,t21,t22,t23,t24,t25,t26,t27,t28,t29,t30,t31,t32,t33:real;{переменные вещ типа,для вычисления }
begin
symbol1:='А'; {обозначение искомых букв }
symbol2:='а';
symbol3:='Б';
symbol4:='б';
symbol5:='В';
symbol6:='в';
symbol7:='Г';
symbol8:='г';
symbol9:='Д';
symbol10:='д';
symbol11:='Е';
symbol12:='е';
symbol13:='Ё';
symbol14:='ё';
symbol15:='Ж';
symbol16:='ж';
symbol17:='З';
symbol18:='з';
symbol19:='И';
symbol20:='и';
symbol21:='Й';
symbol22:='й';
symbol23:='К';
symbol24:='к';
symbol25:='Л';
symbol26:='л';
symbol27:='М';
symbol28:='м';
symbol29:='Н';
symbol30:='н';
symbol31:='О';
symbol32:='о';
symbol33:='П';
symbol34:='п';
symbol35:='Р';
symbol36:='р';
symbol37:='С';
symbol38:='с';
symbol39:='Т';
symbol40:='т';
symbol41:='У';
symbol42:='у';
symbol43:='Ф';
symbol44:='ф';
symbol45:='Х';
symbol46:='х';
symbol47:='Ц';
symbol48:='ц';
symbol49:='Ч';
symbol50:='ч';
symbol51:='Ш';
symbol52:='ш';
symbol53:='Щ';
symbol54:='щ';
symbol55:='ъ';
symbol56:='ы';
symbol57:='ь';
symbol58:='Э';
symbol59:='э';
symbol60:='Ю';
symbol61:='ю';
symbol62:='Я';
symbol63:='я';




s0:=0; {счетчик для количества всех букв}

{обнуление счетчика каждой буквы}
s:=0;s1:=0;s2:=0;s3:=0;s4:=0;s5:=0;s6:=0;s7:=0;s8:=0;s9:=0;s10:=0;s11:=0;s12:=0;s13:=0;s14:=0;s15:=0;s16:=0;s17:=0;s18:=0;s19:=0;s20:=0;s21:=0;s22:=0;s23:=0;s24:=0;s25:=0;s26:=0;s27:=0;s28:=0;s29:=0;s30:=0;s31:=0;s32:=0;s33:=0;

assign(f1,'G:\pr\prog\voina i mir.txt'); {отождествление файла и файловой переменной}

reset(f1); {открыть файл для чтения сначала}
while not eof(f1) do {цикл пока конец файла не достигнут выполнять}
begin
read(f1,symbol); {читаем символ из файла}
if symbol=symbol1 then
begin
s1:=s1+1; {счетчик количества заглавных и литерных букв}
s0:=s0+1; {счетчик количества всех букв в тексте}
end;
if symbol=symbol2 then
begin
s1:=s1+1; {если смвол совпал с символом 2 тогда к счетчику этой буквы приплюсовываем 1
и к счетчику для всего количества букв приплюсовываем 1}
s0:=s0+1;
end;
if symbol=symbol3 then
begin
s2:=s2+1;
s:=s0+1;
end;
if symbol=symbol4 then
begin
s2:=s2+1;
s0:=s0+1;
end;
if symbol=symbol5 then
begin
s3:=s3+1;
s0:=s0+1;
end;
if symbol=symbol6 then
begin
s3:=s3+1;
s0:=s0+1;
end;
if symbol=symbol7 then
begin
s4:=s4+1;
s0:=s0+1;
end;
if symbol=symbol8 then
begin
s4:=s4+1;
s0:=s0+1;
end;
if symbol=symbol9 then
begin
s5:=s5+1;
s0:=s0+1;
end;
if symbol=symbol10 then
begin
s5:=s5+1;
s0:=s0+1;
end;
if symbol=symbol11 then
begin
s6:=s6+1;
s0:=s0+1;
end;
if symbol=symbol12 then
begin
s6:=s6+1;
s0:=s0+1;
end;
if symbol=symbol13 then
begin
s7:=s7+1;
s0:=s0+1;
end;
if symbol=symbol14 then
begin
s7:=s7+1;
s0:=s0+1;
end;
if symbol=symbol15 then
begin
s8:=s8+1;
s0:=s0+1;
end;
if symbol=symbol16 then
begin
s8:=s8+1;
s0:=s0+1;
end;
if symbol=symbol17 then
begin
s9:=s9+1;
s0:=s0+1;
end;
if symbol=symbol18 then
begin
s9:=s9+1;
s0:=s0+1;
end;
if symbol=symbol19 then
begin
s10:=s10+1;
s0:=s0+1;
end;
if symbol=symbol20 then
begin
s10:=s10+1;
s0:=s0+1;
end;
if symbol=symbol21 then
begin
s11:=s11+1;
s0:=s0+1;
end;
if symbol=symbol22 then
begin
s11:=s11+1;
s0:=s0+1;
end;
if symbol=symbol23 then
begin
s12:=s12+1;
s0:=s0+1;
end;
if symbol=symbol24 then
begin
s12:=s12+1;
s0:=s0+1;
end;
if symbol=symbol25 then
begin
s13:=s13+1;
s0:=s0+1;
end;
if symbol=symbol26 then
begin
s13:=s13+1;
s0:=s0+1;
end;
if symbol=symbol27 then
begin
s14:=s14+1;
s0:=s0+1;
end;
if symbol=symbol28 then
begin
s14:=s14+1;
s0:=s0+1;
end;
if symbol=symbol29 then
begin
s15:=s15+1;
s0:=s0+1;
end;
if symbol=symbol30 then
begin
s15:=s15+1;
s0:=s0+1;
end;
if symbol=symbol31 then
begin
s16:=s16+1;
s0:=s0+1;
end;
if symbol=symbol32 then
begin
s16:=s16+1;
s0:=s0+1;
end;
if symbol=symbol33 then
begin
s17:=s17+1;
s0:=s0+1;
end;
if symbol=symbol34 then
begin
s17:=s17+1;
s0:=s0+1;
end;
if symbol=symbol35 then
begin
s18:=s18+1;
s0:=s0+1;
end;
if symbol=symbol36 then
begin
s18:=s18+1;
s0:=s0+1;
end;
if symbol=symbol37 then
begin
s19:=s19+1;
s0:=s0+1;
end;
if symbol=symbol38 then
begin
s19:=s19+1;
s0:=s0+1;
end;
if symbol=symbol39 then
begin
s20:=s20+1;
s0:=s0+1;
end;
if symbol=symbol40 then
begin
s20:=s20+1;
s0:=s0+1;
end;
if symbol=symbol41 then
begin
s21:=s21+1;
s0:=s0+1;
end;
if symbol=symbol42 then
begin
s21:=s21+1;
s0:=s0+1;
end;
if symbol=symbol43 then
begin
s22:=s22+1;
s0:=s0+1;
end;
if symbol=symbol44 then
begin
s22:=s22+1;
s0:=s0+1;
end;
if symbol=symbol45 then
begin
s23:=s23+1;
s0:=s0+1;
end;
if symbol=symbol46 then
begin
s23:=s23+1;
s0:=s0+1;
end;
if symbol=symbol47 then
begin
s24:=s24+1;
s0:=s0+1;
end;
if symbol=symbol48 then
begin
s24:=s24+1;
s0:=s0+1;
end;
if symbol=symbol49 then
begin
s25:=s25+1;
s0:=s0+1;
end;
if symbol=symbol50 then
begin
s25:=s25+1;
s0:=s0+1;
end;
if symbol=symbol51 then
begin
s26:=s26+1;
s0:=s0+1;
end;
if symbol=symbol52 then
begin
s26:=s26+1;
s0:=s0+1;
end;
if symbol=symbol53 then
begin
s27:=s27+1;
s0:=s0+1;
end;
if symbol=symbol54 then
begin
s27:=s27+1;
s0:=s0+1;
end;
if symbol=symbol55 then
begin
s28:=s28+1;
s0:=s0+1;
end;
if symbol=symbol56 then
begin
s29:=s29+1;
s0:=s0+1;
end;
if symbol=symbol57 then
begin
s30:=s30+1;
s0:=s0+1;
end;
if symbol=symbol58 then
begin
s31:=s31+1;
s0:=s0+1;
end;
if symbol=symbol59 then
begin
s31:=s31+1;
s0:=s0+1;
end;
if symbol=symbol60 then
begin
s32:=s32+1;
s0:=s0+1;
end;
if symbol=symbol61 then
begin
s32:=s32+1;
s0:=s0+1;
end;
if symbol=symbol62 then
begin
s33:=s33+1;
s0:=s0+1;
end;
if symbol=symbol63 then
begin
s33:=s33+1;
s0:=s0+1;
end;

end;
close(f1);


t1:=s1/s0*100; {нахождение частоты повторений букв в процентах} {сумма заглавных и литерных букв деленная на все буквы в тексте}
t2:=s2/s0*100;
t3:=s3/s0*100;
t4:=s4/s0*100;
t5:=s5/s0*100;
t6:=s6/s0*100;
t7:=s7/s0*100;
t8:=s8/s0*100;
t9:=s9/s0*100;
t10:=s10/s0*100;
t11:=s11/s0*100;
t12:=s12/s0*100;
t13:=s13/s0*100;
t14:=s14/s0*100;
t15:=s15/s0*100;
t16:=s16/s0*100;
t17:=s17/s0*100;
t18:=s18/s0*100;
t19:=s19/s0*100;
t20:=s20/s0*100;
t21:=s21/s0*100;
t22:=s22/s0*100;
t23:=s23/s0*100;
t24:=s24/s0*100;
t25:=s25/s0*100;
t26:=s26/s0*100;
t27:=s27/s0*100;
t28:=s28/s0*100;
t29:=s29/s0*100;
t30:=s30/s0*100;
t31:=s31/s0*100;
t32:=s32/s0*100;
t33:=s33/s0*100;


writeln;
writeln('Всего букв в тексте ',s0);
writeln('Частотное распределение буквы ',symbol1,',',symbol2, ' равно ',t1 :2:2,'%');
writeln('Частотное распределение буквы ',symbol3,',',symbol4, ' равно ',t2:2:2,'%');
writeln('Частотное распределение буквы ',symbol5,',',symbol6, ' равно ',t3:2:2,'%');
writeln('Частотное распределение буквы ',symbol7,',',symbol8, ' равно ',t4:2:2,'%');
writeln('Частотное распределение буквы ',symbol9,',',symbol10, ' равно ',t5:2:2,'%');
writeln('Частотное распределение буквы ',symbol11,',',symbol12, ' равно ',t6:2:2,'%');
writeln('Частотное распределение буквы ',symbol13,',',symbol14, ' равно ',t7:2:2,'%');
writeln('Частотное распределение буквы ',symbol15,',',symbol16, ' равно ',t8:2:2,'%');
writeln('Частотное распределение буквы ',symbol17,',',symbol18, ' равно ',t9:2:2,'%');
writeln('Частотное распределение буквы ',symbol19,',',symbol20, ' равно ',t10:2:2,'%');
writeln('Частотное распределение буквы ',symbol21,',',symbol22, ' равно ',t11:2:2,'%');
writeln('Частотное распределение буквы ',symbol23,',',symbol24, ' равно ',t12:2:2,'%');
writeln('Частотное распределение буквы ',symbol25,',',symbol26, ' равно ',t13:2:2,'%');
writeln('Частотное распределение буквы ',symbol27,',',symbol28, ' равно ',t14:2:2,'%');
writeln('Частотное распределение буквы ',symbol29,',',symbol30, ' равно ',t15:2:2,'%');
writeln('Частотное распределение буквы ',symbol31,',',symbol32, ' равно ',t16:2:2,'%');
writeln('Частотное распределение буквы ',symbol33,',',symbol34, ' равно ',t17:2:2,'%');
writeln('Частотное распределение буквы ',symbol35,',',symbol36, ' равно ',t18:2:2,'%');
writeln('Частотное распределение буквы ',symbol37,',',symbol38, ' равно ',t19:2:2,'%');
writeln('Частотное распределение буквы ',symbol39,',',symbol40, ' равно ',t20:2:2,'%');
writeln('Частотное распределение буквы ',symbol41,',',symbol42, ' равно ',t21:2:2,'%');
writeln('Частотное распределение буквы ',symbol43,',',symbol44, ' равно ',t22:2:2,'%');
writeln('Частотное распределение буквы ',symbol45,',',symbol46, ' равно ',t23:2:2,'%');
writeln('Частотное распределение буквы ',symbol47,',',symbol48, ' равно ',t24:2:2,'%');
writeln('Частотное распределение буквы ',symbol49,',',symbol50, ' равно ',t25:2:2,'%');
writeln('Частотное распределение буквы ',symbol51,',',symbol52, ' равно ',t26:2:2,'%');
writeln('Частотное распределение буквы ',symbol53,',',symbol54, ' равно ',t27:2:2,'%');
writeln('Частотное распределение буквы ',symbol55, ' равно ',t28:2:2,'%');
writeln('Частотное распределение буквы ',symbol56, ' равно ',t29:2:2,'%');
writeln('Частотное распределение буквы ',symbol57, ' равно ',t30:2:2,'%');
writeln('Частотное распределение буквы ',symbol58,',',symbol59, ' равно ',t31:2:2,'%');
writeln('Частотное распределение буквы ',symbol60,',',symbol61, ' равно ',t32:2:2,'%');
writeln('Частотное распределение буквы ',symbol62,',',symbol63, ' равно ',t33:2:2,'%');
END.