Нахождение минимального числа

[sinnersinn]

Доброго времени суток. Уважаемые гуру программирования подскажите как описать данную задачу.

Я абсолютно не помню как обзываются эти 2 больших буквы.
Я понимаю но только частично, что это нужно будет затолкать в цикл с каким то шагом (таким каким пожелает преподаватель), а потом просто их все сравнить.

[Sciv]

Я абсолютно не помню как обзываются эти 2 больших буквы.

Сигма и Пи. Значение букв: сумма и произведение соответственно.

Я понимаю но только частично, что это нужно будет затолкать в цикл с каким то шагом (таким каким пожелает преподаватель)

Не каким пожелает, а единичный шаг.

var m: real;

function min(x,y: real): real;
begin
  if x<y then min:=x else min:=y;
end;

Function Sum(n: integer): real;
var i: integer;
    s: real;
begin
  s:=0;
  for i:=1 to n do s:=s+(i*i+2+i)/i;
  sum:=s;
end;

function Proizv(n: integer): real;
var k: integer;
    p: real;
begin
  p:=1;
  for k:=1 to n do p:=p*k*k;
  Proizv:=p;
end;

begin
  m:=Min(Sum(8),Proizv(3));
  WriteLn('Минимум=',m:2:2);
end.

[sinnersinn]

Спасибо большое, я ожидал просто 5 строчек которые навели бы на правильный путь, а тут почти готовый код.

[sinnersinn]

Уважаемые гуру программинга помогите
Составить программу нахождения значений функции

то на что хватило моих познаний 7летней давности (7 лет не трогал паскаль)

program variant4_zadacha4;
var i,y,n,x,h:real;

begin
y:=0;
for x:=-2 to 3 step 1 do
for i:=1 to 10 do y:=y+(cos(x/n)/n);
end.

[Slym]

program variant4_zadacha4;

var
  x,n:integer;
  y:real;
begin
  for x:=-2 to 3 do
  begin
    y:=0;
    for n:=1 to 10 do
      y:=y+(cos(x/n)/n);
    writeln('y(',x,')= ', y:2:3);
  end;
end.

[sinnersinn]

А можно вопрос в догонку, в то ли место я прописал шаг цикла? Просто есть еще кучка подобных задач но там шаги другие, да и для освежения памяти поможет.

[Sciv]

в то ли место я прописал шаг цикла

не в то. step -это вроде бы в БЕйсике, в паскале такого нет.

Но я, честно говоря, переделал бы программу Slym'a под вещественный икс и задаваемый пользователем h:

program variant4_zadacha4;

var
  n:integer;
  x,y,h:real;
begin
  x:=-2;
  Write('Введите шаг h=');
  ReadLn(h);
  while x<=3 do
  begin
    y:=0;
    for n:=1 to 10 do
      y:=y+(cos(x/n)/n);
    writeln('y(',x,')= ', y:2:3);
    x:=x+h;
  end;
end.