(Паскаль)Найти произведение цифр, встречающихся в строке - Помощь студентам - Страница 3

Sazary · 09.06.2009, 20:21

Цитата:

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

А если я в делфи (КонсольАпл)?

Тогда ищите модуль CRT для Делфи
http://www.programmersforum.ru/showthread.php?t=16317
или берите кусок строки до точки (код выше).
Или читайте read-ом. Что-то вроде:

Код:

repeat
read(c);
until c='.';

Doublefaced · 20.06.2009, 08:49

Я так и не додумался чтобы читало до точки, то есть:
1 2 3.2 = 12
1 2 3.2 = 6 должно считать.

Sazary · 20.06.2009, 13:37

Цитата:

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

Я так и не додумался чтобы читало до точки, то есть:

Вам уже несколько вариантов предложили. Берите любой и вставляйте. Что там думать?

Вставьте

Код:

s := copy(s,1,pos('.',s)-1);

после ввода строки.

Doublefaced · 24.06.2009, 11:24

Блин, а почему 33 33.
Получается 81?

Sazary · 24.06.2009, 18:25

Цитата:

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

Блин, а почему 33 33.
Получается 81?

Точку на конце не забываете ставить?
У меня работает:

Код:

33 33.
1089

имею в виду свой вариант.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
сложение цифр в строке от 1 до 5	buba3230	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	9	04.06.2009 23:53
Найти произведение цифр натурального числа, больших В	microlab	Помощь студентам	6	23.12.2008 20:46
вычислить произведение четных чисел в каждой строке массива.	Oliver Sykes	Паскаль, Turbo Pascal, PascalABC.NET	5	09.10.2008 03:43
Найти (в процентах) частоту появления каждого из m наиболее часто встречающихся элементов	sk1p	Паскаль, Turbo Pascal, PascalABC.NET	2	26.09.2008 23:57

20.06.2009, 08:49	#22
Doublefaced Форумчанин Регистрация: 01.03.2009 Сообщений: 100	Я так и не додумался чтобы читало до точки, то есть: 1 2 3.2 = 12 1 2 3.2 = 6 должно считать.

24.06.2009, 11:24	#24
Doublefaced Форумчанин Регистрация: 01.03.2009 Сообщений: 100	Блин, а почему 33 33. Получается 81?