Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Вычисление произведения

Автор: Depression period 8.11.2005 16:00

........Помогите, пожалуйста решить эту задачу..............или, хотя бы, напишите ссылки на сайты, где я могла бы найти решение........!!!!=))))


Условие задачи в приложенном документе...........


Эскизы прикрепленных изображений
Прикрепленное изображение

Автор: volvo 8.11.2005 16:17

To: Depression period
откуда в формуле P = ...
берется i? К понятно, это счетчик цикла... Что такое i???

Автор: Depression period 9.11.2005 20:06

........я не знаю, откуда i.........так в методичке написано......я поэтому и сама не знаю, как это делать........

Автор: hiv 9.11.2005 22:17

Ну, я не телепат, но может это с вас хотели? 

program MUL;

var  i,n :integer;

function max3(a,b,c:integer):integer;
var r :integer;
begin
  r:=a;
  if b>r then r:=b;
  if c>r then r:=c;
  max3:=r;
end;

function P(n,i:integer):double;
var k :integer;
    m :double;
begin
  m:=1;
  for k:=1 to n do
    m:=m*max3(i,k*k,15-i);
  P:=m;
end;

begin {of main program}
  write('Vvedite n='); readln(n);
  for i:=1 to 50 do
    writeln('i=',i:2,'  P=',P(n,i));
end.

Автор: Depression period 13.11.2005 22:36

......Спасибо большое..........я проверю......!!!!!!!

Автор: Depression period 14.11.2005 19:57

Спасибо тебе огромное, hiv!!!!!!!!!!!!!!!Мне зачли эту задачу!!!!!!!!! lol.gif