Найти произведение цифр, встречающихся в строке

@Ocha · Регистрация: 18.12.2008

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

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program Project315;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
s:string;
i:integer;
g:longint;
 
begin
Write('Vvedite Stroku: ');
Readln(s);
s:=Copy(s,1,pos('.',s)-1);
g:=1;
 
begin
For i:=1 to Length(s) do
If s[i] in ['0'..'9'] then g:=g*(ord(s[i])-48);
end;
 
Writeln('Result = ',g);
Readln;
end.

Подскажите как сделать чтобы программа правильно высчитывала:
1 2 3. - выводит 6 это правильно.
Проблема с двухзначными числами например:
22 22. программа считает 16.

@John_Pa9JIbHuK · 24.06.2009, 13:26

можно же Val сделать?

@mamedovvms · 24.06.2009, 13:29

я предлагаю сделать так

Pascal
1
2
3
4
5
6
7
8
9
10
11
l:=false;
t:=0;
begin
For i:=1 to Length(s) do
If (s[i] in ['0'..'9'])and(l=false)  then 
                          begin
                            l:=true;
                            t:=org(s[i])-48;
                          end else
If (s[i] in ['0'..'9'])and(l)  then   t:=t*10+org(s[i])-48 else begin g:=g*t; l:=false; end;
end;

@Jazon_deenAlt · 24.06.2009, 13:45

ну так правильно... у вас же

Delphi
1
If s[i] in ['0'..'9'] then g:=g*(ord(s[i])-48);

считает именно поцыфрово тоесть 22 ето есть 2 потом еще раз 2...
предлагаю раз уж так ввести какуюта переменную и сделать вместо

Delphi
1
2
3
For i:=1 to Length(s) do
If s[i] in ['0'..'9'] then g:=g*(ord(s[i])-48);
end;

что-то типа так

Delphi
1
2
3
4
5
6
7
8
9
10
11
perem:=0;
For i:=1 to Length(s) do
If (s[i] in ['0'..'9']) and (s[i+1] not in ['0'..'9']) then begin
perem:=perem*10 + (ord(s[i])-48)
g:=g*perem;
perem:=0;
end
else begin
perem:=perem*10 + (ord(s[i])-48);
end;
end;

как-то так) должно работать)

@Ocha · 24.06.2009, 14:09 **[ТС]**

Всё понял спасибо

Добавлено через 23 минуты 1 секунду

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
program Project315;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
s:string;
l:boolean;
t,g:longint;
i:integer;
 
begin
Write('Vvedite Stroku: ');
Readln(s);
//s:=Copy(s,1,pos('.',s)-1);
g:=1;
 
begin
l:=false;
t:=0;
For i:=1 to Length(s) do
If (s[i] in ['0'..'9'])and(l=false)  then
                          begin
                            l:=true;
                            t:=ord(s[i])-48;
                          end else
If (s[i] in ['0'..'9'])and(l)  then   t:=t*10+ord(s[i])-48 else begin g:=g*t; l:=false; end;
Writeln('Result = ',g);
Readln;
end;
end.

Все равно считает символы после точки

@Puporev · 24.06.2009, 14:29

Все равно считает символы после точки

А это зачем убрал?
//s:=Copy(s,1,pos('.',s)-1);

@Ocha · 24.06.2009, 14:35 **[ТС]**

С этим вообще стало, просто выводить то число, которое ввёл.

@Puporev · 24.06.2009, 14:41

Я вообще не понимаю, что ты делаешь. По условию нужно посчитать произведение цифр и все.
Или ты не все условие написал, и цифры и числа для тебя без разницы?

@Ocha · 24.06.2009, 14:43 **[ТС]**

Условие написал всё, только у меня считает символы после точки. Нужно считать только то что до точки.

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	24.06.2009, 13:26
	можно же Val сделать? 1

@Ocha 4 / 3 / 1 Регистрация: 18.12.2008 Сообщений: 136
	24.06.2009, 14:35 [ТС]
	С этим вообще стало, просто выводить то число, которое ввёл. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	24.06.2009, 14:41
	Я вообще не понимаю, что ты делаешь. По условию нужно посчитать произведение цифр и все. Или ты не все условие написал, и цифры и числа для тебя без разницы? 0

@Ocha 4 / 3 / 1 Регистрация: 18.12.2008 Сообщений: 136
	24.06.2009, 14:43 [ТС]
	Условие написал всё, только у меня считает символы после точки. Нужно считать только то что до точки. 0