frenjogle
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Program zadacha;
uses crt;
var a:array[1..100] of string; d:string;
var c:array[1..100] of integer;
var i,j,k,p,h:integer; s:real;
var f1,f2:text;
begin
i:=0; p:=0;
assign(f1,'3.txt'); {привязка файла со входными данными к переменной}
reset(f1); {открытие файла. все файлы находятся в текущей директории паскаля}
while not Eof(f1) do {задаю текст в файле массивом string}
begin
i:=i+1;
p:=p+1;
readln(f1,a[i]);
end;
close(f1); {закрытие файла}
for h:=1 to p do {собственно, сам алгоритм}
begin
d:=a[h];
for i:=ord('a') to ord('z') do
for j:=1 to length(d) do
begin
if i=ord(d[j]) then
begin
s:=s+1;
c[i-ord('a')+1]:=c[i-ord('a')+1]+1;
end;
end;
end;
assign(f2,'4.txt'); {привязка файла f2, куда запишем выходные данные, к переменной}
rewrite(f2); {открытие файла для перезаписи}
for i:=ord('a') to ord('z') do {записываю выходной массив в файл}
begin
write(f2,chr(i));
write(f2,(c[i-ord('a')+1]/s*100):6:2,'%');
writeln(f2);
end;
close(f2); {закрытие файла f2}
readln;
end. |
