Задачи на procedure в Паскале

[RemaKos]

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

1). Написать подпрограмму Min(a,b) для нахождения минимального из двух чисел.Вычислить с помощью неё значение выражения z=min(3x,2y)+min(x-y,x+y).

2). Написать подпрогграмму max(a,b) для нахождения максимального из двух чисел.Вычеслить с помощью неё значение выражения z=max(x,2y-x)+max(5x+3y,y).

3). Написать подпрограмму f(x),которая вычесляет значение по следущей формуле: f9x)=x(в кубе)-sin x.Построить таблицу значений функций для отрезка [a,b] с шагом h.

4). Написать подпрограмму,которая выясняет,является ли чётным данное число.Из трёх чисел x,y,z вывести на экран значения тех,которые являются нечётными.

[SkuLLL]

Мы тоже вчера проходили процедуры и функции. Вот первая задача, но я не проверял ее, если что исправь:
var x,y,z: integer;
procedure MinNumber(a,b: integer; var min: integer);
begin
if a<b then min:=a else min:=b;
end;
begin
writeln('введите x,y ');
readln(x,y);
z:=MinNumber(3*x,2*y)+MinNumder(x-y,x+y);
writeln('z= ',z);
readln;
end.

[Ghost of Night]

SkuLLL Вас код оформлять не учили?

[Риндера]

Процедура - это просто набор определенных операторов, например, ввод массива.
Функция - подобно математической функции - это некоторое выражение, зависящее от аргумента (аргументов).
Основное их отличие: функция возвращает определенное значение, процедура ничего не возвращает, а просто выполняет свои операторы. Следовательно, если мы используем функцию, то присваиваем какой-либо переменной её значение, а если процедуру - то просто упоминаем её имя в тексте программы.

MyProcedure(a, b); // процедура
y := MyFunc(x); // функция

То есть, SkuLLL, тебе бы нужно использовать функцию, а не процедуру:

var x,y,z: integer;

function MinNumber(a, b: integer): integer;
begin 
if a<b then MinNumber:=a else MinNumber:=b;
end;

begin
writeln('введите x,y ');
readln(x,y);
z:=MinNumber(3*x,2*y)+MinNumder(x-y,x+y);
writeln('z= ',z);
readln;
end.

[Sam Gold]

Я бы написал функции, а не проедуры, т.к функции возвращают значение, а процедуры нет:

function min(x,y:real):real ;   //=========макисмум аналогично
begin
if x>y then min:=y else min := x ;
end;

function f(x:real):real;
begin
f:= sqr(x)*x- sin(x);
end;


function chet(x:integer):boolean;
begin
 if x mod 2=0 then   chet:= true else chet:= false
end;

А потом бы вызывал их в программе

 var x,y,step,left, right: real;
 
 a:array[1..3] of integer;
 
 i:integer;
 
 begin
 readln(x,y);
 writeln('z =',min(3*x,2*y)+min(x-y,x+y));
 
 readln(left,right,step);
 writeln('    x      |     f(x)   ');
 
 while(left<=right) do
  begin
  //=========табулирование=====
  writeln(left,'     |     ',f(left) );
  
  left:=left+step;
 end;
 
 for  i:=1 to 3 do
 readln(a[i]);
 
  for i:=1 to 3 do
    if chet(a[i])=false then writeln('nechet ', a[i],' ');
  end.