Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 16, средняя оценка - 4.69
vladisl
0 / 0 / 0
Регистрация: 20.02.2011
Сообщений: 18
#1

Чтение символов из файла - Turbo Pascal

27.02.2011, 15:24. Просмотров 2486. Ответов 4
Метки нет (Все метки)

из файла содержащего текст, который не привышает 1000 символов
1) вывести текст на экран дисплея
2) определить в каждом предложении текста количество символов, отличных от букв и пробела
Использовать только библиотечные функции ввода\вывода Символа.
Нельзя использовать библиотечные функции работы со строками(словами)
Обработка текста должна вестись посимвольно.
Помогите написать эту программу
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.02.2011, 15:24
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Чтение символов из файла (Turbo Pascal):

Чтение из файла русских символов
Помогите плиз)у меня прога должна ИЗ ТЕКСТОВОГО ФАЙЛА считывать русский текст...

Внешняя сортировка бинарного файла (чтение после конца файла невозможно)
Помогите отладить программу, не вижу, что здесь можно сделать. Похоже, курсор...

Создание текстового файла и чтение данных из файла
Здравствуйте. Дана задача : Создать файл, содержащий сведения о сдаче...

Создать новую строку из N первых символов считанного из файла строки и E последних символов другой строки
Создать новую строку из N первых символов считанных из файла строк и E...

Чтение из файла
Требуется помощь с чтением текстового файла Входной файл может быть вида: 1...

Чтение из файла
Здравствуйте! Необходимо написать программу для чтения из файла и вывода...

4
Ev[G]eN
iOS/Android Developer
Эксперт С++
5115 / 1553 / 950
Регистрация: 23.01.2011
Сообщений: 3,179
Завершенные тесты: 1
27.02.2011, 15:27 #2
Цитата Сообщение от vladisl Посмотреть сообщение
1) вывести текст на экран дисплея
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
 st, dir: string;
 f: text;
begin
 dir:='путь к файлу';
 assign(f, dir);
 reset(f);
  while not EOF(f) do
   begin
    readln(f, st);
    writeln(st);
   end;
end.
1
vladisl
0 / 0 / 0
Регистрация: 20.02.2011
Сообщений: 18
27.02.2011, 17:38  [ТС] #3
пол дела сделанно=) осталось есчё чуток
0
kofee"k
106 / 106 / 91
Регистрация: 08.01.2011
Сообщений: 171
27.02.2011, 18:10 #4
Цитата Сообщение от vladisl Посмотреть сообщение
из файла содержащего текст, который не привышает 1000 символов
1) вывести текст на экран дисплея
Использовать только библиотечные функции ввода\вывода Символа.
Нельзя использовать библиотечные функции работы со строками(словами)
Обработка текста должна вестись посимвольно.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
 st, dir: string;
 f: text;
begin
 dir:='путь к файлу';
 assign(f, dir);
 reset(f);
  while not EOF(f) do
   begin
    readln(f, st);
    writeln(st);
   end;
end.
Ваша программа считывает строками!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program tt;
uses crt;
var
 dir: string;
 c:char;
 f: text;
begin
 ClrScr;
 writeln('Укажите путь');
 readln(dir);
 assign(f,dir);
 reset(f);
 while not EOF(f) do begin
   read(f,c);
   write(c);
 end;
 close(f);
end.
1
vladisl
0 / 0 / 0
Регистрация: 20.02.2011
Сообщений: 18
27.02.2011, 18:32  [ТС] #5
эм...вот кто бы помог написать прогу по второму пункту
0
27.02.2011, 18:32
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2011, 18:32
Привет! Вот еще темы с решениями:

Чтение из файла
Считать из файла f1.pas (п. 22) числа и вывести их в файл f2.pas - сначала...

Чтение из файла
Как считать из файла 50 000 цифр неразделенных пробелами в массив?

Чтение файла))
Дан фаил (b.txt) в нем матрица. Надо считать из файла рамку матрици ( это...

Чтение из файла
вот файл massiv2.pas 4.5 -1.5 -8.4 4.5 -1.9 6.3 -7.6 -1.8 -5.7 3.15 ...


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

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

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