Вывести строки, которые представляют собой запись целого числа со знаком

@filosofiyachuda · Регистрация: 24.12.2009

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

Дан файл, состоящий из строк. Вывести строки, которые представляют собой запись целого числа со знаком.

Спасибо, если кто-нибудь сможет помочь)

@кот Бегемот · 28.02.2010, 23:09

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

Дан файл, состоящий из строк. Вывести строки, которые представляют собой запись целого числа со знаком.

Спасибо, если кто-нибудь сможет помочь)

Pascal

var
f:text;
a:string;
i,p:integer;
begin
assign(f,'input.txt');
reset(f);
while not eof(f) do
begin
readln(f,a);
p:=0;
for i:=1 to length(a) do
if (ord(a[1])<>43)and(ord(a[1])<>45)and(ord(a[i])<48)or(ord(a[i])>57)then p:=1;
if p=0 then writeln(a);
end;
close(f);
readln;
end.

@filosofiyachuda · 28.02.2010, 23:21 **[ТС]**

Спасибо, кот Бегемот)
Ввожу например:
-3.67
9
0
-7
е
4.5
Выводит:
-3.67
9
0
-7

4.5 исключил, а -3.67 нет

@кот Бегемот · 28.02.2010, 23:22

о дробных числах разговора не было, сейчас исправлю

@filosofiyachuda · 28.02.2010, 23:24 **[ТС]**

Пасиба, извиняюсь) До сих пор уверена, что целое число - недробное

@кот Бегемот · 28.02.2010, 23:52

вот уточненный вариант

Pascal

var
f:text;
a:string;
i,p:integer;
begin
assign(f,'input.txt');
reset(f);
while not eof(f) do
begin
readln(f,a);
p:=0;
if (ord(a[1])<>43)and(ord(a[1])<>45) and(ord(a[1])<48)or(ord(a[1])>57)then p:=1 else
for i:=2 to length(a) do
if(ord(a[i])<48)or(ord(a[i])>57)then p:=1;
if p=0 then writeln(a);
end;
close(f);
readln;
end.

@filosofiyachuda 0 / 0 / 0 Регистрация: 24.12.2009 Сообщений: 36
		1
	Вывести строки, которые представляют собой запись целого числа со знаком 28.02.2010, 22:40. Показов 1074. Ответов 5 Метки нет (Все метки) Дан файл, состоящий из строк. Вывести строки, которые представляют собой запись целого числа со знаком. Спасибо, если кто-нибудь сможет помочь) 0

@filosofiyachuda 0 / 0 / 0 Регистрация: 24.12.2009 Сообщений: 36
	28.02.2010, 23:21 [ТС]	3
	Спасибо, кот Бегемот) Ввожу например: -3.67 9 0 -7 е 4.5 Выводит: -3.67 9 0 -7 4.5 исключил, а -3.67 нет 0

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	28.02.2010, 23:22	4
	о дробных числах разговора не было, сейчас исправлю 0

@filosofiyachuda 0 / 0 / 0 Регистрация: 24.12.2009 Сообщений: 36
	28.02.2010, 23:24 [ТС]	5
	Пасиба, извиняюсь) До сих пор уверена, что целое число - недробное 0

	28.02.2010, 23:52