Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 13.10.2013
Сообщений: 19
1

Из текстового файла прочитать символы, среди которых могут быть буквы английского алфавита и цифры

09.12.2013, 23:04. Показов 1465. Ответов 1
Метки нет (Все метки)

Из текстового файла прочитать символы, среди которых могут быть буквы английского алфавита и цифры. Подсчитать процентное содержание английских букв и процентное содержание цифр.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.12.2013, 23:04
Ответы с готовыми решениями:

В текстовом файле t записаны буквы латинского алфавита и цифры. Занести в текстовый файл h из текстового файла t только латинские буквы.
В текстовом файле t записаны буквы латинского алфавита и цифры. Занести в текстовый файл h из...

Объявить два диапазонных типа: один буквы русского алфавита, второй буквы английского алфавита
Объявить два диапазонных типа: один буквы русского алфавита, второй буквы английского алфавита....

Сколько существует различных слов из 6 букв, символом которых может быть буква английского алфавита или десятичная цифра?
Сколько существует различных слов, символом которых может быть буква английского алфавита или...

Прочитать из текстового файла символы, прибавить к их кодам 5, вывести новые символы на экран
Прочитать из текстового файла символы, прибавить к их кодам 5, вывести новые символы на экран; ...

1
Фрилансер
3413 / 2810 / 3000
Регистрация: 08.02.2012
Сообщений: 8,123
Записей в блоге: 1
10.12.2013, 15:33 2
Лучший ответ Сообщение было отмечено Denis639 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var ch:char;
    k1,k2:integer;
    f:text;
Begin
    Assign(f,'in.txt');Reset(f);
    While not Eof(f) do
    Begin
      read(f,ch);
      if ch in ['a'..'z','A'..'Z'] then inc(k1)
       else if ch in ['0'..'9'] then inc(k2);
    End;
    writeln('% содержание английских букв: ',100*k1/(k1+k2):0:2);
    writeln('% содержание цифр: ',100*k2/(k1+k2):0:2);
    Close(f);
    readln;
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2013, 15:33

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Вывести все символы английского алфавита, чередуя строчные и прописные символы
Помогите решить задачу по программированию. Используя операторы цикла, вывести на экран все...

Найти слова, в которых есть цифры и буквы латинского алфавита
Задание такое:Дана строка. Словом текста является последовательность цифр и букв латинского...

Сохранить в строке те слова, в которых цифры и буквы латинского алфавита чередуются
Народ, помогите решить задачу. Не могу понять как определить последовательность из чередующихся...

Дан набор карточек, на каждой из которых написана буква(среди букв могут быть повторяющиеся) и список слов
Доброго времени суток ! Можете помочь в объяснении задачи, не могу понять что от меня хотят Дан...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.