sunny Опубликовано 16 мая, 2005 Жалоба Поделиться Опубликовано 16 мая, 2005 это подсчет частоты появления каждого символа в текстовом файле, а как вывести на экран таблицу результатов? пожалуйста помогите! с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 Ссылка на комментарий Поделиться на другие сайты Поделиться
Kuzmich Опубликовано 16 мая, 2005 Жалоба Поделиться Опубликовано 16 мая, 2005 Ну используй gotoxy... Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения
Для публикации сообщений создайте учётную запись или авторизуйтесь
Вы должны быть пользователем, чтобы оставить комментарий
Создать учетную запись
Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!
Регистрация нового пользователяВойти
Уже есть аккаунт? Войти в систему.
Войти