Форум на Исходниках.RU

помогите с множественным типом данных

volvo877 — Wed, 14 Nov 2007 17:24:29 +0000

volvo877: Bug Hunter, давай не будем поднимать темы, которые никому не интересны? <_< Было бы интересно - ответили б уже... Что, обязательно закрывать, чтоб не флудили?

помогите с множественным типом данных

Bug Hunter — Wed, 14 Nov 2007 17:09:57 +0000

Bug Hunter: Гек-тор! Гек-тор!!! (Х/ф "Троя")

помогите с множественным типом данных

Bug Hunter — Sat, 10 Nov 2007 18:09:49 +0000

Bug Hunter:

Цитата AlexPR @ 06.11.07, 16:06

Задачу приняли, проверял на косяки - вроде всё норм.

Плохо проверял:

Vvedite text, zakanch. "!"

s = 123e4.5!

!! Ok !!

помогите с множественным типом данных

Bug Hunter — Fri, 09 Nov 2007 16:24:41 +0000

Bug Hunter:

Цитата Bug Hunter @ 06.11.07, 14:19

Если поставить задачу так:

Написать программу, которая вводит строку и проверяет, является ли она записью

числа вида:

[+|-]ddd[.ddd][E|e[+|-]ddd]

где число десятичных цифр в мантисе и поряде может быть любым (лишь бы, для

простоты, сама запись в обычную строку string влезало)

Я на всякий случай уточню, для тех, кто не сразу просек, что данная спецификация предполагает, что перед и после десятичной точки (если она есть) обязательно должно быть хотя бы по одной цифре (хотя бы незначащие нули) и мантиса не может быть пустой или состоять из одного знака (иначе как понять, "-E10" - это число или имя переменной с унарным минусом). Хотя желающие принять участие в соревновании могут написать дополнительно вариант, который распознает и записи числа вида ".5", "5.", ".5E10", "5.E10" и т.п. (число ".", я думаю, надо запретить).

Цитата AlexPR @ 06.11.07, 16:06

Вот что у меня получилось:

...

Условие задачи следующее: определить, является ли введенный текст, заканч. "!", правильной записью вещественного числа ...

Не вдаваясь особо в подробности, сразу скажу, что это решение несколько другой, весьма искусственной задачи.

Is there no one else? (Что, больше никого? (англ.)) (Х/ф "Троя")

помогите с множественным типом данных

AlexPR — Tue, 06 Nov 2007 16:06:24 +0000

AlexPR: Вот что у меня получилось:

program alexpr2;

type

t = set of char;

var

s: string;

i, s1, s2, posl : integer;

fl : integer;

n, z, ost, all, p : t;

begin

repeat

writeln(' Vvedite text, zakanch. "!"');

write(' s = ');

readln(s);

if ( s[length(s)]<>'!' ) then

writeln(' !! Oshibka vvoda !!')

until s[length(s)]='!'

end;

posl:=length(s)-1;

fl:=0;

n:=['0'..'9'];

z:=['+','-'];

ost:=['e','E'];

p:=['.'];

all:=['0'..'9','+','-','.','e','E'];

if (s[1] in p+ost) or (s[posl] in p+ost+z) then fl:=1;

s1:=0;

s2:=0;

i:=1;

while ( i<=posl ) and (fl=0) do

begin

if not(s[i] in all) then fl:=1;

begin

if (s[i] in n) and (s[i+1] in z) then fl:=1;

if (s[i] in p) and (s[i+1] in z) then fl:=1;

if (s[i] in ost) and (s[i+1] in p) then fl:=1;

if (s[i] in p) and (s[i+1] in p) then fl:=1;

if (s[i] in z) and (s[i+1] in z) then fl:=1;

if s[i] in p then s1:=s1+1;

if s[i] in ost then s2:=s2+1;

if s1>1 then fl:=1;

if s2>1 then fl:=1;

end;

inc(i);

end;

if s1+s2=0 then fl:=1;

if fl=0 then writeln(' !! Ok !!') else writeln(' !! Error !!');

readln

end.

Условие задачи следующее: определить, является ли введенный текст, заканч. "!" правильной записью вещественного числа (либо в форме с фиксированной точкой, либо в форме с плавающей точкой).
Задачу приняли, проверял на косяки - вроде всё норм.

Про теги не забывай...

помогите с множественным типом данных

Bug Hunter — Tue, 06 Nov 2007 14:19:35 +0000

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

Напомню:

Цитата Bush3000 @ 18.12.06, 18:13

Програма вводит строку символов и проверяет может ли эта строка быть записью числа в языке Паскаль.

(Подразумевается, что вывод нужно сделать, анализируя строку, а не переводя число из символьного представления в двоичное)

