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

@keron · Регистрация: 23.10.2009

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста. Никак не могу разобраться...
Дан файл с текстом. Нужно распечатать все числа, встречающиеся в данном тексте.
Заранее благодарю.

@TAVulator · 23.10.2009, 14:58

Сообщение от keron

Никак не могу разобраться...

что именно не понятно?

@keron · 23.10.2009, 15:10 **[ТС]**

Сообщение от TAVulator

что именно не понятно?

Не понятно самое основное, не могу вытащить именно числа и не совсем понятно, как после их нахождения их распечатать или хватит вывода на экран?=)

@unick12345 · 23.10.2009, 15:13

а именно число вот if s[i] in ['1'..'9'], сравнения каждого символа если входит.

@TAVulator · 23.10.2009, 15:14

keron, открываем файл:

Pascal

1 2	assign(f,'data.txt'); reset(f);

считываем из него строки:

Pascal

while not eof(f) do
 ....
 ....
 readln(f,S);
 ....
 ....

далее обрабатываем текущую считанную строку:

Pascal

while S<>'' do
 Begin
  if S[1] in ['0'..'9'] then write(S[1],' ');
  delete(S,1,1);
 End;

идея надеюсь ясна.

@keron · 23.10.2009, 15:17 **[ТС]**

TAVulator, да спасибо, попробую написать.

@Puporev · 23.10.2009, 16:04

Это вариант для целых чисел, да и то не числа выведет, а все цифры подряд. Для вещественных чисел, записанных в десятичном виде сложнее, а с Е еще сложнее.

@unick12345 · 23.10.2009, 16:18

вот как начальный вариант

Pascal

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.

@keron · 23.10.2009, 16:27 **[ТС]**

Сообщение от Puporev

Это вариант для целых чисел, да и то не числа выведет, а все цифры подряд. Для вещественных чисел, записанных в десятичном виде сложнее, а с Е еще сложнее.

Хм... Насчет чисел вы правы и цифры будут...
Но Е и т.д. в тексте не будет. =)

@keron 0 / 0 / 0 Регистрация: 23.10.2009 Сообщений: 7
		1
	Файлы и текст. 23.10.2009, 14:54. Показов 509. Ответов 8 Метки нет (Все метки) Помогите пожалуйста. Никак не могу разобраться... Дан файл с текстом. Нужно распечатать все числа, встречающиеся в данном тексте. Заранее благодарю. 0

@TAVulator ⚽ 4190 / 1291 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	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 1856 / 1178 / 190 Регистрация: 27.03.2009 Сообщений: 4,558
	23.10.2009, 15:13	4
	а именно число вот if s[i] in ['1'..'9'], сравнения каждого символа если входит. 0

@keron 0 / 0 / 0 Регистрация: 23.10.2009 Сообщений: 7
	23.10.2009, 15:17 [ТС]	6
	TAVulator, да спасибо, попробую написать. 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	23.10.2009, 16:04	7
	Это вариант для целых чисел, да и то не числа выведет, а все цифры подряд. Для вещественных чисел, записанных в десятичном виде сложнее, а с Е еще сложнее. 0

@keron 0 / 0 / 0 Регистрация: 23.10.2009 Сообщений: 7
	23.10.2009, 16:27 [ТС]	9
	Сообщение от Puporev Это вариант для целых чисел, да и то не числа выведет, а все цифры подряд. Для вещественных чисел, записанных в десятичном виде сложнее, а с Е еще сложнее. Хм... Насчет чисел вы правы и цифры будут... Но Е и т.д. в тексте не будет. =) 0

Опции темы