Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
keron
0 / 0 / 0
Регистрация: 23.10.2009
Сообщений: 7
1

Файлы и текст.

23.10.2009, 14:54. Просмотров 386. Ответов 8
Метки нет (Все метки)

Помогите пожалуйста. Никак не могу разобраться...
Дан файл с текстом. Нужно распечатать все числа, встречающиеся в данном тексте.
Заранее благодарю.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.10.2009, 14:54
Ответы с готовыми решениями:

Текстовые файлы: Зашифровать текст, заменив каждое его слово на слово - "перевертыш"
Дан файл, содержащий некоторый текст (например, предложение). Зашифровать...

Создать текст; вывести все буквы, входящие в текст по одному разу
Всем привет, нужна помощь в написании программы. Задача: Создать текст;...

Пользователем вводится текст. Напечатать текст, исключив все буквы х
Пользователем вводится текст. Напечатать текст, исключив все буквы x

Дан текст из 60 символов. Напечатать этот текст, подчёркивая все входящие в него гласные
Дан текст из 60 символов. Напечатать этот текст, подчёр- кивая (ставя минусы в...

Проверить, можно ли из букв, входящих в текст А, составить текст Б
1. Даны 2 текста. Проверьте, можно ли из букв, входящих в текст А, составить...

8
TAVulator
Эксперт Pascal/Delphi
3996 / 1140 / 179
Регистрация: 27.07.2009
Сообщений: 3,555
23.10.2009, 14:58 2
Цитата Сообщение от keron Посмотреть сообщение
Никак не могу разобраться...
что именно не понятно?
0
keron
0 / 0 / 0
Регистрация: 23.10.2009
Сообщений: 7
23.10.2009, 15:10  [ТС] 3
Цитата Сообщение от TAVulator Посмотреть сообщение
что именно не понятно?
Не понятно самое основное, не могу вытащить именно числа и не совсем понятно, как после их нахождения их распечатать или хватит вывода на экран?=)
0
unick12345
1792 / 1123 / 180
Регистрация: 27.03.2009
Сообщений: 4,275
23.10.2009, 15:13 4
а именно число вот if s[i] in ['1'..'9'], сравнения каждого символа если входит.
0
TAVulator
Эксперт Pascal/Delphi
3996 / 1140 / 179
Регистрация: 27.07.2009
Сообщений: 3,555
23.10.2009, 15:14 5
keron, открываем файл:
Pascal
1
2
assign(f,'data.txt');
reset(f);
считываем из него строки:
Pascal
1
2
3
4
5
6
while not eof(f) do
 ....
 ....
 readln(f,S);
 ....
 ....
далее обрабатываем текущую считанную строку:
Pascal
1
2
3
4
5
while S<>'' do
 Begin
  if S[1] in ['0'..'9'] then write(S[1],' ');
  delete(S,1,1);
 End;
идея надеюсь ясна.
1
keron
0 / 0 / 0
Регистрация: 23.10.2009
Сообщений: 7
23.10.2009, 15:17  [ТС] 6
TAVulator, да спасибо, попробую написать.
0
Puporev
Модератор
55465 / 42572 / 29422
Регистрация: 18.05.2008
Сообщений: 100,714
23.10.2009, 16:04 7
Это вариант для целых чисел, да и то не числа выведет, а все цифры подряд. Для вещественных чисел, записанных в десятичном виде сложнее, а с Е еще сложнее.
0
unick12345
1792 / 1123 / 180
Регистрация: 27.03.2009
Сообщений: 4,275
23.10.2009, 16:18 8
вот как начальный вариант
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program test;
var s,c:string;i,k:integer;
begin
write('Vvedite text ');
readln(s);
k:=0;c:='';
for i:=1 to length(s) do
 if s[i] in ['1'..'9'] then
 begin
 if s[i+1] in ['1'..'9'] then
 begin
 c:=c+s[i];
 k:=1;
 end
 else if length(c)<>0 then begin writeln ('chislo ',c); c:=''; end  else writeln('Chislo ', s[i]);end;
if k=0 then writeln('Net tsifr');
readln;
end.
0
keron
0 / 0 / 0
Регистрация: 23.10.2009
Сообщений: 7
23.10.2009, 16:27  [ТС] 9
Цитата Сообщение от Puporev Посмотреть сообщение
Это вариант для целых чисел, да и то не числа выведет, а все цифры подряд. Для вещественных чисел, записанных в десятичном виде сложнее, а с Е еще сложнее.
Хм... Насчет чисел вы правы и цифры будут...
Но Е и т.д. в тексте не будет. =)
0
23.10.2009, 16:27
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.10.2009, 16:27

С клавиатуры вводится текст. Выдайте на экран преобразованный текст, заменив в нем все запятые на двоеточия
Не получается сделать С клавиатуры вводиться текст. Слова разделяются...

Определить, удовлетворяет ли текст следующему свойству: текст является записью четного числа в семеричной системе.
Помогите задачку сделать, очень нужно В заданный непустой текст входят...

Дан текст состоящий из английских букв. Вывести все буквы входящие в текст более одного раза.
Дан текст состоящий из английских букв. Вывести все буквы входящие в текст...


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

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

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