Перейти к содержанию
СофтФорум - всё о компьютерах и не только

Вывод рез-ов таблицей


Рекомендуемые сообщения

это подсчет частоты появления каждого символа в текстовом файле, а как вывести на экран таблицу результатов? пожалуйста помогите!

сh:char; count:array[char] of longint;

begin

for ch:=low(char) to high(char) do

count[ch]:=0;

assign(F,Name);

reset(F);

while not eof(F) do

begin

read(F,ch);

inc(count[ch]);

end;

close(F);

for ch:=low(char) to high(char) do

if count[ch]>0 then

writeln( ch,'=',count[ch]/Numsym:1:4);

writeln('всего символов ',Numsym);

readln;

end

Ссылка на комментарий
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...