Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

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

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

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

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

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

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

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

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

Чтение из файла - Turbo Pascal
вот файл massiv2.pas 4.5 -1.5 -8.4 4.5 -1.9 6.3 -7.6 -1.8 -5.7 3.15 -2.6 3.5 -2.1 const n=13; type mas=array of integer; ...

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

4
Ev[G]eN
iOS/Android Developer
Эксперт С++
5107 / 1545 / 382
Регистрация: 23.01.2011
Сообщений: 3,168
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 / 42
Регистрация: 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
Привет! Вот еще темы с ответами:

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

чтение из файла - Pascal
добрый день. требуется произвести чтение из файла, но выдает "File not found". assign(f,'D:\401334397.txt'); {на этом месте...

Чтение из файла - Pascal
Здравствуйте, не подскажите как прочитать из текстового файла квадрат чисел (nxn) в массив Например 1 2 3 4 5 6 7 8 9

Чтение из файла - Turbo Pascal
Надо сделать так,чтобы я вводил 2 строки в файле,сохранил этот файл,а при запуске программы мне виводились на экран эти предложения..Вот...


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

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

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