Процедуры и функции Опции

[KriN]

1)Для заданных N и х1,х2,х3...хN написать программу,используяподходящую функцию
р1=произведение от i=1 до N(abs(i))/i!

p2=произведение от i=1 до N(abs(sqr(xi-p1)))/i!

p3=произведение от i=1 до N(abs(xi-p2)^3)/i!



2)Используя процедуру,поменять местами в кв.матрице заданного размера диагонали,прилегающие к главной диагонали

Сообщение отредактировано: KriN - 2.03.2009 21:46

[maksimla]

program razpolozenie_znakov;
  var m,a: integer;
  procedure slozenije(i,k: integer);{тут обезательно должны быть два данные потомучто в низу в процедуру обрасчались с двумя данными. еще можно было написать и m,a
под процедурой также под функцией может быть дополнительные данные которые используются только в процедуре или функцие}
  begin
  m:=i+k;
  end;

begin
writeln('napisite dva cisla');
 readln(m,a);{ну тут читаем данные}
  slozenije(m,a); {тут эти данные на процедуру отпровляем}
  writeln(m); {а тут уже результат видим на экране}
  readln;{чтобы  незакрылась до тех пор пока вход ненажмем}
end. 

надеюсь что понятно как писать процедуру
а вот функция

program razpolozenie_znakov;
  var m,a: integer;
function slozenije(i,k: integer): integer;
  begin
  slozenije:=i+k;
  end;

begin
writeln('napisite dva cisla');
 readln(m,a);
  writeln(slozenije(m,a));
   readln;
end.

надеюсь что понятно тебе сечас

разница между процедурой и функцией знаешь какая?