пример с УМНОЖЕНИЕМ (П)

[WPALI4]

как решить пример с умножением?

На примере того что на рисунке!

В готовой проге нужно записывать данные i и n, то есть от какого по какое число должна считать(суммировать) прога! Переменные i и n могут быть любыми: от 1 до 10; от 5 до 55...и т.д.

помогите пожалуйста люди добрые!

[WPALI4]

Help Help Help

[RamireZ]

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

как решить пример с умножением?

На примере того что на рисунке!

В готовой проге нужно записывать данные i и n, то есть от какого по какое число должна считать(суммировать) прога! Переменные i и n могут быть любыми: от 1 до 10; от 5 до 55...и т.д.

помогите пожалуйста люди добрые!

Я задание не особо понял,мб там что неправильно или я ошибаюсь(считать логарифм от 1 с последовательностью значений?(странно))

Вобщем написал на скорую руку,если что не подойдет пиши,подумаем:

Program M;
var
   i,n,j:integer;p:real;
   function lg(j:integer):real;
   begin
   result:=ln(j)/ln(10);
   end;
begin
  writeln('Ввод начального значения');
  readln(i);
  writeln('Ввод конечного значения');
  readln(n);
p:=1;
  for j:=i to n do
        p:=p*lg(j);
  writeln(p);
end.

[WPALI4]

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

Вобщем написал на скорую руку,если что не подойдет пиши,подумаем:
...

В общем умаялся я с этим заданием Выкладываю мой недоделанный исходник и картинку (как должна выглядеть программа)

procedure TForm1.Button1Click(Sender: TObject);
var
 i, i2, i3,j,n, n2, n3: integer;
 a, b, verh, c, ppc: real;
begin
try
  i:=StrToInt(Edit2.Text);
  n:=StrToInt(Edit1.Text);
  a:=0;
  for j:=i to n do
  a:=a+ln(j)/ln(10);

  i2:=StrToInt(Edit4.Text);
  n2:=StrToInt(Edit3.Text);
  b:=0;
  for j:=i2 to n2 do
  b:=b+2*i2;

  verh:=a+b;
  

  i3:=StrToInt(Edit5.Text);
  n3:=StrToInt(Edit6.Text);
  c:=0;
  for j:=i3 to n3 do
  c:=c+i3/2; // Если тут ставлю вместо "+" знак "*", то прога не работает
  

  ppc:=verh/c;

  Edit7.Text:=FloatToStr(ppc);
  except
  Application.MessageBox('Непонятная ошибка!', 'Решалка', mb_ok+mb_iconerror);
end;

end;

end.

Вот в чем дело Посмотрите пожалуйста, что я не так сделал?

[Serge_Bliznykov]

Это что, такая шутка юмора?

  c:=0;
  for j:=i3 to n3 do
  c:=c*i3/2; // Если тут ставлю вместо "+" знак "*", то прога не работает

1) цикл крутим по j а само j не используется в цикле?..
ну ладно, допускаю..

2) ошибка у Вас возникает при попытке деления на ноль:
вот тут - ppc:=verh/c;
посмотрите в код, который я выше процитировал...
сначала вы c присваиваете ноль c:=0;
а потом c:=c*... так вот, открою Вам страшную тайну — если ноль умножить на любое число, то в результате всё равно получится НОЛЬ (даже если умножать в цикле

p.s. условия задачи не смотрел. Алгоритм не смотрел.
так что — остальное на Вашей совести...

удачи.

[WPALI4]

СПАСИБО ВСЕМ!
ЛАБА ЗАЩИЩЕНА!!!