Помощь - Поиск - Пользователи - Календарь
Полная версия: Вычисление произведения
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Depression period
........Помогите, пожалуйста решить эту задачу..............или, хотя бы, напишите ссылки на сайты, где я могла бы найти решение........!!!!=))))


Условие задачи в приложенном документе...........
volvo
To: Depression period
откуда в формуле P = ...
берется i? К понятно, это счетчик цикла... Что такое i???
Depression period
........я не знаю, откуда i.........так в методичке написано......я поэтому и сама не знаю, как это делать........
hiv
Ну, я не телепат, но может это с вас хотели?
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
......Спасибо большое..........я проверю......!!!!!!!
Depression period
Спасибо тебе огромное, hiv!!!!!!!!!!!!!!!Мне зачли эту задачу!!!!!!!!! lol.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.