Во-первых, Паскалей много, хороших и разных, и понятия допустимого символьного представления числа в них могут несколько отличаться;
Во-вторых, даже если ограничиться Турбо Паскалем, то, как отмечалось выше, он придерживается то ли дуализма мнений, то ли политики двойных стандартов по отношению к незначащим нулям перед и после десятичной точки;
В-третьих, Турбо Паскаль считает такую вот запись 1.1e4932 допустимым числом, а 1.1e4933 и 1.2e4932 - уже нет. Различить эти записи, анализируя строку, конечно, можно, если сильно запариться, но уж точно нафиг не нужно.

2ALL: Но потанцевать таки можно!

Если поставить задачу так:

Написать программу, которая вводит строку и проверяет, является ли она записью

числа вида:

[+|-]ddd[.ddd][E|e[+|-]ddd]

где число десятичных цифр в мантисе и порядке может быть любым (лишь бы, для

простоты, сама запись в обычную строку string влезало)

Я это к тому что в этой задаче есть заковыка, реальный способ преодоления которой никто таки не предложил, да и я сам нашел решение только со второй попытки. И не уверен, что оно самое эффективное (предполагается, что задача решается через множества типа set of char в качестве упражнения). Так что есть повод пободаться!

А еще можно немного усложнить(?) задачу, потребовав, чтобы решение не использовало по крайней мере "больших" множест типа set of char|byte и их подмножеств (решения, использующие эмуляцию множеств через булев массив или битовые карты длинной больше чем одно слово тоже не принимаются) - это уже действительно неплохой этюд может получиться.

Ну, что, будем бодаться?

За себя: Battle!!! (Х/ф "Майкл)

помогите с множественным типом данных

AlexPR — Wed, 31 Oct 2007 12:58:06 +0000

AlexPR: Так кто нить может показать финальную прогу?

помогите с множественным типом данных

Bush3000 — Sat, 23 Dec 2006 14:44:24 +0000

Bush3000: Bug Hunter
Подумаешь. Всего лишь и надо добавить проверку принадлежности последнего символа к множествам ost, p и z и если принадлежит то b присвоить значение false. В конце концов я только учусь программированию.

помогите с множественным типом данных

Bug Hunter — Fri, 22 Dec 2006 20:40:34 +0000

Bug Hunter:

Цитата Bush3000 @ 22.12.06, 11:24

Сегодня узнавал у нашего препода насчет этого вопроса. Говорит что это не число которое воспинимает Паскаль

Ну, если преподаватель сказала, то тогда конечно! :D

А это ничего, что Турбо Паскаль вот такую строчку:

const test = 5.;

спокойно воспринимает? ;)

Цитата Bush3000 @ 22.12.06, 11:24

(кстати работу засчитала)

И это при том, что программа твоя воспринимает как правильное такое число: "1e". И вот такое: "1e-". И даже вот такое: "-e". :D

Впрочем, с учетом предыдущего абзаца это не удивительно. ;)

помогите с множественным типом данных

Bush3000 — Fri, 22 Dec 2006 11:24:44 +0000

Bush3000: YaSonka
Сегодня узнавал у нашего препода насчет этого вопроса. Говорит что это не число которое воспинимает Паскаль(кстати работу засчитала). Но даже если это и число все можно легко исправить убрав строку

if (s[i] in p)and(s[i+1] in ost) then b:=false;

помогите с множественным типом данных

Bug Hunter — Fri, 22 Dec 2006 10:23:10 +0000

Bug Hunter:

Цитата YaSonka @ 22.12.06, 04:54

Должны как правильные, наверное. Так как после запятой незначащий ноль можно отбрасывать. Паскаль, во всяком случае, такие числа считает правильными.

