Записать в строку N действительных чисел, вычислить произведение всех чисел

@Ro_MAN · Регистрация: 11.04.2010

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

Здравствуйте. Помогите пожалуйста решить такую задачку.
Записать в строку N действительных чисел, вычислить произведение всех чисел и вывести на экран. Никак решить не могу

помогите пожалуйста

@Puporev · 11.04.2010, 08:17

Pascal

uses crt;
var s,ch:string;
    t,p:real;
    i,j,k,c:integer;
begin
clrscr;
writeln('Введите в строку через пробелы действительные числа');
writeln('разделитель целой и дробной части - точка');
readln(s);
p:=1;
i:=1;
while i<=length(s) do
if (s[i]<>' ')and ((s[i-1]=' ')or(i=1)) then{если не пробел, а перед ней пробел, или она первая}
 begin
  k:=i;ch:='';
  while (s[k]<>' ')and(k<=length(s))do {пока не пробел и не конец строки}
   begin
    ch:=ch+s[k];
    k:=k+1;{идем вперед}
   end;
  val(ch,t,c);{пробуем преобразовать строку в число}
  if c=0 then p:=p*t;{если это число, умножаем}
  i:=i+length(ch);{перепрыгиваем}
 end
else i:=i+1;
write('Произведение чисел=',p:0:2);
readln
end.

@Ro_MAN · 11.04.2010, 12:50 **[ТС]**

Спасибо огромное! Всё работает как часы

@Ro_MAN 1 / 1 / 0 Регистрация: 11.04.2010 Сообщений: 15
		1
	Записать в строку N действительных чисел, вычислить произведение всех чисел 11.04.2010, 00:24. Показов 1343. Ответов 2 Метки нет (Все метки) Здравствуйте. Помогите пожалуйста решить такую задачку. Записать в строку N действительных чисел, вычислить произведение всех чисел и вывести на экран. Никак решить не могу помогите пожалуйста 0

@Ro_MAN 1 / 1 / 0 Регистрация: 11.04.2010 Сообщений: 15
	11.04.2010, 12:50 [ТС]	3
	Спасибо огромное! Всё работает как часы 0

Записать в строку N действительных чисел, вычислить произведение всех чисел

Решение