Более, того, процедуры read[ln] и val воспринимают и такие числа: '.5', о вот компилятор TP/BP по какой-то причине нет :(

помогите с множественным типом данных

YaSonka — Fri, 22 Dec 2006 04:54:18 +0000

YaSonka: Bush3000
Должны как правильные, наверное. Так как после запятой незначащий ноль можно отбрасывать. Паскаль, во всяком случае, такие числа считает правильными.

помогите с множественным типом данных

Bush3000 — Thu, 21 Dec 2006 14:24:33 +0000

Bush3000: YaSonka
Подожди. То есть ты хочешь сказать что такие числа должны распозноваться как правильные или прога распознает их как правильные?

помогите с множественным типом данных

YaSonka — Thu, 21 Dec 2006 04:25:55 +0000

YaSonka: Bush3000
Pascal эти числа (123.е-1 (123.е+1) воспринимает как корректные.

помогите с множественным типом данных

Bush3000 — Wed, 20 Dec 2006 20:38:31 +0000

Bush3000: YaSonka
Не знаю, попробовал - все нормально работает. Как и положенно выдает что не является числом.
Кстати надо еще добавить проверку последнего символоа чтоб он не был точкой или Е., а также смотреть на взаимное расположение точки и Е а то запись типа 123Е-4.4 будет рассматриваться как число.

помогите с множественным типом данных

Anykey — Wed, 20 Dec 2006 08:33:10 +0000

Anykey: кусок спецификации паскаля по числам в прикрепленном файле... я в свое время по ней писал синтаксический анализатор... все работало...
просто начинаешь с самого большого куска и процедурами детализируешь разбор.

помогите с множественным типом данных

YaSonka — Wed, 20 Dec 2006 07:53:31 +0000

YaSonka: Bush3000
На такой строке 123.е-1 (123.е+1) выдает ошибку.

помогите с множественным типом данных

Bush3000 — Tue, 19 Dec 2006 15:01:25 +0000

Bush3000: YaSonka
Точно. И так очень сильно помогли. Огромное вам всем спасибо.
UPD: кстати кому интересно вот мое решение этой задачи

Type

T = set of char;

Var

S:String;

i,j,s1,s2:integer;

b: boolean;

N,Z,Ost,all,P:t;

begin

write('s=');

Readln(s);

b:=true;

N:=['0'..'9'];

Z:=['+','-'];

Ost:=['e','E'];

P:=['.'];

All:=['0'..'9','+','-','.','e','E'];

s1:=0;

s2:=0;

if (s[1] in p)or(s[1] in ost) then b:=false;

for i:=1 to Length(s) do

begin

if not(s[i] in All) then b:=false;

if (s[i] in n)and(s[i+1] in z) then b:=false;

if (s[i] in p)and(s[i+1] in z) then b:=false;

if (s[i] in p)and(s[i+1] in ost) then b:=false;

if (s[i] in ost)and(s[i+1] in p) then b:=false;

if (s[i] in z)and(s[i+1] in z) then b:=false;

if s[i] in p then s1:=s1+1;

if s[i] in ost then s2:=s2+1

end;

if s1>1 then b:=false;

if s2>1 then b:=false;

if b then writeln('ok') else writeln('Error!');

readln

end.

помогите с множественным типом данных

YaSonka — Tue, 19 Dec 2006 11:52:21 +0000

YaSonka: volvo877
А я и не думала даже. :unsure:
Не сообразила. :whistle:
Наверное, Bush3000 доделает сам.

помогите с множественным типом данных

Булат Шакиров — Tue, 19 Dec 2006 07:58:03 +0000

Булат Шакиров: volvo877
Не-а, я имел ввиду 123e--2

помогите с множественным типом данных

volvo877 — Tue, 19 Dec 2006 07:57:03 +0000

volvo877: С минусом нельзя... :no:
-1.2E-6 вполне себе нормальная запись...

помогите с множественным типом данных

Булат Шакиров — Tue, 19 Dec 2006 07:54:43 +0000

Булат Шакиров: volvo877
То же самое и с минусом. Также нужно добавить в множество +. Ибо такая запись - 123E+12 вполне возможна.

помогите с множественным типом данных

volvo877 — Tue, 19 Dec 2006 07:34:55 +0000

volvo877: YaSonka, надо бы еще проверять на повторное вхождение букв 'e' и 'E', т.е. после первого обнаружения одной из них в строке изымать обе из множества, иначе строка '1.2EE-2' будет распознаваться как число...

Да и точка может быть только одна, так что с ней то же самое.

помогите с множественным типом данных

YaSonka — Tue, 19 Dec 2006 07:00:38 +0000

YaSonka:

Type

RealDigits = set of char;

Const

Digits: RealDigits = ['0','1','2','3','4','5','6','7','8','9','.','E','e','-'];

Var

S:String;

i:integer;

flag: boolean;

begin

Readln(s);

flag:=true;

for i:=1 to Length(s) do

if not(s[i] in Digits) then

begin

flag:=false;

break;

end;

if flag then

WriteLn('Ok!')

else

WriteLn('Error!');

readln;

end.

помогите с множественным типом данных

Bush3000 — Mon, 18 Dec 2006 20:25:03 +0000

Bush3000: KiRiK
да теорию я знаю. пытался да же что то сделать но окончательно запутался в условных операторах. Очень их там много.

помогите с множественным типом данных

KiRiK — Mon, 18 Dec 2006 20:06:34 +0000

KiRiK: Что такое множество?

помогите с множественным типом данных

Bush3000 — Mon, 18 Dec 2006 18:13:02 +0000

Bush3000: Помогите мне. Очень прошу. Надо написать прогу на Турбопаскале. Условие такое: Програма вводит строку символов и проверяет может ли эта строка быть записью числа в языке Паскаль. Следует учесть что числами являются -6.54Е-2 или 12Е5. Это связано с темой множественного типа данных поэтому надо его использовать.